<ul id="g60s4"><pre id="g60s4"></pre></ul>
<strong id="g60s4"><nav id="g60s4"></nav></strong>
<ul id="g60s4"></ul>
    • 

    <tr id="g60s4"></tr>
    • 

  • 


    

    




    
    

    


    


    
    
    
    
    
        
    
            
        
    
        
        
        
        
    
    

    

    或者
    

    

    

    

        

    




    
    
    
        
        
    
            
    
                    
                
    昵稱：徐小樣
    
                接單：1188
                  關(guān)注TA
                
    
                    達(dá)標(biāo)率
                    
                    0%
                
    
                
            
    
            
            

            
        
    

        
        
    
            
    
                
    
                    
    殺死指定進(jìn)程名稱的小VBS
    
                    
    
                        作者：徐小樣
                        瀏覽：207次
                        發(fā)布時(shí)間：2018-03-22
                    
    
                    
    
                        分享
                        評(píng)論
                        贊0
                    
    
                
    
                
    
                     
    以下是一小段殺死指定進(jìn)程名字的小vbs，希望對(duì)大家有幫助。
    ?
    1
    2
    3
    4
    5
    6
    7
    8
    Function KillProc(strProcName)
    On Error Resume Next
     Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
     Set arrProcesses = objWMIService.ExecQuery( "select * from win32_process where Name ='"&strProcName&"'" )
     For Each proccess In arrProcesses
     proccess.Terminate 0 
     Next
    End Function
    VBS命令-進(jìn)程操作代碼(檢測進(jìn)程, 結(jié)束進(jìn)程)
    ?
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    72
    73
    74
    75
    76
    77
    78
    79
    80
    81
    82
    83
    84
    85
    86
    87
    88
    89
    90
    91
    92
    93
    94
    95
    96
    97
    98
    99
    100
    101
    102
    103
    104
    105
    106
    107
    108
    109
    110
    111
    112
    113
    114
    115
    116
    117
    118
    119
    120
    121
    122
    123
    124
    125
    126
    127
    128
    129
    130
    131
    132
    133
    134
    //檢測進(jìn)程
    進(jìn)程名 = "qq.exe"
    返回值 = IsProcess(進(jìn)程名)
    If 返回值 = True Then
    MessageBox "發(fā)現(xiàn)進(jìn)程"
    ElseIf 返回值 = False Then
    MessageBox "沒有發(fā)現(xiàn)進(jìn)程"
    End If
    //檢測進(jìn)程 優(yōu)化后的代碼
    If IsProcess("qq.exe") = True Then
    MessageBox "發(fā)現(xiàn)進(jìn)程"
    Else
    MessageBox "沒有發(fā)現(xiàn)進(jìn)程"
    End If
    //檢測進(jìn)程組
    進(jìn)程組 = "qq.exe|notepad.exe"
    返回值 = IsProcessEx(進(jìn)程組)
    If 返回值 = True Then
    MessageBox "發(fā)現(xiàn)進(jìn)程"
    ElseIf 返回值 = False Then
    MessageBox "沒有發(fā)現(xiàn)進(jìn)程"
    End If
    //檢測進(jìn)程組 優(yōu)化后的代碼
    If IsProcessEx("qq.exe|notepad.exe") = True Then
    MessageBox "發(fā)現(xiàn)進(jìn)程"
    Else
    MessageBox "沒有發(fā)現(xiàn)進(jìn)程"
    End If
    //結(jié)束進(jìn)程 前臺(tái)執(zhí)行
    進(jìn)程名 = "qq.exe"
    Call CloseProcess(進(jìn)程名, 1)
    //結(jié)束進(jìn)程 后臺(tái)執(zhí)行
    進(jìn)程名 = "qq.exe"
    Call CloseProcess(進(jìn)程名, 0)
    //結(jié)束進(jìn)程組 前臺(tái)執(zhí)行
    進(jìn)程組 = "qq.exe|notepad.exe"
    Call CloseProcessEx(進(jìn)程組, 1)
    //結(jié)束進(jìn)程組 后臺(tái)執(zhí)行
    進(jìn)程組 = "qq.exe|notepad.exe"
    Call CloseProcessEx(進(jìn)程組, 0)
    //實(shí)例應(yīng)用 結(jié)束進(jìn)程 前臺(tái)執(zhí)行 10秒超時(shí)
    進(jìn)程名 = "qq.exe"
    For 10
    Call CloseProcess(進(jìn)程名,1)
    Delay 1000
    返回值 = IsProcess(進(jìn)程名)
    If 返回值 = False Then
    Exit For
    End If
    Next
    If 返回值=True Then
    MessageBox "結(jié)束進(jìn)程失敗"
    Else
    MessageBox "結(jié)束進(jìn)程成功"
    End If
    //實(shí)例應(yīng)用 結(jié)束進(jìn)程 前臺(tái)執(zhí)行 優(yōu)化后的代碼(直到型循環(huán)) 有些進(jìn)程VBS檢測不到 所以先關(guān)閉后檢測
    Do
    Call CloseProcess("qq.exe",1)
    Delay 1000
    Loop While IsProcess("qq.exe")=True
    MessageBox "結(jié)束進(jìn)程成功"
    //實(shí)例應(yīng)用 結(jié)束進(jìn)程組 后臺(tái)執(zhí)行 10秒超時(shí)
    進(jìn)程組 = "qq.exe|notepad.exe"
    For 10
    Call CloseProcessEx(進(jìn)程組,0)
    Delay 1000
    返回值 = IsProcessEx(進(jìn)程組)
    If 返回值 = False Then
    Exit For
    End If
    Next
    If 返回值=True Then
    MessageBox "結(jié)束進(jìn)程失敗"
    Else
    MessageBox "結(jié)束進(jìn)程成功"
    End If
    //實(shí)例應(yīng)用 結(jié)束進(jìn)程組 后臺(tái)執(zhí)行 優(yōu)化后的代碼(直到型循環(huán)) 有些進(jìn)程VBS檢測不到 所以先關(guān)閉后檢測
    Do
    Call CloseProcessEx( "qq.exe|notepad.exe",0)
    Delay 1000
    Loop While IsProcessEx( "qq.exe|notepad.exe")=True
    MessageBox "結(jié)束進(jìn)程成功"
    //函數(shù) 子程序部分代碼
    //檢測進(jìn)程
    Function IsProcess(ExeName)
    Dim WMI, Obj, Objs,i
    IsProcess = False
    Set WMI = GetObject("WinMgmts:")
    Set Objs = WMI.InstancesOf("Win32_Process")
    For Each Obj In Objs
    If InStr(UCase(ExeName),UCase(Obj.Description)) <> 0 Then
    IsProcess = True
    Exit For
    End If
    Next
    Set Objs = Nothing
    Set WMI = Nothing
    End Function
    //結(jié)束進(jìn)程
    Sub CloseProcess(ExeName,RunMode)
    dim ws
    Set ws = createobject("Wscript.Shell")
    ws.run "cmd.exe /C Taskkill /f /im " & ExeName,RunMode
    Set ws = Nothing
    End Sub
    //檢測進(jìn)程組
    Function IsProcessEx(ExeName)
    Dim WMI, Obj, Objs,ProcessName,i
    IsProcessEx = False
    Set WMI = GetObject("WinMgmts:")
    Set Objs = WMI.InstancesOf("Win32_Process")
    ProcessName=Split(ExeName,"|")
    For Each Obj In Objs
    For i=0 to UBound(ProcessName)
    If InStr(UCase(ProcessName(i)),UCase(Obj.Description)) <> 0 Then
    IsProcessEx = True
    Exit For
    End If
    Next
    Next
    Set Objs = Nothing
    Set WMI = Nothing
    End Function
    //結(jié)束進(jìn)程組
    Sub CloseProcessEx(ExeName,RunMode)
    dim ws,ProcessName,CmdCode,i
    ProcessName = Split(ExeName, "|")
    For i=0 to UBound(ProcessName)
    CmdCode=CmdCode & " /im " & ProcessName(i)
    Next
    Set ws = createobject("Wscript.Shell")
    ws.run "cmd.exe /C Taskkill /f" & CmdCode,RunMode
    Set ws = Nothing
    End Sub

    
                     
                
    
            
    
            
        
    
    
    

    





    



        
        

    


    




    

    





