欧美一区二区三区影视,在线日韩影院,亚洲人成电影网站色…

'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)中沒(méi)有運(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ī)打開(kāi)
        If Not myqqin Then '如果沒(méi)有運(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

您可能感興趣的文章:

QQ登錄 PHP OAuth示例代碼
禁止指定QQ號(hào)登錄的bat代碼(前提這個(gè)用戶在這臺(tái)機(jī)器登陸過(guò))
QQ多帳號(hào)自動(dòng)登錄批處理腳本
python登錄QQ郵箱發(fā)信的實(shí)現(xiàn)代碼
利用webqq協(xié)議使用python登錄qq發(fā)消息源碼參考
用VBScript制作QQ自動(dòng)登錄的腳本代碼
js如何調(diào)用qq互聯(lián)api實(shí)現(xiàn)第三方登錄
使用java swing實(shí)現(xiàn)qq登錄界面示例分享
vbs qq自動(dòng)登錄腳本改進(jìn)版
網(wǎng)站接入QQ登錄的兩種方法
QQ互聯(lián)一鍵登錄審核不通過(guò)的解決方案
QQ登錄背景閃動(dòng)效果附效果演示源碼下載

標(biāo)簽：承德阜新錫林郭勒盟鄂爾多斯麗水齊齊哈爾青島黃山

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《VBS取QQ或TM自動(dòng)登錄代碼并防止關(guān)閉的腳本》，本文關(guān)鍵詞 VBS,取,或,自動(dòng),登錄,代碼,；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問(wèn)題，煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們，我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無(wú)關(guān)。

婷婷综合国产,91蜜桃婷婷狠狠久久综合9色 ,九九九九九精品,国产综合av

VBS取QQ或TM自動(dòng)登錄代碼并防止關(guān)閉的腳本