请提供至少两种判断程序卡死(无响应)的思路,请写出关键代码.请写出代码

 请提供至少两种判断程序卡死(无响应)的思路,请写出关键代码.请写出代码

 

代码：

 

 

 Private Declare Function IsHungAppWindow Lib "user32.dll" ( ByVal hWnd As Long) As Long

 Sub 子程序()

 Hwnd = Plugin.Window.MousePoint()

 If IsHungAppWindow(Hwnd)=0 Then         

 MsgBox "窗口正常"

 End If 

 End Sub

 

 

 Private Declare Function IsHungAppWindow Lib "user32.dll" ( ByVal hWnd As Long) As Long

 Hwnd = Plugin.Window.MousePoint()

 If IsHungAppWindow(Hwnd)=0 Then 

        MsgBox "窗口正常"

Else

MsgBox "程序卡死(无响应)"

 

 End If

 

 

 1-6级按键认证答案大全下载：

(复制打开→) url7.me/S4Vk1