VB 2005 中用P/Invoke进行windows HOOK 的方法

Imports  System.Runtime.InteropServices

Public   Class Form1 Class Form1
  Private Structure MOUSEHOOKSTRUCTStructure MOUSEHOOKSTRUCT
    Public pt As Point
    Public hWnd As IntPtr
    Public hitTest As Int32
    Public extra As Int32
  End Structure

  Private _mouseHook As Int32 = 0
  Private Const WH_MOUSE As Int32 = 7
  Private Delegate Function CallBack()Function CallBack(ByVal nCode As Int32, ByVal wParam As IntPtr, ByRef lParam As MOUSEHOOKSTRUCT) As Int32
  <MarshalAs(UnmanagedType.FunctionPtr)> Private _mouseProc As CallBack
  Private Declare Function SetWindowsHookExW()Function SetWindowsHookExW Lib "user32.dll" (ByVal idHook As Int32, ByVal HookProc As CallBack, ByVal hInstance As IntPtr, ByVal wParam As Int32) As Int32
  Private Declare Function CallNextHookEx()Function CallNextHookEx Lib "user32.dll" (ByVal idHook As Int32, ByVal nCode As Int32, ByVal wParam As IntPtr, ByRef lParam As MOUSEHOOKSTRUCT) As Int32
  Private Declare Function GetCurrentThreadId()Function GetCurrentThreadId Lib "kernel32.dll" () As Integer

  Private Sub Button1_Click()Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    If _mouseHook = 0 Then
      _mouseProc = New CallBack(AddressOf MouseHookProc)
      _mouseHook = SetWindowsHookExW(WH_MOUSE, _mouseProc, IntPtr.Zero, GetCurrentThreadId)
      Dim err As Integer = Marshal.GetLastWin32Error
    End If
  End Sub

  Private Shared Function MouseHookProc()Function MouseHookProc(ByVal nCode As Int32, ByVal wParam As IntPtr, ByRef lParam As MOUSEHOOKSTRUCT) As Int32
    Debug.Print("Message = {0}, x={1}, y={2}", wParam.ToInt32, lParam.pt.X, lParam.pt.Y)
    Return CallNextHookEx(WH_MOUSE, nCode, wParam, lParam)
  End Function

End Class

 

这是MSDN论坛上一个MVP的代码，贴到这里了^_^ ，下面是原帖子：
http://forums.microsoft.com/MSDN/ShowPost.aspx?PostID=585131&SiteID=1