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, 0
End If
End Select
Hook_Func = CallNextHookEx(hHook, iCode, wParam, lParam)
End Function