如何使用Excel VBA獲取Windows應用程序主窗口和窗口狀態屬性？

Question

需要幫助獲取主窗口或窗口狀態屬性使用Excel VBA腳本？

在我的Windows機器上，我有兩個進程以相同的名字運行，例如xyz.exe。

其中一個有Windows應用程序，另一個是幫助程序或後臺進程。我想使用mainwindowtitle或window status屬性來找出哪一個是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" `enter code here`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