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

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

 

代码：

 

 

 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 L