AU3-进程名获取窗口名

 

#Include <WinAPI.au3>

Dim $arr = ProcessList("PersonalClient.exe")
$PID = 0

If $arr[0][0] > 0 Then
 $PID = $arr[1][1]
Else
 Exit
EndIf

Dim $arr1 = WinList()

For $i = 1 To $arr1[0][0]
 $hwnd =  $arr1[$i][1]
 
 If  _WinAPI_IsWindow($hwnd)  And WinGetProcess($hwnd) == $PID  And _WinAPI_IsWindowVisible($hwnd) Then
  ;//结果
  MsgBox(0,0,$arr1[$i][0])
  ExitLoop
 EndIf  
Next