本人想用vbs实现QQ批量登录(从ini文件中提取QQ账号和密码)，高手请进

显示全部楼层 · 2010-11-30 19:14:09

这是qq.ini的内容(QQ号多于10个，即n个QQ号)：
qq号----密码
qq号----密码
qq号----密码
...
...
这是我写的vbs，如下：
Set ws = CreateObject("Wscript.Shell")
Set sfso = CreateObject("Scripting.FileSystemObject")
Set myfile = sfso.OpenTextFile("qq.ini",1)
Do Until myfile.AtEndOfStream
userpwd = myfile.ReadLine
MyArray = Split(userpwd,"----")
qquser = MyArray(0)
qqpwd = MyArray(1)
ws.Run """D:\Program Files\Tencent\QQ\QQ.exe"""
WScript.Sleep 1000
ws.SendKeys "+{TAB}"
ws.SendKeys qquser
WScript.Sleep 100
ws.SendKeys "{TAB}"
ws.SendKeys qqpwd
WScript.Sleep 100
ws.SendKeys "{ENTER}"
WScript.Sleep 100
loop
myfile.Close
此vbs能实现从ini文件中提取，但因为QQ每次只允许登录10个，而此vbs登录完10个后还会一直登录下去(登录第11个，第12个，...)
问题：
我想让它每次登录完10个QQ号后，能自己手动控制，即：
登录完第1至10个QQ号后，手动控制是否继续登录后面的第11至20个QQ号;
登录完第11至20个QQ号后，手动控制是否继续登录后面第21至30个QQ号;
...
...

千问 · 2010-11-30 19:14:09

谢谢你的代码，我不会，但我用你的这个代码我每次可以一下就把自己3个Q号登录上去，vbs好玩哦，我自也去学习下易通教程网

千问 · 2010-11-30 19:14:09

别光只索取不付出拉，呵呵