VB.net中HOOK的应用(CNET中文网)

2. 定义的常量是：

Public hnextHookproc As Long

Public Const WH_KEYBOARD = 2 ‘这个是表明Hook的种类是键盘Hook

Public Const PM_KEY_SPACE = &H20 ‘空格键

或者，实际上也是，我在程序中对上面的第二句写法改变了一下，也没什么了，就是多交待一点东西给朋友们嘛：

Public Enum HookType

WH_KEYBOARD = 2

End Enum

定义成了一个枚举。其实Hook的种类真的很多，比如有：WH_CALLWNDPROC、WH_CALLWNDPROCRET、WH_CBT 、WH_DEBUG、WH_GETMESSAGE等等。所以你不妨写一个枚举，以达到一劳永逸的目的。

3. 代码段

Module Module1

Public frm1 As New Form1() ‘这个的作用，最后再说

Declare Function GetCurrentThreadId Lib "kernel32" Alias "GetCurrentThreadId" () As Integer

Declare Function SetWindowsHookEx Lib "user32" Alias _

"SetWindowsHookExA" (ByVal idHook As Integer, ByVal lpfn As HOOKPROC, _

ByVal hmod As Integer, ByVal dwThreadId As Integer) As Integer

Declare Function UnhookWindowsHookEx Lib "user32" _