按键精灵_关于窗口无响应、卡屏状态的判断判定

'方案一：API
Private Declare Function IsHungAppWindow Lib "user32.dll" ( ByVal hWnd As Long) As Long
Hwnd = Plugin.Window.Find(0, "无")
TracePrint Hwnd
Do
    If IsHungAppWindow(Hwnd)=0 Then 
        i=0'窗口正常，次数归零
        TracePrint "窗口正常"
    Else 
        i=i+1
        If i = 60 Then'如果窗口未响应60次，就弹出窗口
            MsgBox "窗口未响应"
        End If
    End If
    Delay 1000
Loop


'方案二：点色
'得到指定点颜色，通过多次确认是否卡死
Hwnd = Plugin.Window.MousePoint()
Do
    Delay 30000
    B = Plugin.Bkgnd.GetPixelColor(Hwnd,150,5)
    Delay 30000
    C = Plugin.Bkgnd.GetPixelColor(Hwnd,150,5)
    Delay 30000
    D = Plugin.Bkgnd.GetPixelColor(Hwnd,150,5)
    Delay 30000
    E = Plugin.Bkgnd.GetPixelColor(Hwnd,150,5)
    If B = C and D = E Then 
        MessageBox "检查脚本"
    End If
Loop


'方案三：发消息
'给程序发消息，得到回应则说明有响应
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Declare Function SendMessageTimeout Lib "user32" Alias "SendMessageTimeoutA" (ByVal hwnd As Long, ByVal msg As Long, ByVal wParam As Long, ByVal lParam As Long, ByVal fuFlags As Long, ByVal uTimeout As Long, lpdwResult As Long) As Long
Cjb = FindWindow(vbNullString, 要检测进程窗体的标题名)
Qqq = SendMessageTimeout(Cjb, WM_NULL, 0, 0, SMTO_ABORTIFHUNG And SMTO_BLOCK, 3000, lngResult)
If Qqq = 0 Then
    TracePrint "进程不正常"
else
    TracePrint "进程正常"
end if