国产精品白嫩美女在线观看|
精品久久久久久中文字幕无码|
国产午夜亚洲精品不卡|
久久精品亚洲综合|
日韩一区二区三区免费播放|
亚洲福利一区二区精品秒拍|
国产精品gz久久久|
精品剧情v国产在线麻豆|
精品精品国产自在久久高清|
日韩一级在线视频|
国产欧美一区二区精品仙草咪|
国产精品美女久久久m|
精品无码中出一区二区|
www国产精品内射老熟女|
久久精品人人做人人爽电影蜜月|
国产成人综合久久精品尤物|
日韩在线视频一区|
秋霞日韩一区二区三区在线观看|
99久久这里只精品国产免费|
免费精品99久久国产综合精品|
中文字幕一区二区三区日韩精品|
国产三级精品三级男人的天堂|
91成人精品视频|
韩国三级中文字幕hd久久精品|
精品人妻少妇一区二区三区|
亚洲欧洲日韩国产综合在线二区|
成人三级精品视频在线观看|
99在线精品视频|
香蕉伊思人在线精品|
国产成人综合日韩精品无码不卡|
亚洲91精品麻豆国产系列在线|
97精品在线观看|
亚洲国产精品白丝在线观看|
精品国产VA久久久久久久冰|
国产精品美女久久久久|
久久精品aⅴ无码中文字字幕|
色妞ww精品视频7777|
99精品国产高清一区二区三区|
国产精品久久精品福利网站|
无码国内精品久久综合88|
人人妻人人澡人人爽精品日本|