这是回调
Public Function callbackHook(ByVal ncode As Long, ByVal wParam As Long, ByVal lParam As Long)
Dim kbStruct As KBDLLHOOKSTRUCT
Call CopyMemory(kbStruct, lParam, Len(kbStruct))
If kbStruct.vkCode = vbKeyF1 Then
MsgBox "勾到"
Else
Call CallNextHookEx(oldHook, ncode, wParam, lParam)
End If
End Function
这是数据结构,
Private Type KBDLLHOOKSTRUCT
vkCode As Long
scanCode As Long
flags As Long
time As Long
dwExtraInfo As Long
End Type