用VB做自动登录QQ程序

来源：百度知道 编辑：UC知道 时间：2024/05/27 06:25:12
如果让VB文本框中的值传输到QQ号码框和QQ密码框中,让QQ的登录按钮自动启动..我要思路.到底VB是怎么样来检测QQ号码框并输入内容的?而且还可以调用QQ登录按钮的程序?

'模拟按键盘

Private Sub Command1_Click()
Shell "C:\Program Files\Tencent\QQ\QQ.exe", vbNormalFocus

Dim longTimer As Long
longTimer = Timer
Do Until Timer - longTimer >= 5 '延时5秒，sendkeys必须等QQ窗口打开
DoEvents
Loop

SendKeys "+{tab}" '相当于按键盘alt+tab
SendKeys "52051459"
SendKeys "{tab}"
SendKeys "password"
SendKeys "{enter}"
End Sub