批处理之家 - Powered by Discuz! Board

标题: [问题求助] 自动登陆QQ VBS 代码怎么写 [打印本页]

作者: joezhu322 时间: 2014-10-7 16:52 标题: 自动登陆QQ VBS 代码怎么写

因为我每天早上开始都要登陆好几个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}"
复制代码

作者: CrLf 时间: 2014-10-7 22:02

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

作者: joezhu322 时间: 2014-10-7 22:25

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

欢迎光临批处理之家 (http://bbs.bathome.net/)

Powered by Discuz! 7.2