自动登录脚本 set fso = teObject("SystemObject") Set f = teTextFile("QQ自动登录",true) eLine "@echo off" & vbcrlf for each ps in getobject("winmgmts:\.rootcimv2:win32_process")ances_ '列出系统中所有正在运行的程序 if lcase()="" or lcase()="" then '检测是否QQ或TM QQCMD=andline '提取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 eLine "ECHO QQ号码:" & QQUIN eLine "ECHO 命令行:" & QQCMD eLine QQCMD & vbcrlf end if end if next if not len(QQ)=0 then MSGBOX "已经成功提取以下QQ号码的自动登录命令行" & vbcrlf & vbcrlf & QQNUM & vbcrlf & "具体请查看当前目录下的<QQ自动登录>文件",0,"QQ自动 登录命令提取脚本 BY chenall QQ:XXXXXX" else msgbox "提取QQ自动登录命令失败,请查看QQ或TM是否正在运行.",0,"QQ自动登录命令提取脚本 BY chenall QQ:XXXXXX" e set f = ile("QQ自动登录") te end if 将这些代码存储为"*"文件。然后将所有需要自动登录的QQ号码全部登录,再在一个QQ上点击"菜单"→"一键切换到TM"。此后运行该VBS脚本,会发现在当前目录下生成了一个"QQ自动登陆"的文件,运行该文件即可自动登录所有QQ号码。 小提示:代码中的"XXXXXX"代表你的QQ号。
防止关闭脚本 dim QQUIN for each ps in getobject("winmgmts:\.rootcimv2:win32_process")ances_ '列出系统中所有正在运行的程序 if lcase()="" or lcase()="" then '检测是否QQ或TM AppPath=andline '提取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) ' p 10000 '等待10秒 else p 5000 '等待5秒 end if loop '返回继续检测 end if
function RunApp(AppPath) dim obj set obj = createobject("l") obj.exec(AppPath) end function
function chkuin(QQUIN) for each ps in getobject("winmgmts:\.rootcimv2:win32_process")ances_ if lcase()="" or lcase()="" then AppPatht=andline '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 将以上代码存储为"*"文件。而后登录QQ,一键切换到TM,再运行VBS脚本。此后,即使关闭了TM/QQ,它也会自动启动并登录至网络。经笔者在Windows XP SP2系统上测试,完全有效。 小编提示:对于用户挂QQ这个事情,小编对此并不赞同,因为除了能得到心里上的满足以外,其余任何事情都不能做到,而且还大量地浪费了国家的电能,所以在此小编提示大家,这个技巧只是叫大家明白,我们可以用VBS实现这一功能,绝对不是提倡这种挂QQ等级的做法。