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

If iCode < 0 Then

MyKBHFunc = CallNextHookEx(hnextHookproc, iCode, wParam, lParam)

Exit Function

End If

If wParam = PM_KEY_SPACE Then @#@#偵測 有沒有按到空格鍵

MyKBHFunc = 1

‘加入自己的代码，用于表明响应

form1.text1.text=”Hook成功！”

End If

End Function

4.在Form中的代码很简单：

Private Sub Form_Load()

Call EnableKBDHook

End Sub

Private Sub Form_Unload(Cancel As Integer)

Call UnHookKBD

End Sub

打完收工！现在在form窗体状态下，敲空格键，就会响应你在MyKBHFunc函数中写的代码了。

二、那么，在vb.net中对API的调用和Hook的实现上作了什么样的变化呢？

我们对应着一个问题一个问题来看：

1. 新建一个module，先写一下API的声明：

Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As HookType, ByVal lpfn As HOOKPROC, ByVal hmod As Integer, ByVal dwThreadId As Integer) As Integer

Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Integer) As Integer