vb中使用HOOK技术

VB中的Hook技术应用
　　一、Hook简介
　　Hook这个东西有时令人又爱又怕，Hook是用来拦截系统某些讯息之用，例如说，我们想
　　让系统不管在什么地方只要按个Ctl-B便执行NotePad，或许您会使用Form的KeyPreview
　　，设定为True，但在其他Process中按Ctl-B呢？那就没有用，这是就得设一个Keyboard
　　Hook来拦截所有Key in的键；再如：MouseMove的Event只在该Form或Control上有效，如果希望在Form的外面也能得知Mouse Move的讯息，那只好使用Mouse Hook来栏截Mouse
　　的讯息。再如：您想记录方才使用者的所有键盘动作或Mosue动作，以便录巨集，那就
　　使用JournalRecordHook，如果想停止所有Mosue键盘的动作，而放(执行)巨集，那就
　　使用JournalPlayBack Hook；Hook呢，可以是整个系统为范围(Remote Hook)，即其他
　　Process的动作您也可以拦截，也可以是LocalHook，它的拦截范围只有Process本身。
　　Remote Hook的Hook Function要在.Dll之中，Local Hook则在.Bas中。
　　在VB如何设定Hook呢？使用SetWindowsHookEx()
　　Declare Function SetWindowsHookEx Lib 'user32' Alias 'SetWindowsHookExA' _
　　(ByVal idHook As Long， _
　　ByVal lpfn As Long， _
　　ByVal hmod As Long， _
　　ByVal dwThreadId As Long) As Long
　　idHook代表是何种Hook，有以下几种
　　Public Const WH_CALLWNDPROC = 4
　　Public Const WH_CALLWNDPROCRET = 12
　　Public Const WH_CBT = 5
　　Public Const WH_DEBUG = 9
　　Public Const WH_FOREGROUNDIDLE = 11
　　Public Const WH_GETMESSAGE = 3
　　Public Const WH_HARDWARE = 8
　　Public Const WH_JOURNALPLAYBACK = 1
　　Public Const WH_JOURNALRECORD = 0
　　Public Const WH_KEYBOARD = 2
　　Public Const WH_MOUSE = 7
　　Public Const WH_MSGFILTER = (-1)