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
Public Const WM_GETTEXTLENGTH = &HE
Public Const SMTO_NORMAL = &H0
'判断窗口是否被挂起
'hWnd - 欲判断的窗体句柄
'Timeout - 如果目标窗口在指定的时间里没有相应则被视为挂起,以毫秒为单位
'返回 - 被挂起返回true,否则返回false
Function IsWindowBusy(hWnd As Long, Optional Timeout As Long = 60&) As Boolean
If SendMessageTimeout(hWnd, WM_GETTEXTLENGTH, 0&, 0&, SMTO_NORMAL, Timeout, ByVal 0&) = 0 Then
IsWindowBusy = True
'DoEvents
End If
End Function