Dim $arr = ProcessList("aadfa.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
;//结果
ExitLoop
EndIf
Next