UC知道如何用VB实现QQ自动登陆
来源：百度知道 编辑：UC知道 时间：2024/05/21 13:20:02
我做的如下：
Private Sub command1_click()
Dim qq As String
qq = Shell("E:\Program Files\Tencent\QQ\QQ.exe", vbNormalFocus)
AppActivate qq
SendKeys "QQ号码"
SendKeys "{tab}"
SendKeys "QQ密码"
SendKeys "{enter}"
End Sub
可以实现自动登陆，
但编译器提示说AppActivate qq 这一句有错误，
请问，这错误是怎么产生的？
当然，如果QQ号码与密码是用 sendkeys 一个一个地输入，则不会出现错误，为什么？
Private Sub command1_click()
Dim qq As String
qq = Shell("E:\Program Files\Tencent\QQ\QQ.exe", vbNormalFocus)
AppActivate qq
SendKeys "QQ号码"
SendKeys "{tab}"
SendKeys "QQ密码"
SendKeys "{enter}"
End Sub
可以实现自动登陆，
但编译器提示说AppActivate qq 这一句有错误，
请问，这错误是怎么产生的？
当然，如果QQ号码与密码是用 sendkeys 一个一个地输入，则不会出现错误，为什么？
qq的参数如下
/SATRT QQUIN: PWNHASH:
QQUIN 是你的号码
PWNHASH 是你的密码作标准的32位md5运算后的hash值作base64运算 这里的base64不是标准的 md5的值不可以作为文本直接进行计算 要把它作为中间的16进制数进行计算 可能说得不明白 自己慢慢琢磨吧
顺便说句 参数启动好像不是老能成功 近几个版本好像加了什么
AppActivate("QQ用户登陆")
现在应该不行了。。因为QQ那个保护软件。。这个方法不行。算出那个密码，然后做参数启动
建议用QQ2005