【VFB】钩子（VFB教程4-5）
此处为VisualFreeBasic编程教程(从零开始学或VB进阶)的子章节部分，全部目录点链接。Common SharedKeyboardHandle As HHOOKFunction HookKeyboard(ByVal TID As Ulong ) As HHOOK'定义键盘钩子KeyboardHandle = SetWindowsHookEx(WH_KEYBOARD, @KeyboardCallback, App.hInstance, TID)
'1 钩子类型
'2 回调函数地址
'3 实例句柄
'4 线程ID=0 钩全部
Function=KeyboardHandle
End Function
Common Shared MouseboardHandle As HHOOK
Function HookMouBoard(ByVal TID As Ulong ) As HHOOK '定义鼠标钩子
MouseboardHandle = SetWindowsHookEx(WH_MOUSE, @MouseboardCallback, App.hInstance, TID)
'1 钩子类型
'2 回调函数地址
'3 实例句柄
'4 线程ID=0 钩全部
Function=MouseboardHandle
End Function启动窗口中放HookKeyboard 0 '拦截全部HookKeyboard GetWindowThreadProcessId(窗口句柄,@i) 只拦截自己软件HookMouBoard 0 '拦截全部关闭窗口中放UnhookWindowsHookEx(KeyboardHandle)UnhookWindowsHookEx(MouseboardHandle)鼠标钩子返回Function MouseboardCallback(ByVal Code As Long, ByVal wParam As wParam, ByVal lParam As lParam) As Long If Code=HC_ACTION Then
End If
Function = CallNextHookEx(MouseboardHandle, Code, wParam, lParam)
End Function键盘钩子返回Function KeyboardCallback(ByVal nCode As Long, ByVal wParam As WPARAM, ByVal lParam As LPARAM) As LRESULTIf nCode = HC_ACTION Then
Dim aa As String =Bin(lParam,32) '第1个 =0 按下， =1 释放
End If
Function = CallNextHookEx(KeyboardHandle, nCode, wParam, lParam)
End Function其它钩子SetWindowsHookEx(idHook: Integer; {钩子类型}
lpfn: TFNHookProc; {函数指针}
hmod: HINST; {包含钩子函数的模块(EXE、DLL)句柄; 一般是 HInstance; 如果是当前线程这里可以是 0}
dwThreadId: DWORD{关联的线程; 可用 GetCurrentThreadId 获取当前线程; 0 表示是系统级钩子}
): HHOOK; {返回钩子的句柄; 0 表示失败}
//钩子类型 idHook 选项:
WH_MSGFILTER = -1; {线程级; 截获用户与控件交互的消息}
WH_JOURNALRECORD = 0;{系统级; 记录所有消息队列从消息队列送出的输入消息, 在消息从队列中清除时发生; 可用于宏记录}
WH_JOURNALPLAYBACK = 1;{系统级; 回放由 WH_JOURNALRECORD 记录的消息, 也就是将这些消息重新送入消息队列}
WH_KEYBOARD = 2;{系统级或线程级; 截获键盘消息}
WH_GETMESSAGE = 3;{系统级或线程级; 截获从消息队列送出的消息}
WH_CALLWNDPROC = 4;{系统级或线程级; 截获发送到目标窗口的消息, 在 SendMessage 调用时发生}
WH_CBT = 5;{系统级或线程级; 截获系统基本消息, 譬如: 窗口的创建、激活、关闭、最大最小化、移动等等}
WH_SYSMSGFILTER = 6;{系统级; 截获系统范围内用户与控件交互的消息}
WH_MOUSE = 7;{系统级或线程级; 截获鼠标消息}
WH_HARDWARE = 8;{系统级或线程级; 截获非标准硬件(非鼠标、键盘)的消息}
WH_DEBUG = 9;{系统级或线程级; 在其他钩子调用前调用, 用于调试钩子}
WH_SHELL = 10; {系统级或线程级; 截获发向外壳应用程序的消息}
WH_FOREGROUNDIDLE= 11; {系统级或线程级; 在程序前台线程空闲时调用}
WH_CALLWNDPROCRET= 12; {系统级或线程级; 截获目标窗口处理完毕的消息, 在 SendMessage 调用后发生}
啥也不说了，感谢楼主分享哇！
页:
[1]