Question

用vb怎么提取进程PID

我只要最核心的那个语句，不要其他的，比如用text输入进程名称和显示PID这样的代码都不用说！是这样的请绕开！

Answer 1

Private Sub Command1_Click()
    Dim Wmi As Object, A As Object
    Set Wmi = GetObject("Winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
    Set A = Wmi.Execquery("Select * From Win32_Process")
    'Dim b As Object
    'For Each b In A
        'Debug.Print b.ProcessID & vbTab & b.Name, b.CommandLine
    'Next
End Sub

列出全部进程。不显示不全啊，所以注释掉了，就当没写。

追问

知道进程名称怎么查呢，怎么把pid直接输入到一个变量里面

追答

 Function GetProcessID(ByVal ProcessName As String) As Long
    Dim Wmi As Object, A As Object
    Set Wmi = GetObject("Winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
    Set A = Wmi.Execquery("Select * From Win32_Process")
    Dim b As Object
    ProcessName = LCase(ProcessName)
    For Each b In A
        If LCase(b.Name) = ProcessName Then
            GetProcessID = b.ProcessID
            Exit Function
        End If
        'Debug.Print b.ProcessID & vbTab & b.Name, b.CommandLine
    Next
End Function

函数：获取进程标识

参数：进程名

返回：进程Id

Answer 2

这个问题很雷神!!
输进程名,显PID 的代码还不要,还要核心的,还要提取PID ,神都迷糊了!!