vb 关于HOOK阻止弹出MsgBox窗口,

发布时间：2020-12-16 22:34:15 所属栏目：大数据来源：网络整理

导读：lionking1990 前来围观 7 1楼该程序使用SetWindowsHookEx设置WH_CBT钩子以截取窗口创建,销毁等消息,MsgBox也不怕核心代码 Public Function Hook_Func(ByVal iCode As Long,ByVal wParam As Long,ByVal lParam As Long) As Long Select Case iCode Case HCB

lionking1990
前来围观

7

1楼

该程序使用SetWindowsHookEx设置WH_CBT钩子以截取窗口创建,销毁等消息,MsgBox也不怕核心代码 Public Function Hook_Func(ByVal iCode As Long,ByVal wParam As Long,ByVal lParam As Long) As Long Select Case iCode Case HCBT_CREATEWND Case HCBT_DESTROYWND Case HCBT_ACTIVATE Dim WinText As String Dim ClsName As String '获取窗口标题及类名 WinText = GetWindowTextString(wParam) ClsName = GetGetClassNameString(wParam) Debug.Print ClsName,GetWindowTextString(wParam) 'VB的弹窗类名 If ClsName = "#32770" Then '发送关闭消息 PostMessage wParam,WM_CLOSE,0 End If End Select Hook_Func = CallNextHookEx(hHook,iCode,wParam,lParam) End Function

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!