如何使用VBS取QQ或TM自動(dòng)登錄代碼并防止關(guān)閉

這篇文章主要介紹如何使用VBS取QQ或TM自動(dòng)登錄代碼并防止關(guān)閉，文中介紹的非常詳細(xì)，具有一定的參考價(jià)值，感興趣的小伙伴們一定要看完！

'Dim QQUIN   
Set objWMIService = GetObject _   
                    ("winmgmts:\\" & "." & "\root\cimv2")   
Set ps = objWMIService.ExecQuery _   
         ("SELECT * FROM Win32_process")   
For Each ps in ps '列出系統(tǒng)中所有正在運(yùn)行的程序   

    'for each ps in getobject("winmgmts:\\\\.\\root\\cimv2:win32_process").instances_ '列出系統(tǒng)中所有正在運(yùn)行的程序   
    If LCase(ps.Name) = "qq.exe" Or LCase(ps.Name) = "tm.exe" Then '檢測(cè)是否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號(hào)碼.   
    End If  
Next  
If Len(QQUIN) = 0 Then  
    MsgBox "系統(tǒng)中沒有運(yùn)行QQ或TM程序,請(qǐng)重新啟動(dòng)QQ或TM,登陸后再使用一鍵換切換一下QQ或TM程序,再運(yùn)行本腳本"  
Else  
    Do '循環(huán)檢測(cè)   
        myqqin = chkuin(QQUIN) '檢測(cè)上面提取出來(lái)的QQ號(hào)碼是否有在本機(jī)打開   
        If Not myqqin Then '如果沒有運(yùn)行則,重新運(yùn)行QQ程序并登錄   
            runapp(AppPath) '   
            wscript.sleep 10000 '等待10秒   
        Else  
            wscript.sleep 5000 '等待5秒   
        End If  
    Loop '返回繼續(xù)檢測(cè)   
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 '列出系統(tǒng)中所有正在運(yùn)行的程序   

        '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自動(dòng)登錄代碼并防止關(guān)閉”這篇文章的所有內(nèi)容，感謝各位的閱讀！希望分享的內(nèi)容對(duì)大家有幫助，更多相關(guān)知識(shí)，歡迎關(guān)注億速云行業(yè)資訊頻道！