VB判断进程或窗口是否无响应，判断程序是否卡死

专注VB编程开发20年

于 2024-06-15 20:39:21 发布

阅读量127

点赞数 2

文章标签： VB6 进程卡死

本文链接：https://blog.csdn.net/xiaoyao961/article/details/139708059

版权

GetWindowTitleLength=-1 代表卡死

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

Private Const INFINITE = -1&
Private Const SMTO_ABORTIFHUNG = &H2



'判断窗口是否被挂起
'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



Public Function GetWindowTitleLength(ByVal hwnd As Long) As Long
'不会卡死，进程假死或不可用
    If SendMessageTimeout(hwnd, WM_GETTEXTLENGTH, 0, ByVal 0&, SMTO_ABORTIFHUNG, INFINITE, GetWindowTitleLength) = 0 Then
        GetWindowTitleLength = -1
    End If
End Function