VBA获取正在运行的进程的程序名称和任务ID

Question

如何获取正在运行的进程的程序名称和任务ID。 shell()返回发起的进程的任务ID。类似的，我想获得已经运行并且不是由宏创建的进程的任务ID和名称。我发现代码，返回程序的名称，但它的输出缺少任务ID信息：

http://www.vbaexpress.com/forum/archive/index.php/t-36677.html

Sub Test_AllRunningApps() 
    Dim apps() As Variant 
    apps() = AllRunningApps 

    Range("A1").Resize(UBound(apps), 1).Value2 = WorksheetFunction.Transpose(apps) 
    Range("A:A").Columns.AutoFit 
End Sub 

'Similar to: http://msdn.microsoft.com/en-us/library/aa393618%28VS.85%29.aspx 
Public Function AllRunningApps() As Variant 
    Dim strComputer As String 
    Dim objServices As Object, objProcessSet As Object, Process As Object 
    Dim oDic As Object, a() As Variant 

    Set oDic = CreateObject("Scripting.Dictionary") 

    strComputer = "." 

    Set objServices = GetObject("winmgmts:\\" _ 
     & strComputer & "\root\CIMV2") 
    Set objProcessSet = objServices.ExecQuery _ 
     ("SELECT Name FROM Win32_Process", , 48) 

    For Each Process In objProcessSet 
     If Not oDic.exists(Process.Name) Then oDic.Add Process.Name, Process.Name 
    Next 

    a() = oDic.keys 

    Set objProcessSet = Nothing 
    Set oDic = Nothing 

    AllRunningApps = a() 
End Function 

Answer 1

您可以更改SQL读取Select Name, ProcessID FROM Win32_Process

然后在你的For循环，以获取在需要的地方使用Process.Properties_("Name").value和Process.Properties_("ProcessID").value。