如何使用 Excel VBA 获取 Windows 应用程序进程 mainwindowtitle 和窗口状态属性？

Question

需要帮助使用Excel VBA 脚本获取 mainwindowtitle 或窗口状态属性？

在我的 Windows 机器上，我有两个进程以相同的名称运行，例如 xyz.exe。

其中一个有 Windows 应用程序，另一个是帮助程序或后台进程。我想使用 mainwindowtitle 或窗口状态属性找出哪个是 windows 应用程序进程。

之所以选择这些属性，是因为后台进程没有主窗口标题，窗口状态为空。下面是显示两个进程的进程浏览器屏幕截图。

对脚本和应用程序使用 WMI 任务我可以轻松找到进程 ID，但我无法弄清楚如何获取 mainwindowtitle 或窗口状态属性。

Private Sub getP()       
    strComputer = "."
    sExeName = "XYZ.exe"

    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
    Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Process 
    WHERE Name = '" & sExeName & "'", , 48)

    For Each objItem In colItems
      Debug.Print "ProcessId: " & objItem.ProcessId
    Next
End Sub

Answer 1

根据大卫在评论中提到的内容，试试这个：

Private Const GW_HWNDNEXT = 2
Private Declare Function GetWindow Lib "user32" (ByVal hWnd As Long, ByVal wCmd As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hWnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hWnd As Long, ByVal lpString As String, ByVal cch As Long) As Long

Sub ListWins(Optional Title = "*XYZ*", Optional Class = "*")
    Dim hWndThis As Long
    hWndThis = FindWindow(vbNullString, vbNullString)
    While hWndThis
        Dim sTitle As String, sClass As String
        sTitle = Space$(255)
        sTitle = Left$(sTitle, GetWindowText(hWndThis, sTitle, Len(sTitle)))
        sClass = Space$(255)
        sClass = Left$(sClass, GetClassName(hWndThis, sClass, Len(sClass)))
        If sTitle Like Title And sClass Like Class Then
            Debug.Print sTitle, sClass
        End If
        hWndThis = GetWindow(hWndThis, GW_HWNDNEXT)
    Wend
End Sub