如何知道窗口是否无响应或卡屏呢

作者 & 编辑：按键学院   【按键精灵】

开开心心做设计，敲代码……

顺顺利利调试运行，美滋滋的上万行代码，遛遛的通过了语法检查……

咦，突然不动了......

卡……卡屏了么。。。窗口无响应。。。。程序停止运行。。。浏览器崩溃。。

TMD在逗我。。

        窗口无响应，卡屏，浏览器崩溃……一直是脚本作者们头疼的问题。大多数人在遇到无响应等问题的时候，如果是重要的数据只能选择等待，忍无可忍时强制关闭程序。可是，下一次遇到无响应问题该怎么办呢？如何一劳永逸解决这个头疼点呢？

 

知识拓展                                                     

疑问：为什么会出现卡屏、窗口无响应等情况呢？

电脑卡屏、窗口无响应的原因很多，针对脚本作者，可能有如下原因造成：

1. 硬件配置问题

       如：硬盘坏道、cpu过热等等（扫描硬盘、检查CPU风扇）。还有可能是驱动不兼容问题（扫描显卡或其他驱动，判断是否是最适应的）

2. 内存消耗问题

程序运行时，消耗的内存太大，导致窗口无响应、卡屏等情况发生。（更换内存，加大内存）

3. 电脑机箱长期未清理

电脑机箱里面内存条进灰尘，拆开机箱，拆下内存条，清洁下内存金手指（用橡皮擦擦拭，或者用浸泡过酒精，拧干的湿布），重新装回去，就可能可以了。

 

解决方案                                                     

'方案一：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

思路解析：以上方法通过调用系统win32的窗口通用控制类API：IsHungAppWindow，用来检测窗口是否为未响应。

        通过要判断的窗口的句柄，进行IsHungAppWindow检测。若检测到窗口响应，则说明窗口正常响应，返回消息“窗口正常”。若检测到窗口无响应，则返回消息“窗口未响应”。

 

'方案二：发消息

'给程序发消息，得到回应则说明有响应

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

        注：Cjb = FindWindow(vbNullString, 要检测进程窗体的标题名)，这里需要用双引号输入要检测进程窗体的标题名，例如"按键精灵"。

        思路解析：以上方法调用了2个系统API。

       调用系统API：findwindow，该函数获得一个顶层窗口的句柄,该窗口的类名和窗口名与给定的字符串相匹配。这个函数不查找子窗口。

       调用系统API：SendMessageTimeout，该函数将指定的消息发送到一个或多个窗口。

       通过给进程窗体发消息来判断窗口是否响应是否正常。若能检测到进程窗体的标题，则返回“进程正常”，若检测不到，则返回“进程不正常”。

        注：Qqq = SendMessageTimeout(Cjb, WM_NULL, 0, 0, SMTO_ABORTIFHUNG And SMTO_BLOCK, 3000, lngResult)这里的3000是延迟时间，程序运行到这一段的时候，软件会有3s的延迟时间。这个参数的设置，大大们可以根据自己电脑的配置来进行设置哦。要是配置ok，反应迅速，500的延迟也就够了。