【VB】VB根据PID结束进程 结束指定PID进程

VB根据PID值结束指定进程：

Private Function JieSuJinCheng(Pid As String)                                   '根据PID结束进程
    On Error GoTo Over
    Dim Wmi
    For Each Wmi In GetObject("winmgmts:.rootcimv2:win32_process").instances_ '循环进程
        If Wmi.ProcessID = Pid Then Wmi.Terminate
    Next
Over:
End Function

JieSuJinCheng ("某进程的PID值")