相信很多朋友都不止有一个QQ帐号吧，有时候多个帐号登陆起来，输入帐号密码是不是很麻烦呢。Lost_ten也有多个QQ帐号，可lost_ten 是个懒人不想每次都输入那么多次帐号密码。所以就想方法写了这个脚本，不过好东西当然要分享啦，现在就分享给有需要的朋友啦!
工具/原料
- 电脑
- 记事本软件
方法/步骤
- 1
打开记事本软件，可以在开始菜单行运里输入 notapad 回车
就可以打开记事本啦
- 2
把下面代码全部复制然后粘贴到记事本里:
Dim arrFileLines()
dim arrqq
i = 0
j=0
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("QQ.txt", 1)
Do Until objFile.AtEndOfStream
Redim Preserve arrFileLines(i)
arrFileLines(i) = objFile.ReadLine
i = i + 1
Loop
objFile.Close
For j = 1 to 10 Step 1
arrqq=split(arrFileLines(j) ,"----")
Set a=CreateObject("WScript.Shell")
Set oExec=a.Exec("C:\Program Files (x86)\Tencent\QQ\QQProtect\Bin\QQProtect.exe")
WScript.Sleep 5000
a.AppActivate "QQ"
a.SendKeys "{DELETE}"
WScript.Sleep 1000
a.SendKeys arrqq(0)
WScript.Sleep 1000
a.SendKeys "{TAB}"
a.SendKeys arrqq(1)
WScript.Sleep 300
a.SendKeys "{ENTER}"
WScript.Sleep 10000
Next
- 3
找到桌面你的QQ程序图标，点右键选择属性，在弹出的窗口里选择目标栏，
把QQ程序的路径复制下来。
- 4
在刚才的记事文件里找到”C:\Program Files (x86)\Tencent\QQ\QQProtect\Bin\QQProtect.exe“ 然后用你的复制的QQ路径替换掉。
- 5
点击记事本软件的文件菜单里的保存，在保存对话框输入你要保存的文件名，注意一定要保存为后缀.vbs的文本，而不是.txt的文本哦，看图示:
- 6
好了，现在脚本文件写好了，下面我们要再建一个名为QQ.txt文件,还是打开记事本，现在把你的每一个QQ帐号密码写成一行。格式为 QQ帐号----QQ密码
看图示:
- 7
写好帐号密码后就保存为QQ.txt，注意要把这个帐号文件同以上写的脚本文本放同一个目录下哦。
- 8
好了，完成点击测试吧，注意双击vbs运行后不要操作电脑，等QQ登陆完再操作哦，因为是模拟人工点击的哦，否则可能登陆失败啦。
- 9
运行后会自动输入帐号密码点登录哦，注意您成功啦！
END
注意事项
- 运行脚本未完成所有帐号登陆过程中不要操作电脑，以免登陆失败啦