制作QQ自动登陆批处理文件bat代码

将以下代码存储为”*.vbs”文件。然后将所有需要自动登录的QQ号码全部登录，再在一个QQ上点击”菜单”→”一键切换到TM”。此后运行该VBS脚本，会发现在当前目录下生成了一个”QQ自动登陆.bat”的文件，运行该文件即可自动登录所有QQ号码。
小提示：代码中的”XXXXXX”代表你的QQ号。

‘*******************
‘QQ自动登录
‘目的:生成文件[QQ自动登录.bat]到当前目录下,运行方可自动登录QQ
‘注意,一定要一键切换到TM一次,才能正确提取到密码
‘*******************
set fso = Wscript.createObject(“Scripting.FileSystemObject”)
Set f = fso.createTextFile(“QQ自动登录.bat”,true)
f.WriteLine “@echo off” & vbcrlf
for each ps in getobject(“winmgmts:\\.\root\cimv2:win32_process”).instances_ ‘列出系统中所有正在运行的程序
if lcase(ps.name)=”qq.exe” or lcase(ps.name)=”tm.exe” then ‘检测是否QQ或TM
QQCMD=ps.commandline ‘提取QQ程序的命行
tmp=Replace(QQCMD,chr(34),space(1))
UIN1=instr(tmp,”QQUIN:”)+6
if not len(UIN1)=0 then
QQUIN=mid(tmp,UIN1,instr(UIN1,tmp,space(1))-UIN1) ‘取QQ号码.
QQ=QQ+1
QQNUM=QQNUM & “QQ号码” & QQ & “:” & vbtab & QQUIN & vbcrlf
f.WriteLine “ECHO QQ号码:” & QQUIN
f.WriteLine “ECHO 命令行:” & QQCMD
f.WriteLine QQCMD & vbcrlf
end if
end if
next
if not len(QQ)=0 then
MSGBOX “已经成功提取以下QQ号码的自动登录命令行” & vbcrlf & vbcrlf & QQNUM & vbcrlf & “具体请查看当前目录下的文件”,0,”QQ自动登录命令提取脚本 BY 蓝灵紫幻”
else
msgbox “提取QQ自动登录命令失败,请查看QQ或TM是否正在运行.”,0,”QQ自动登录命令提取脚本 BY 蓝灵紫幻”
f.close
set f = fso.getfile(“QQ自动登录.bat”)
f.delete
end if