怎么一键快速登录QQ帐号

• 打开记事本软件，可以在开始菜单行运里输入 notapad 回车，就可以打开记事本啦

• 把下面代码全部复制然后粘贴到记事本里:
• 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

• 找到桌面你的QQ程序图标，点右键选择属性，在弹出的窗口里选择目标栏，把QQ程序的路径复制下来。
• 在刚才的记事文件里找到”C:\Program Files (x86)\Tencent\QQ\QQProtect\Bin\QQProtect.exe“ 然后用你的复制的QQ路径替换掉。

• 点击记事本软件的文件菜单里的保存，在保存对话框输入你要保存的文件名，注意一定要保存为后缀.vbs的文本，而不是.txt的文本哦，看图示:

• 再建一个名为QQ.txt文件,还是打开记事本，现在把你的每一个QQ帐号密码写成一行。格式为 QQ帐号----QQ密码
• 写好帐号密码后就保存为QQ.txt，注意要把这个帐号文件同以上写的脚本文本放同一个目录下哦。
• 双击vbs运行后不要操作电脑，等QQ登陆完再操作哦，
• 运行后会自动输入帐号密码点登录哦