[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

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

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

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

TOP

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

TOP

返回列表