让你qq永久在线

让你qq永久在线 超级强悍～让QQ永远在线～求点亮～～ 绝对有效，本人亲自测试可用 只是复杂了一点，但正是因为复杂知道的人很少，所以到现在还没被封 希望那些没有认真看就说闲话的人最好闭上你的嘴巴 尊重人家的劳动成果 好了，下面说正题 让qq"永远"运行 自从qq出现了等级之后 现在有不少人都开始了疯狂挂级 希望在联机状态下始终运行qq 即便被人关闭也能自动启动登录 而且还要防止因异常错误而出 其实这些事情我们可以使用两个VBS脚本来实现这一目的 大家不要妄想在网吧这么做，网吧有还原精灵，是没用的 可以在公司或者别人家里都可以 以下内容需要回复才能看到 1.qq自动登录脚本代码: 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:XXXXXX" else msgbox "提取qq自动登录命令失败,请查看qq或TM是否正在运行.",0,"qq自动登录命令提 取脚本 BY chenall qq:XXXXXX" f.close set f = fso.getfile("qq自动登录.bat") f.delete end if 将这些代码存储为.vbs文件(VBS文件其实就是执行命令的文件) 然后将所有需要自动登录的qq号码全部登录 再在一个qq上点击"菜单"?"一键切换到TM"方法如下图: 这里我说一下为什么要转化成TM版本 因为TM版本本身有记住密码的功能，所以我们可以自动登陆 此后运行该VBS脚本 会发现在当前目录下生成了一个"qq自动登陆.bat"的文件 运行该文件即可自动登录所有qq号码 代码中的"XXXXXX"代你的qq号 2.qq防止关闭脚本 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 将以上代码存储为"*.vbs"文件 而后登录qq，一键切换到TM 再运行VBS脚本 此后，即使关闭了 TM/qq 它也会自动启动并登录至网络 经在Windows XP SP2系统上测试，完全有效