利用VBS让QQ永远在线

利用VBS让QQ永远在线
2010年07月27日
　　[b]1.qq自动登录脚本代码:[/b]
　　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 chenall qq:自己的QQ"
　　else
　　msgbox "提取qq自动登录命令失败,请查看qq或TM是否正在运行.",0,"qq自动登录命令提取脚本 BY chenall qq:自己的QQ"
　　f.close
　　set f = fso.getfile("qq自动登录.bat")
　　f.delete
　　end if
　　[b] 将这些代码存储为.vbs文件[/b]
　　[b]2.在一个qq上点击"菜单"→"一键切换到TM"(因为TM版本本身有记住密码的功能，所以我们可以自动登陆)[/b]
　　[b]3.运行该VBS脚本,会发现在当前目录下生成了一个"qq自动登陆.bat"的文件,[b]运行该文件即可自动登录所有qq号码[/b][/b]
　　[b]4.如何防止关闭脚本[/b]
　　dim qqUIN
　　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
　　AppPath=ps.commandline \'提取qq程序的命行
　　tmp=Replace(AppPath,chr(34),space(1))
　　UIN1=instr(tmp,"qqUIN:")+6
　　qqUIN=mid(tmp,UIN1,instr(UIN1,tmp,space(1))-UIN1) \'取qq号码.
　　end if
　　next
　　if len(qqUIN)=0 then
　　msgbox "系统中没有运行qq或TM程序,请重新启动qq或TM,登陆后再使用一键换切换一下qq或TM程序,再运行本脚本"
　　else
　　do \'循环检测
　　myqqin=chkuin(qqUIN) \'检测上面提取出来的qq号码是否有在本机打开
　　if not myqqin then \'如果没有运行则,重新运行qq程序并登录
　　runapp(AppPath) \'
　　wscript.sleep 10000 \'等待10秒
　　else
　　wscript.sleep 5000 \'等待5秒
　　end if
　　loop \'返回继续检测
　　end if
　　function RunApp(AppPath)
　　dim obj
　　set obj = createobject("WScript.Shell")
　　obj.exec(AppPath)
　　end function
　　function chkuin(qqUIN)
　　for each ps in getobject("winmgmts:\\\\.\\root\\cimv2:win32_process").instances_
　　if lcase(ps.name)="qq.exe" or lcase(ps.name)="tm.exe" then
　　AppPatht=ps.commandline
　　\'by chenall qq 368178720
　　tmp=Replace(AppPatht,chr(34),space(1))
　　UIN1=instr(tmp,"qqUIN:")+6
　　qqUINTMP=mid(tmp,UIN1,instr(UIN1,tmp,space(1))-UIN1)
　　if qqUINTMP=qqUIN then chkuin=true end if
　　end if
　　next
　　end function
　　[b]将以上代码存储为"*.vbs"文件[/b]
　　[b][/b]
　　[b]而后登录qq，一键切换到TM[/b]
　　[b][/b]
　　[b]再运行VBS脚本[/b]
　　[b][/b]
　　[b]此后，即使关闭了 TM/qq[/b]
　　[b][/b]
　　[b]它也会自动启动并登录至网络[/b]
　　windows XP SP2系统上测试