VB 模拟键盘与QQ

来源：百度知道 编辑：UC知道 时间：2024/09/22 15:10:04
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Command1_Click()
Sleep (5000)
SendKeys "382054900", True
SendKeys "{Tab}", True
SendKeys "xxxxxxxxx", True
SendKeys "{Enter}"
End Sub

xxxxxxxxxx是我的密码
我首先打开QQ,然后光标点击QQ帐号
过了几秒,帐号密码全部输上,登陆但显示密码不正确
我把SendKeys "{Enter}"这一句删掉,数了数*的个数,发现其个数正是我密码的个数
然后我又新建了一个工程,设置两个Text
然后重复以上步骤
Text1.Text是我的QQ帐号
我下载了一个*查看器,发现
Text2.Text是我的QQ密码

明明输对了为什么无法登陆呢?
我以前不知道怎么弄的,可以用模拟键盘自动输密码而且登陆成功啊

等我空了,帮你改成真正的登录QQ的代码吧.

SendKeys "密码"
Sleep 1000
SendKeys "{TAB}"
SendKeys "账号"
SendKeys "{ENTER}"
SendKeys "{ENTER

现在的QQ已经具备了防自动输入的功能。
凡是通过模拟方式输入的数据，QQ拒绝接受。
所以，出现密码不正确等情况也就不足为奇了。