首先来实现QQ的一键自动登陆。
******************************************************万恶的分割线******************************************************
Dim WshShell,QQPath,QQselect '定义变量
QQPath="C:\Progra~1\Tencent\" 'QQ的路径（把引号之间的内容改成你QQ程序的路径）
Set WshShell=WScript.CreateObject("WScript.Shell") '创建对象
WshShell.Run QQPath '运行QQ启动程序
WScript.Sleep 5000 '等待5秒，若安装了360保险箱之类的保护软件，可能需要延长等待时间
WshShell.AppActivate"QQ用户登陆" '激活登陆窗口
WshShell.SendKeys "+{TAB}" '按shift+Tab键
WshShell.SendKeys "12345678" '输入QQ账号（把12345678换成你的QQ账号）
WScript.Sleep 200 '等待0.2秒
WshShell.SendKeys "{TAB}" '按Tab键
WshShell.SendKeys "888888" '输入QQ密码（把888888换成你的QQ密码）
WScript.Sleep 200 '等待0.2秒
WshShell.SendKeys "{ENTER}" '回车登陆
******************************************************万恶的分割线******************************************************
把txt文件的后缀改成vbs，确认修改。以后只要直接点击这个vbs文件，QQ就会直接启动，自动登陆了。
接着来实现QQ的一键批量登陆。
先为你的每个QQ建立对应的vbs文件（上文提到的）。再新建一个txt文件，在里面输入以下内容（分割线之间的内容，不包含分割线）
******************************************************万恶的分割线******************************************************
@echo off
@ping 127.0.0.1 -n 5 >nul
修改密码qqQQ1一键登陆.vbs
@ping 127.0.0.1 -n 5 >nul
QQ2一键登陆.vbs
@ping 127.0.0.1 -n 5 >nul
QQ3一键登陆.vbs
******************************************************万恶的分割线******************************************************
注：把"QQ1一键登陆.vbs"改成你的vbs文件的名字，不一定是3个，你有几个就加几个。
把txt文件的后缀改成bat，确认修改。
再新建一个txt文件，在里面输入以下内容（分割线之间的内容，不包含分割线）
******************************************************万恶的分割线******************************************************
Set WshShell=WScript.CreateObject("WScript.Shell")
a = WshShell.Run ("QQ一键批量登陆.bat",0) '把引号里的内容改成你的bat文件的名字
******************************************************万恶的分割线******************************************************
把txt文件的后缀改成vbs，确认修改。以后只要直接点击这个vbs文件，所有你添加到bat文件里的QQ都可以按顺序自动登陆了。你可以在桌面建立该vbs文件的快捷方式。还可以把这个快捷方式拖放到“开始--所有程序-
-启动”项中，这样，每次开机之后QQ就会自动批量登陆了。
注：所有文件请放在同一目录下
发布评论