如何批量登陆QQ，不要网上下载的工具

来源：百度知道 编辑：UC知道 时间：2024/05/06 16:05:14
像以下这样 但这个只能登陆一个
Dim WshShell, QQPath, QQselect
QQPath="D:\QQ\QQ.exe" 'QQ所在路径
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.Run QQPath
WScript.Sleep 2000
WshShell.AppActivate "QQ登录1"
WshShell.SendKeys "+{TAB}"
WshShell.SendKeys "605761714" 'QQ号码
WScript.Sleep 200
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "123456789" 'QQ密码
WScript.Sleep 200
WshShell.SendKeys "{ENTER}"

如果有其他的也可以
echo off 1.vbs 2.vbs pause 这个方法是可以 但同时也有问题
现在我试了登陆6个Q，，发现会有3个到1个Q没法登陆 我知道原因 可是我不知道怎么解决 我说个大意吧 就是批处理还没完成的时候已经有QQ登陆成功，这时登陆成功的QQ会成为主窗口，但这时批处理还在登陆别的QQ， 于是QQ的号码和密码就无法输入到QQ的登陆框，于是就没法登陆 这个问题如何解决？

简单哦，刚才测试了，用批处理把
给每个QQ号建立vbs文件
然后用批处理调用，
————————————
echo off
1.vbs
@ping 127.0.0.1 -n 5 >nul
2.vbs
@ping 127.0.0.1 -n 5 >nul
pause
——————————————————————————
SPRRY，没有考虑到有延时情况，稍等
上面@ping 127.0.0.1 -n 5 >nul意思为延时5秒继续运行下个批处理，你试下，如果不行请调整延时时间，多试几次