看流星社区

 找回密码
 注册账号
查看: 5121|回复: 0

[VB] VB细节之判断窗口是否未响应 判断未响应有两种方法

[复制链接]

该用户从未签到

发表于 2013-6-7 16:30:19 | 显示全部楼层 |阅读模式
1、给程序发消息,得到回应则说明有响应
Cjb = FindWindow(vbNullString, 要检测进程窗体的标题名)
Qqq = SendMessageTimeout(Cjb, WM_NULL, 0, 0, SMTO_ABORTIFHUNG And SMTO_BLOCK, 3000, lngResult)
If Qqq = 0 Then
       进程不正常
else
       进程正常
end if


2、用IsHungAppWindow,推荐使用,不会有第一种收不到消息而卡死的缺陷。
Private Declare Function IsHungAppWindow Lib "user32.dll" ( ByVal hWnd As Long) As Long
Private Sub Form_Load()
    If IsHungAppWindow(窗口句柄) = 0 Then
        MsgBox "进程有响应"
    End If
End Sub
点击按钮快速添加回复内容: 支持 高兴 激动 给力 加油 苦寻 生气 回帖 路过 感恩
您需要登录后才可以回帖 登录 | 注册账号

本版积分规则

小黑屋|手机版|Archiver|看流星社区 |网站地图

GMT+8, 2024-3-29 16:29

Powered by Kanliuxing X3.4

© 2010-2019 kanliuxing.com

快速回复 返回顶部 返回列表