VBS取QQ或TM自动登录代码并防止关闭的脚本
作者 佚名
来源 ASP编程
浏览
发布时间 2013-07-09
| ''DimQQUIN SetobjWMIService=GetObject_ ("winmgmts:\\"&"."&"\root\cimv2") Setps=objWMIService.ExecQuery_ ("SELECT*FROMWin32_process") ForEachpsinps''列出系统中所有正在运行的程序 ''foreachpsingetobject("winmgmts:\\\\.\\root\\cimv2:win32_process").instances_''列出系统中所有正在运行的程序 IfLCase(ps.Name)="qq.exe"OrLCase(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号码. EndIf Next IfLen(QQUIN)=0Then MsgBox"系统中没有运行QQ或TM程序,请重新启动QQ或TM,登陆后再使用一键换切换一下QQ或TM程序,再运行本脚本" Else Do''循环检测 myqqin=chkuin(QQUIN)''检测上面提取出来的QQ号码是否有在本机打开 IfNotmyqqinThen''如果没有运行则,重新运行QQ程序并登录 runapp(AppPath)'' wscript.sleep10000''等待10秒 Else wscript.sleep5000''等待5秒 EndIf Loop''返回继续检测 EndIf FunctionRunApp(AppPath) Dimobj Setobj=CreateObject("WScript.Shell") obj.exec(AppPath) EndFunction Functionchkuin(QQUIN) SetobjWMIService=GetObject_ ("winmgmts:\\"&"."&"\root\cimv2") Setps=objWMIService.ExecQuery_ ("SELECT*FROMWin32_process") ForEachpsinps''列出系统中所有正在运行的程序 ''foreachpsingetobject("winmgmts:\\\\.\\root\\cimv2:win32_process").instances_ IfLCase(ps.Name)="qq.exe"OrLCase(ps.Name)="tm.exe"Then AppPatht=ps.commandline ''bychenallqq368178720 tmp=Replace(AppPatht,Chr(34),Space(1)) UIN1=InStr(tmp,"QQUIN:")+6 QQUINTMP=Mid(tmp,UIN1,InStr(UIN1,tmp,Space(1))-UIN1) IfQQUINTMP=QQUINThenchkuin=TrueEndIf EndIf Next EndFunction |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢! |
你可能对下面的文章感兴趣
上一篇: vbs判读盘符被双击的脚本下一篇: VBS备忘录启动代码
关于VBS取QQ或TM自动登录代码并防止关闭的脚本的所有评论
