form1中的代码：
Dim WindowHandle As Long

Private Sub Form_Click()
    SendMessage WindowHandle, WM_CLOSE, 0, 0
End Sub

Private Sub Form_Load()
    WindowHandle = FindWindow(vbNullString, "新建 文本文档 - 记事本")
    Debug.Print WindowHandle
    pWndProc = GetWindowLong(WindowHandle, GWL_WNDPROC)  '获取当前窗口的消息地址

    SetWindowLong WindowHandle, GWL_WNDPROC, AddressOf WindowProc    '把地址指向模块中的 WindowProc 回调函数

End Sub

Private Sub Form_Unload(Cancel As Integer)

    SetWindowLong WindowHandle, GWL_WNDPROC, pWndProc    '不在处理窗体默认的消息时应该返回给系统

End Sub


模块modulel中的代码：
Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Public Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Const WM_CLOSE = &H10
Public Const GWL_WNDPROC = (-4)

Public pWndProc As Long '把它当然指针来使用
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long


Public Function WindowProc(ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

    

    Debug.Print Hex$(Msg)   '以十六进制的方式查看当前的消息情况
     If Msg = WM_CLOSE Then '处理 WM_CLOSE 窗口关闭消息



        WindowProc = 1

        Exit Function



    End If



    

    WindowProc = CallWindowProc(pWndProc, hwnd, Msg, wParam, lParam)    '把不需要处理的消息返回给系统(是把已处理的消息按 lpPrevWndFunc(原窗口消息地址) 返回给该地址)

End Function

  这个程序怎么拦截不了关闭消息，纠结中，麻烦大家帮忙解答。

[ 本帖最后由 nbaqqqq 于 2010-5-2 11:12 编辑 ]

额，没人回。

form1:
Option Explicit


Dim pWndProc As Long

Private Sub Form_Click()
    If wndHandle <> 0 Then
        MsgBox "find it "
    End If
    SendMessage wndHandle, WM_COMMAND, WM_CLOSE, 0
End Sub

Private Sub Form_Load()
    wndHandle = FindWindow(vbNullString, "计算器")              '找的计算器测试的
    If wndHandle <> 0 Then
        MsgBox "find it "
    End If
    pWndProc = GetWindowLong(wndHandle, GWL_WNDPROC)
    SetWindowLong wndHandle, GWL_WNDPROC, AddressOf WndProc
End Sub

Private Sub Form_Unload(Cancel As Integer)
    SetWindowLong wndHandle, GWL_WNDPROC, pWndProc
End Sub
module1:
Option Explicit

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long

Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Public Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Const WM_CLOSE = &H10

Public Const GWL_WNDPROC = (-4)

Public wndHandle As Long

Public Const WM_RBUTTONDOWN = &H204
Public Const WM_COMMAND = &H111

Public Function WndProc(ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    If Msg = WM_COMMAND And wParam = WM_CLOSE Then         '拦截消息
        
    Else
        WndProc = CallWindowProc(wndHandle, hWnd, Msg, wParam, lParam)
    End If
End Function
错在ssendmessage 的参数上了。测试了一下好像达到楼主要求了。

晕，好像还是错了，期待高手解决，潜水学习去了。sorry！

你程序对的，能拦截。就是那个SendMessage wndHandle, WM_COMMAND, WM_CLOSE, 0参数错了。

额，怎么又拦截不了了。

学习中,谢谢

这位大哥，是你在帮我。。。

难道是记事本或计算器获得焦点，消息才会传到回调函数中处理？高手快来帮帮忙啊。

你要干什么？