脚本宝典收集整理的这篇文章主要介绍了VBS取QQ或TM自动登录代码并防止关闭的脚本，脚本宝典觉得挺不错的，现在分享给大家，也给大家做个参考。

'Dim QQUIN   
Set objWMIService = GetObject _   
                    ("winmgmts:\\" & "." & "\root\cimv2")   
Set ps = objWMIService.ExecQuery _   
         ("SELECT * From Win32_PRocess")   
For each ps in ps '列出系统中所有正在运行的程序   

    '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)   
    Set objWMIService = GetObject _   
                        ("winmgmts:\\" & "." & "\root\cimv2")   
    Set ps = objWMIService.ExecQuery _   
             ("SELECT * From Win32_process")   
    For Each ps in ps '列出系统中所有正在运行的程序   

        '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取QQ或TM自动登录代码并防止关闭的脚本所遇到的问题。

如果觉得脚本宝典网站内容还不错，欢迎将脚本宝典推荐好友。

本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ：384754419，请注明来意。