[问题求助] 自动登陆QQ VBS 代码怎么写

joezhu322

因为我每天早上开始都要登陆好几个QQ，我几个QT号码，我想先了解一下怎么自动登陆QQ先
我在网上搜了一下 找到以下代码， 可是无法按照我定义的QQ用户和密码输入进去，会出现不同我定义的用户名，密码，
所以无法登陆情况。
请大师指点一下

Dim Program1
Program1= "C:\Program Files (x86)\Tencent\QQ\QQProtect\Bin\QQProtect.exe" '我的系统是win8.1 pro 64位的所以有X86字眼出现，32位系统的就不会有X86出现
Set WshShell=createobject("wscript.shell")
Set oExec=WshShell.Exec(Program1)
WScript.Sleep 3000
WshShell.AppActivate "cncn"
WshShell.SendKeys "+{TAB}"
WshShell.SendKeys "765617777"  ''非真正QQ号码 是举个例子而已
WScript.Sleep 200
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "88888888" '非真正的密码 是举个例子而已
WScript.Sleep 200
WshShell.SendKeys "{ENTER}"
复制代码

joezhu322

sendkeys 的辦法總不太靠譜？ 哪位大神能有更好的代码精准输入用户名和密码？别吝啬你的才智

CrLf

sendkeys 的办法总不太靠谱
webqq 倒是能精确输入密码，但又没法搞定验证码...