Public Declare Function RegisterHotKey Lib "user32" Alias "RegisterHotKey" (ByVal hwnd As Long, ByVal id As Long, ByVal fsModifiers As Long, ByVal vk As Long) As Long
Public Declare Function UnregisterHotKey Lib "user32" Alias "UnregisterHotKey" (ByVal hwnd As Long, ByVal id As Long) As Long
'建立Hook函数如下:
Public Function Hook(HookHwnd As Long) As Long
Hook = SetWindowLong(HookHwnd, GWL_WNDPROC, AddressOf WindowProc)
End Function
’处理Hook的过程如下:
Function WindowProc(ByVal hw As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
On Error GoTo ErrOnWindowProc
'// 此处进行消息处理
Select Case uMsg
Case WM_KEYDOWN
'//消息处理,注意wParam和lParam的值,它是你想要的
End Select
'退出时记得UnHook呵!!!!!!!!
Public Function UnHook(HookHwnd As Long, lpPrevWndProc As Long) As Long
UnHook = SetWindowLong(HookHwnd, GWL_WNDPROC, lpPrevWndProc)
End Function