AutoHotkey Community

; /*
;  * SendMessageTimeout values
;
; #define SMTO_NORMAL         0x0000
; #define SMTO_BLOCK          0x0001
; #define SMTO_ABORTIFHUNG    0x0002
; #if(WINVER >= 0x0500)
; #define SMTO_NOTIMEOUTIFNOTHUNG 0x0008
; #endif /* WINVER >= 0x0500 */
; #endif /* !NONCMESSAGES */
;
;
; SendMessageTimeout(
;     __in HWND hWnd,
;     __in UINT Msg,
;     __in WPARAM wParam,
;     __in LPARAM lParam,
;     __in UINT fuFlags,
;     __in UINT uTimeout,
;     __out_opt PDWORD_PTR lpdwResult);
;     */

NR_temp =0 ; init
TimeOut = 100 ; milliseconds to wait before deciding it is not responding - 100 ms seems reliable under 100% usage
; WM_NULL =0x0000
; SMTO_ABORTIFHUNG =0x0002
WinGet, wid, ID, Calculator ; retrieve the ID of a window to check
Responding := DllCall("SendMessageTimeout", "UInt", wid, "UInt", 0x0000, "Int", 0, "Int", 0, "UInt", 0x0002, "UInt", TimeOut, "UInt *", NR_temp)
If Responding = 1 ; 1= responding, 0 = Not Responding
  Msgbox, Responding
Else
  Msgbox, Not Responding

loop, 500
{
WinWait, Address Book #1 - ASG-Cypress,
IfWinNotActive, Address Book #1 - ASG-Cypress, , WinActivate, Address Book #1 - ASG-Cypress,
WinWaitActive, Address Book #1 - ASG-Cypress,
MouseClick, left,  299,  17
Sleep, 100
MouseClick, left,  536,  223
Sleep, 100
WinWait, UI,
IfWinNotActive, UI, , WinActivate, UI,
WinWaitActive, UI,
MouseClick, left,  209,  92
Sleep, 90000
}

NR_temp =0 ; init
TimeOut = 100 ; milliseconds to wait before deciding it is not responding - 100 ms seems reliable under 100% usage
; WM_NULL =0x0000
; SMTO_ABORTIFHUNG =0x0002
WinGet, wid, ID, Calculator ; retrieve the ID of a window to check
Loop
{
Global NR_temp, TimeOut, wid
Responding := DllCall("SendMessageTimeout", "UInt", wid, "UInt", 0x0000, "Int", 0, "Int", 0, "UInt", 0x0002, "UInt", TimeOut, "UInt *", NR_temp)
If Responding = 1 ; 1= responding, 0 = Not Responding
  Break
Sleep, 500 ; wait half a second before trying again
}