QQ批量登陆脚本

功能：从指定的QQ号码和密码文件中读取信息，分别登录，也就是批量QQ号码自动登录。

操作：

1、把QQ号和密码写在一个叫QQ.ini的文件中，格式为QQ号码|密码，如88480666|12345678，其中|为号码和密码的分隔符。

2、把下面的脚本拷贝放到一个文本文件中，改名了XXX.vbs，XXX你自己任意定。

3、修改你的QQ所在的绝对路径，本例为T:/QQ2009/bin/QQ.exe。

4、双击XXX.vbs，开始自动登录。

说明：如果你有上百个QQ，恐怕开这么多QQ实例你的机器吃不消，就把'Close_Process("QQ.exe")前的'去掉。也就是说，每登录一个退出再登录另一个。

存在的问题：目前登录一个退出一个采用的是结束QQ进程的方法，这样不好，每次都要重新启动QQ实例，浪费时间，如果能注销刚才登录的QQ，再选择另一个号码登录最佳，但本人没有解决这个问题，也没时间。

VBS脚本代码如下：

'Option Explicit
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile("QQ.ini",1)

Do Until objTextFile.AtEndOfStream
Dim strNextLine
Dim spIndex,qqnumber,pwd
Dim WshShell, QQPath, QQselect

strNextLine = objTextFile.Readline

spIndex=InStr(strNextLine,"|")
qqnumber=Mid(strNextLine,1,spIndex-1)
pwd=Mid(str