实现QQ一键自动登陆和一键批量登陆的VB脚本

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