自动登陆QQ VBS 代码怎么写

joezhu322

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

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

复制代码

CrLf

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

joezhu322

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