убить все не отвечающие приложения с помощью autoit

Question

Как я могу автоматически закрывать не отвечающие приложения autoit под окнами? Эти типы приложений обычно получают заголовок формы «XXXX (не отвечает)». Я пробовал следующий код, но безуспешно:

; Wait 10 seconds for the a window to appear. 
Local $hWnd = WinWait("Not Responding", "", 10) 

; Wait for 2 seconds before calling the WinKill function. 
Sleep(2000) 

; Kill the window using the handle returned by WinWait. 
WinKill($hWnd, "") 

Answer 1

Используйте это для теста. (Нужно положить его в петле, если вы хотите, чтобы проверить каждые х секунды)

Opt('WinTitleMatchMode', 2) 
Opt('WinSearchChildren', 1) 

Local $var = WinList() 
Local $s_PID_Buffer 
For $i = 2 To $var[0][0] 
    If BitAND(WinGetState($var[$i][1]), 2) Then 
     ; is visible 
     If Not StringInStr($s_PID_Buffer, ";" & WinGetProcess($var[$i][1]) & ";") Then 
      ; show PID only once 
      $s_PID_Buffer &= ";" & WinGetProcess($var[$i][1]) & ";" 
      ConsoleWrite($i & @TAB & "Title=" & $var[$i][0] & @LF & "Handle=" & $var[$i][1] & @CRLF & "PID: " & WinGetProcess($var[$i][1]) & @CRLF & @CRLF) 
      If StringInStr($var[$i][0], 'Not Responding') Then 
       ProcessClose(WinGetProcess($var[$i][1])) 
       WinKill($var[$i][1]) 
      EndIf 
     EndIf 
    EndIf 
Next 

Answer 2

Вашего кода хорошо, вам просто нужно установить WinTitleMatchMode для того, чтобы соответствовать названию подстроки.

Opt("WinTitleMatchMode", 2) ;1=start, 2=subStr, 3=exact, 4=advanced, -1 to -4=Nocase 

; Wait 10 seconds for the a window to appear. 
Local $hWnd = WinWait("Not Responding", "", 10) 

; Wait for 2 seconds before calling the WinKill function. 
Sleep(2000) 

; Kill the window using the handle returned by WinWait. 
WinKill($hWnd, "")