怎样使用hook接收键盘输入?

[dz08039]

使用hook接收键盘输入,一个按键动作会产生几个响应.求教,哪里出错了.
一个按键输出到debug上至少有4个



Function MyHookKeyBoard() As Boolean
lHandle = SetWindowsHookEx(WH_KEYBOARD, AddressOf MyKeyBoardProcess, 0, App.ThreadID)
bSuccess = False
MyHookKeyBoard = False
If lHandle <> 0 Then
bSuccess = True
MyHookKeyBoard = True
End If
End Function

Function MyKeyBoardProcess(ByVal code As Integer, ByVal wParam As Long, lParam As Long) As Long
Debug.Print Chr(wParam)
Select Case wParam
Case vbKeyEscape
bEnd = True
End Select
MyKeyBoardProcess = CallNextHookEx(lHandle, code, wParam, lParam)
End Function

[dz08039]

高手啊,说一下吧

[xxxcyy]

帮你顶