从任务管理器获取应用程序名称

Question

我正在尝试在任务管理器的“应用程序”选项卡中获取正在运行的应用程序的“任务名称”。到目前为止，我设法从任务管理器的“进程”选项卡中获取“图像名称”。例如，如果我在“进程”选项卡中运行多个visual basic会话，我将获得多个“VB6.EXE”，实际上我想要进程名称，因此项目名称正在运行，可以在“应用程序”选项卡中找到是“ProjectName - Microsoft Visual Basic”。你知道我怎么能这样做吗？下面是我的代码：

Set Service = GetObject("winmgmts:")
Dim rc As Long

' Looping through all processes listed in Task manager and checking if process name is the same
For Each Process In Service.InstancesOf("Win32_Process")
    If Process.Name = "VB6.EXE" Then
    ' If InStr(Process.Name, "MyProjectName - Microsoft Visual Basic") > 0 Then
        Stop
    End If
    If Process.Name = "MyProjectName.exe" Then
        rc = MsgBox("Betswork already running! This instance will be killed!", vbCritical, App.Title)
        End
    End If
Next