CSDN博客

img 3150379

关于钩子函数的讲解

发表于2008/10/3 16:44:00  847人阅读

分类: Delphi

这是win32汇编语言中关于钩子函数的讲解,是丛windows的底层讲的,对于c,vb,delphi语言,原理都相同,只是语法的问题。
  
   WINDOWS钩子函数
  本文中我们将要学习WINDOWS钩子函数的使用方法。WINDOWS钩子函数的功能非常强大,
有了它您可以探测其它进程并且改变其它进程的行为。
  理论:
  WINDOWS的钩子函数可以认为是WINDOWS的主要特性之一。利用它们,您可以捕捉您自己进程或其它进程发生的事件。
通过“钩挂”,您可以给WINDOWS一个处理或过滤事件的回调函数,该函数也叫做“钩子函数”,当每次发生您感兴趣的事件时,
WINDOWS都将调用该函数。一共有两种类型的钩子:局部的和远程的。
  局部钩子仅钩挂您自己进程的事件。
  远程的钩子还可以将钩挂其它进程发生的事件。远程的钩子又有两种:
  基于线程的 它将捕获其它进程中某一特定线程的事件。简言之,就是可以用来观察其它进程中的某一特定线程将发生的事件。
  系统范围的 将捕捉系统中所有进程将发生的事件消息。
  安装钩子函数将会影响系统的性能。监测“系统范围事件”的系统钩子特别明显。因为系统在处理所有的相关事件
时都将调用您的钩子函数,这样您的系统将会明显的减慢。所以应谨慎使用,用完后立即卸载。还有,由于您可以预先
截获其它进程的消息,所以一旦您的钩子函数出了问题的话必将影响其它的进程。记住:功能强大也意味着使用时要负责任。
  在正确使用钩子函数前,我们先讲解钩子函数的工作原理。当您创建一个钩子时,WINDOWS会先在内存中创建一个数据
结构,该数据结构包含了钩子的相关信息,然后把该结构体加到已经存在的钩子链表中去。新的钩子将加到老的前面。
当一个事件发生时,如果您安装的是一个局部钩子,您进程中的钩子函数将被调用。如果是一个远程钩子,系统就必须把钩子
函数插入到其它进程的地址空间,要做到这一点要求钩子函数必须在一个动态链接库中,所以如果您想要使用远程钩子,
就必须把该钩子函数放到动态链接库中去。当然有两个例外:工作日志钩子和工作日志回放钩子。这两个钩子的钩子函数必
须在安装钩子的线程中。原因是:这两个钩子是用来监控比较底层的硬件事件的,既然是记录和回放,所有的事件就当然都
是有先后次序的。所以如果把回调函数放在DLL中,输入的事件被放在几个线程中记录,所以我们无法保证得到正确的次序。
故解决的办法是:把钩子函数放到单个的线程中,譬如安装钩子的线程。
  钩子一共有14种,以下是它们被调用的时机:
  WH_CALLWNDPROC 当调用SendMessage时
  WH_CALLWNDPROCRET 当SendMessage的调用返回时
  WH_GETMESSAGE 当调用GetMessage 或 PeekMessage时
  WH_KEYBOARD 当调用GetMessage 或 PeekMessage 来从消息队列中查询WM_KEYUP 或 WM_KEYDOWN 消息时
  WH_MOUSE 当调用GetMessage 或 PeekMessage 来从消息队列中查询鼠标事件消息时
  WH_HARDWARE 当调用GetMessage 或 PeekMessage 来从消息队列种查询非鼠标、键盘消息时
  WH_MSGFILTER 当对话框、菜单或滚动条要处理一个消息时。该钩子是局部的。它时为那些有自己的消息处理过程的控件对象设计的。
  WH_SYSMSGFILTER 和WH_MSGFILTER一样,只不过是系统范围的
  WH_JOURNALRECORD 当WINDOWS从硬件队列中获得消息时
  WH_JOURNALPLAYBACK 当一个事件从系统的硬件输入队列中被请求时
  WH_SHELL 当关于WINDOWS外壳事件发生时,譬如任务条需要重画它的按钮.
  WH_CBT 当基于计算机的训练(CBT)事件发生时
  WH_FOREGROUNDIDLE 由WINDOWS自己使用,一般的应用程序很少使用
  WH_DEBUG 用来给钩子函数除错
  现在我们知道了一些基本的理论,现在开始讲解如何安装/卸载一个钩子。
  要安装一个钩子,您可以调用SetWindowHookEx函数。该函数的原型如下:
  SetWindowsHookEx proto HookType:DWORD, pHookProc:DWORD, hInstance:DWORD, ThreadID:DWORD
  HookType 是我们上面列出的值之一,譬如: WH_MOUSE, WH_KEYBOARD
  pHookProc 是钩子函数的地址。如果使用的是远程的钩子,就必须放在一个DLL中,否则放在本身代码中
  hInstance 钩子函数所在DLL的实例句柄。如果是一个局部的钩子,该值为NULL
ThreadID 是您安装该钩子函数后想监控的线程的ID号。该参数可以决定该钩子是局部的还是系统范围的。如果该值为NULL,
那么该钩子将被解释成系统范围内的,那它就可以监控所有的进程及它们的线程。如果您指定了您自己进程中的某个线程ID 号,
那该钩子是一个局部的钩子。如果该线程ID是另一个进程中某个线程的ID,那该钩子是一个全局的远程钩子。
这里有两个特殊情况:WH_JOURNALRECORD 和 WH_JOURNALPLAYBACK总是代表局部的系统范围的钩子,之所以说是局部,
是因为它们没有必要放到一个DLL中。WH_SYSMSGFILTER 总是一个系统范围内的远程钩子。其实它和WH_MSGFILTER钩子类似,
如果把参数ThreadID设成0的话,它们就完全一样了。
  如果该函数调用成功的话,将在eax中返回钩子的句柄,否则返回NULL。您必须保存该句柄,因为后面我们还要它来卸载钩子。
  要卸载一个钩子时调用UnhookWidowHookEx函数,该函数仅有一个参数,就是欲卸载的钩子的句柄。如果调用成功的话,
在eax中返回非0值,否则返回NULL。
  现在您知道了如何安装和卸载一个钩子了,接下来我们将看看钩子函数。.
  只要您安装的钩子的消息事件类型发生,WINDOWS就将调用钩子函数。譬如您安装的钩子是WH_MOUSE类型,
那么只要有一个鼠标事件发生时,该钩子函数就会被调用。不管您安装的时那一类型钩子,钩子函数的原型都时是一样的:
  HookProc proto nCode:DWORD, wParam:DWORD, lParam:DWORD
  
  nCode 指定是否需要处理该消息
  wParam 和 lParam 包含该消息的附加消息
  HookProc 可以看作是一个函数名的占位符。只要函数的原型一致,您可以给该函数取任何名字。
至于以上的几个参数及返回值的具体含义各种类型的钩子都不相同。譬如:
  WH_CALLWNDPROC
  nCode 只能是HC_ACTION,它代表有一个消息发送给了一个窗口
  wParam 如果非0,代表正被发送的消息
  lParam 指向CWPSTRUCT型结构体变量的指针
  return value: 未使用,返回0
  WH_MOUSE
  nCode 为HC_ACTION 或 HC_NOREMOVE
  wParam 包含鼠标的事件消息
  lParam 指向MOUSEHOOKSTRUCT型结构体变量的指针
  return value: 如果不处理返回0,否则返回非0值
  所以您必须查询您的WIN32 API 指南来得到不同类型的钩子的参数的详细定义以及它们返回值的意义。
这里还有一个问题需要注意:所有的钩子都串在一个链表上,最近加入的钩子放在链表的头部。当一个事件发生时,
WINDOWS将按照从链表头到链表尾调用的顺序。所以您的钩子函数有责任把消息传到下一个链中的钩子函数。
当然您可以不这样做,但是您最好明白这时这么做的原因。在大多数的情况下,最好把消息事件传递下去以便
其它的钩子都有机会获得处理这一消息的机会。调用下一个钩子函数可以调用函数CallNextHookEx。该函数的原型如下:
  CallNextHookEx proto hHook:DWORD, nCode:DWORD, wParam:DWORD, lParam:DWORD
  hHook 时是您自己的钩子函数的句柄。利用该句柄可以遍历钩子链。
  nCode, wParam and lParam 您只要把传入的参数简单传给CallNextHookEx即可。
  请注意:对于远程钩子,钩子函数必须放到DLL中,它们将从DLL中映射到其它的进程空间中去。
当WINDOWS映射DLL到其它的进程空间中去时,不会把数据段也进行映射。简言之,所有的进程仅共享DLL的代码,
至于数据段,每一个进程都将有其单独的拷贝。这是一个很容易被忽视的问题。您可能想当然的以为,
在DLL中保存的值可以在所有映射该DLL的进程之间共享。在通常情况下,由于每一个映射该DLL的进程都有自己的数据段,
所以在大多数的情况下您的程序运行得都不错。但是钩子函数却不是如此。对于钩子函数来说,要求DLL的数据段对所有
的进程也必须相同。这样您就必须把数据段设成共享的,这可以通过在链接开关中指定段的属性来实现。在MASM中您可以这么做:
  /SECTION:<section name>, S
  已初期化的段名是.data,未初始化的段名是.bss。`加入您想要写一个包含钩子函数的DLL,而且想使它的未初始化的
数据段在所有进程间共享,您必须这么做:
  link /section:.bss,S /DLL /SUBSYSTEM:WINDOWS ..........
  S 代表该段是共享段。

例子:
  一共有两个模块:一个是GUI部分,另一个是安装和卸载钩子的DLL。
  ;--------------------------------------------- 主程序的源代码部分--------------------------------------
  .386
  .model flat,stdcall
  option casemap:none
  include /masm32/include/windows.inc
  include /masm32/include/user32.inc
  include /masm32/include/kernel32.inc
  include mousehook.inc
  includelib mousehook.lib
  includelib /masm32/lib/user32.lib
  includelib /masm32/lib/kernel32.lib
  wsprintfA proto C :DWORD,:DWORD,:VARARG
  wsprintf TEXTEQU <wsprintfA>
  .const
  IDD_MAINDLG equ 101
  IDC_CLASSNAME equ 1000
  IDC_HANDLE equ 1001
  IDC_WNDPROC equ 1002
  IDC_HOOK equ 1004
  IDC_EXIT equ 1005
  WM_MOUSEHOOK equ WM_USER+6
  DlgFunc PROTO :DWORD,:DWORD,:DWORD,:DWORD
  .data
  HookFlag dd FALSE
  HookText db "&Hook",0
  UnhookText db "&Unhook",0
  template db "%lx",0
  .data?
  hInstance dd ?
  hHook dd ?
  .code
  start:
   invoke GetModuleHandle,NULL
   mov hInstance,eax
   invoke DialogBoxParam,hInstance,IDD_MAINDLG,NULL,addr DlgFunc,NULL
   invoke ExitProcess,NULL
  DlgFunc proc hDlg:DWORD,uMsg:DWORD,wParam:DWORD,lParam:DWORD
   LOCAL hLib:DWORD
   LOCAL buffer[128]:byte
   LOCAL buffer1[128]:byte
   LOCAL rect:RECT
   .if uMsg==WM_CLOSE
   .if HookFlag==TRUE
   invoke UninstallHook
   .endif
   invoke EndDialog,hDlg,NULL
   .elseif uMsg==WM_INITDIALOG
   invoke GetWindowRect,hDlg,addr rect
   invoke SetWindowPos, hDlg, HWND_TOPMOST, rect.left, rect.top, rect.right, rect.bottom, SWP_SHOWWINDOW
   .elseif uMsg==WM_MOUSEHOOK
   invoke GetDlgItemText,hDlg,IDC_HANDLE,addr buffer1,128
   invoke wsprintf,addr buffer,addr template,wParam
   invoke lstrcmpi,addr buffer,addr buffer1
   .if eax!=0
   invoke SetDlgItemText,hDlg,IDC_HANDLE,addr buffer
   .endif
   invoke GetDlgItemText,hDlg,IDC_CLASSNAME,addr buffer1,128
   invoke GetClassName,wParam,addr buffer,128
   invoke lstrcmpi,addr buffer,addr buffer1
   .if eax!=0
   invoke SetDlgItemText,hDlg,IDC_CLASSNAME,addr buffer
   .endif
   invoke GetDlgItemText,hDlg,IDC_WNDPROC,addr buffer1,128
   invoke GetClassLong,wParam,GCL_WNDPROC
   invoke wsprintf,addr buffer,addr template,eax
   invoke lstrcmpi,addr buffer,addr buffer1
   .if eax!=0
   invoke SetDlgItemText,hDlg,IDC_WNDPROC,addr buffer
   .endif
   .elseif uMsg==WM_COMMAND
   .if lParam!=0
   mov eax,wParam
   mov edx,eax
   shr edx,16
   .if dx==BN_CLICKED
   .if ax==IDC_EXIT
   invoke SendMessage,hDlg,WM_CLOSE,0,0
   .else
   .if HookFlag==FALSE
   invoke InstallHook,hDlg
   .if eax!=NULL
   mov HookFlag,TRUE
   invoke SetDlgItemText,hDlg,IDC_HOOK,addr UnhookText
   .endif
   .else
   invoke UninstallHook
   invoke SetDlgItemText,hDlg,IDC_HOOK,addr HookText
   mov HookFlag,FALSE
   invoke SetDlgItemText,hDlg,IDC_CLASSNAME,NULL
   invoke SetDlgItemText,hDlg,IDC_HANDLE,NULL
   invoke SetDlgItemText,hDlg,IDC_WNDPROC,NULL
   .endif
   .endif
   .endif
   .endif
   .else
   mov eax,FALSE
   ret
   .endif
   mov eax,TRUE
   ret
  DlgFunc endp
  end start
  ;----------------------------------------------------- DLL的源代码部分 --------------------------------------
  .386
  .model flat,stdcall
  option casemap:none
  include /masm32/include/windows.inc
  include /masm32/include/kernel32.inc
  includelib /masm32/lib/kernel32.lib
  include /masm32/include/user32.inc
  includelib /masm32/lib/user32.lib
  .const
  WM_MOUSEHOOK equ WM_USER+6
  .data
  hInstance dd 0
  .data?
  hHook dd ?
  hWnd dd ?
  .code
  DllEntry proc hInst:HINSTANCE, reason:DWORD, reserved1:DWORD
   .if reason==DLL_PROCESS_ATTACH
   push hInst
   pop hInstance
   .endif
   mov eax,TRUE
   ret
  DllEntry Endp
  MouseProc proc nCode:DWORD,wParam:DWORD,lParam:DWORD
   invoke CallNextHookEx,hHook,nCode,wParam,lParam
   mov edx,lParam
   assume edx:PTR MOUSEHOOKSTRUCT
   invoke WindowFromPoint,[edx].pt.x,[edx].pt.y
   invoke PostMessage,hWnd,WM_MOUSEHOOK,eax,0
   assume edx:nothing
   xor eax,eax
   ret
  MouseProc endp
  InstallHook proc hwnd:DWORD
   push hwnd
   pop hWnd
   invoke SetWindowsHookEx,WH_MOUSE,addr MouseProc,hInstance,NULL
   mov hHook,eax
   ret
  InstallHook endp
  UninstallHook proc
   invoke UnhookWindowsHookEx,hHook
   ret
  UninstallHook endp
  End DllEntry
  ;---------------------------------------------- DLL的Makefile文件 ----------------------------------------------
  NAME=mousehook
  $(NAME).dll: $(NAME).obj
   Link /SECTION:.bss,S /DLL /DEF:$(NAME).def /SUBSYSTEM:WINDOWS /LIBPATH:c:/masm/lib $(NAME).obj
  $(NAME).obj: $(NAME).asm
   ml /c /coff /Cp $(NAME).asm
  
  分析:
  该应用程序的主窗口中包括三个编辑控件,它们将分别显示当前鼠标光标所在位置的窗口类名、窗口句柄和窗口过程的地址。
还有两个按钮:“Hook”和“Eixt”。当您按下Hook时,应用程序将钩挂鼠标输入的事件消息,该按钮的文本将变成“Unhook”。
当您把鼠标关标滑过一个窗口时,该窗口的有关消息将显示在主窗口中。当您按下“Unhook”时,应用程序将卸载钩子。
主窗口使用一个对话框来作为它的主窗口。它自定义了一个消息WM_MOUSEHOOK,用来在主窗口和DLL之间传递消息。
当主窗口接收到该消息时,wParam中包含了光标所在位置的窗口的句柄。当然这是我们做的安排。我这么做只是为了方便。
您可以使用您自己的方法在主应用程序和DLL之间进行通讯。
   .if HookFlag==FALSE
   invoke InstallHook,hDlg
   .if eax!=NULL
   mov HookFlag,TRUE
   invoke SetDlgItemText,hDlg,IDC_HOOK,addr UnhookText
   .endif
  该应用程序有一个全局变量,HookFlag,它用来监视钩子的状态。如果安装来钩子它就是TRUE,否则是FALSE。
当用户按下Hook按钮时,应用程序检查钩子是否已经安装。如果还没有的话,它将调用DLL中引出的函数InstallHook来安装它。
注意我们把主对话框的句柄传递给了DLL,这样这个钩子DLL就可以把WM_MOUSEHOOK消息传递给正确的窗口了。当应用程序加载时,
钩子DLL也同时加载。时机上当主程序一旦加载到内存中后,DLL就立即加载。DLL的入口点函数载主程序的第一条语句执行前就前执行了。
所以当主程序执行时,DLL已经初始化好了。我们载入口点处放入如下代码:
   .if reason==DLL_PROCESS_ATTACH
   push hInst
   pop hInstance
   .endif
  该段代码把DLL自己的实例句柄放到一个全局变量中保存。由于入口点函数是在所有函数调用前被执行的,
所以hInstance总是有效的。我们把该变量放到.data中,使得每一个进程都有自己一个该变量的值。
因为当鼠标光标停在一个窗口上时,钩子DLL被映射进进程的地址空间。加入在DLL缺省加载的地址处已经加载其它的DLL,
那钩子DLL将要被映射到其他的地址。hInstance将被更新成其它的值。当用户按下Unhook再按下Hook时,
SetWindowsHookEx将被再次调用。这一次,它将把新的地址作为实例句柄。而在例子中这是错误的,
DLL装载的地址并没有变。这个钩子将变成一个局部的,您只能钩挂发生在您窗口中的鼠标事件,这是很难让人满意的 。
  InstallHook proc hwnd:DWORD
   push hwnd
   pop hWnd
   invoke SetWindowsHookEx,WH_MOUSE,addr MouseProc,hInstance,NULL
   mov hHook,eax
   ret
  InstallHook endp
  InstallHook 函数非常简单。它把传递过来的窗口句柄保存在hWnd中以备后用。接
着调用SetWindowsHookEx函数来安装一个鼠标钩子。该函数的返回值放在全局变量hHook中,
将来在UnhookWindowsHookEx中还要使用。在调用SetWindowsHookEx后,鼠标钩子就开始工作了。
无论什么时候发生了鼠标事件,MouseProc函数都将被调用:
  MouseProc proc nCode:DWORD,wParam:DWORD,lParam:DWORD
   invoke CallNextHookEx,hHook,nCode,wParam,lParam
   mov edx,lParam
   assume edx:PTR MOUSEHOOKSTRUCT
   invoke WindowFromPoint,[edx].pt.x,[edx].pt.y
   invoke PostMessage,hWnd,WM_MOUSEHOOK,eax,0
   assume edx:nothing
   xor eax,eax
   ret
  MouseProc endp
  钩子函数首先调用CallNextHookEx函数让其它的钩子处理该鼠标事件。然后,调用WindowFromPoint
函数来得到给定屏幕坐标位置处的窗口句柄。注意:我们用lParam指向的MOUSEHOOKSTRUCT型结构体变量中
的POINT成员变量作为当前的鼠标位置。在我们调用PostMessage函数把WM_MOUSEHOOK消息发送到主程序。
您必须记住的一件事是:在钩子函数中不要使用SendMessage函数,它会引起死锁。MOUSEHOOKSTRUCT的定义如下:
  MOUSEHOOKSTRUCT STRUCT DWORD
   pt POINT
   hwnd DWORD ?
   wHitTestCode DWORD ?
   dwExtraInfo DWORD ?
  MOUSEHOOKSTRUCT ENDS
  
  pt 是当前鼠标所在的屏幕位置。
  hwnd 是将接收鼠标消息的窗口的句柄。通常它是鼠标所在处的窗口,但是如果窗口调用了SetCapture,
鼠标的输入将到向到这个窗口。因我们不用该成员变量而是用WindowFromPoint函数。
  wHitTestCode 指定hit-test值,该值给出了更多的鼠标位置值。它指定了鼠标在窗口的那个部位。
该值的完全列表,请参考WIN32 API 指南中的WM_NCHITTEST消息。
  dwExtraInfo 该值包含了相关的信息。一般该值由mouse_event函数设定,可以调用GetMessageExtraInfo来获得。
  
  当主窗口接收到WM_MOUSEHOOK 消息时,它用wParam参数中的窗口句柄来查询窗口的消息。
   .elseif uMsg==WM_MOUSEHOOK
   invoke GetDlgItemText,hDlg,IDC_HANDLE,addr buffer1,128
   invoke wsprintf,addr buffer,addr template,wParam
   invoke lstrcmpi,addr buffer,addr buffer1
   .if eax!=0
   invoke SetDlgItemText,hDlg,IDC_HANDLE,addr buffer
   .endif
   invoke GetDlgItemText,hDlg,IDC_CLASSNAME,addr buffer1,128
   invoke GetClassName,wParam,addr buffer,128
   invoke lstrcmpi,addr buffer,addr buffer1
   .if eax!=0
   invoke SetDlgItemText,hDlg,IDC_CLASSNAME,addr buffer
   .endif
   invoke GetDlgItemText,hDlg,IDC_WNDPROC,addr buffer1,128
   invoke GetClassLong,wParam,GCL_WNDPROC
   invoke wsprintf,addr buffer,addr template,eax
   invoke lstrcmpi,addr buffer,addr buffer1
   .if eax!=0
   invoke SetDlgItemText,hDlg,IDC_WNDPROC,addr buffer
   .endif
  为了避免重绘文本时的抖动,我们把已经在编辑空间中线时的文本和我们将要显示的对比。如果相同,
就可以忽略掉。得到类名调用GetClassName,得到窗口过程调用GetClassLong并传入GCL_WNDPROC标志,
然后把它们格式化成文本串并放到相关的编辑空间中去。
   invoke UninstallHook
   invoke SetDlgItemText,hDlg,IDC_HOOK,addr HookText
   mov HookFlag,FALSE
   invoke SetDlgItemText,hDlg,IDC_CLASSNAME,NULL
   invoke SetDlgItemText,hDlg,IDC_HANDLE,NULL
   invoke SetDlgItemText,hDlg,IDC_WNDPROC,NULL
  当用户按下Unhook后,主程序调用DLL中的UninstallHook函数。该函数调用UnhookWindowsHookEx函数。
然后,它把按钮的文本换回“Hook”,HookFlag的值设成FALSE再清除掉编辑控件中的文本。
  链接器的开关选项如下:
   Link /SECTION:.bss,S /DLL /DEF:$(NAME).def /SUBSYSTEM:WINDOWS
  它指定.bss段作为一个共享段以便所有映射该DLL的进程共享未初始化的数据段。如果不用该开关,您DLL中的钩子就不能正常工作了。
   如果要用全局钩子,一定要放在dll中的,不然其他进程的消息就不能得到了,但是易语言目前还不能做dll,
还是用其他语言(比如汇编,vb,vc,delphi等)做个dll,就可以了,最好还是用自己做的dll,其他人做的dll并不一定适合的。
Delphi - 关于钩子函数HOOK (8)
一个VB的例程,其实VB和delphi很多地方是相同的,大家可以作为参考
声明
Public Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long,
ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
说明
安装钩子过程
其它
'---------------------------------
'Form
'安装钩子
Private sub AddHook()
'键盘钩子
lHook(0) = SetWindowsHookEx(WH_KEYBOARD_LL, AddressOf CallKeyHookProc, App.hInstance, 0)
'鼠标钩子
lHook(1) = SetWindowsHookEx(WH_MOUSE_LL, AddressOf CallMouseHookProc, App.hInstance, 0)
End Sub
'卸钩子
Private sub DelHook()
UnhookWindowsHookEx lHook(0)
UnhookWindowsHookEx lHook(1)
End Sub
'---------------------------------
'模块
Public Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long,
ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
Public Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long
Public Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Public Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal ncode As Long,
ByVal wParam As Long, lParam As Any) As Long
Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (lpvDest As Any,
ByVal lpvSource As Long, ByVal cbCopy As Long)
Public Type KEYMSGS
vKey As Long '虚拟码 (and &HFF)
sKey As Long '扫描码
flag As Long '键按下:128 抬起:0
time As Long 'Window运行时间
End Type
Public Type MOUSEMSGS
X As Long 'x座标
Y As Long 'y座标
a As Long
b As Long
time As Long 'Window运行时间
End Type
Public Type POINTAPI
X As Long
Y As Long
End Type
Public Const WH_KEYBOARD_LL = 13
Public Const WH_MOUSE_LL = 14
Public Const Alt_Down = &H20
'-----------------------------------------
'消息
Public Const HC_ACTION = 0
Public Const HC_SYSMODALOFF = 5
Public Const HC_SYSMODALON = 4
'键盘消息
Public Const WM_KEYDOWN = &H100
Public Const WM_KEYUP = &H101
Public Const WM_SYSKEYDOWN = &H104
Public Const WM_SYSKEYUP = &H105
'鼠标消息
Public Const WM_MOUSEMOVE = &H200
Public Const WM_LBUTTONDOWN = &H201
Public Const WM_LBUTTONUP = &H202
Public Const WM_LBUTTONDBLCLK = &H203
Public Const WM_RBUTTONDOWN = &H204
Public Const WM_RBUTTONUP = &H205
Public Const WM_RBUTTONDBLCLK = &H206
Public Const WM_MBUTTONDOWN = &H207
Public Const WM_MBUTTONUP = &H208
Public Const WM_MBUTTONDBLCLK = &H209
Public Const WM_MOUSEACTIVATE = &H21
Public Const WM_MOUSEFIRST = &H200
Public Const WM_MOUSELAST = &H209
Public Const WM_MOUSEWHEEL = &H20A
Public Declare Function GetKeyNameText Lib "user32" Alias "GetKeyNameTextA"
(ByVal lParam As Long, ByVal lpBuffer As String, ByVal nSize As Long) As Long
Public strKeyName As String * 255
Public Declare Function GetActiveWindow Lib "user32" () As Long
Public keyMsg As KEYMSGS
Public MouseMsg As MOUSEMSGS
Public lHook(1) As Long
'----------------------------------------
'模拟鼠标
Private Const MOUSEEVENTF_LEFTDOWN = &H2
Private Const MOUSEEVENTF_LEFTUP = &H4
Private Const MOUSEEVENTF_ABSOLUTE = &H8000 ' absolute move
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long,
ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Private Declare Function ClientToScreen Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long
'--------------------------------------
'模拟按键
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte,
ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
'鼠标钩子
Public Function CallMouseHookProc(ByVal code As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Dim pt As POINTAPI
If code = HC_ACTION Then
CopyMemory MouseMsg, lParam, LenB(MouseMsg)
Form1.txtMsg(1).Text = "X=" + Str(MouseMsg.X) + " Y=" + Str(MouseMsg.Y)
Form1.txtHwnd(1) = Format(wParam, "0")
If wParam = WM_MBUTTONDOWN Then '把中键改为左键
mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
CallMouseHookProc = 1
End If
If wParam = WM_MBUTTONUP Then
mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
CallMouseHookProc = 1
End If
End If
If code 0 Then
CallMouseHookProc = CallNextHookEx(0, code, wParam, lParam)
End If
End Function
'键盘钩子
Public Function CallKeyHookProc(ByVal code As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Dim lKey As Long
Dim strKeyName As String * 255
Dim strLen As Long
If code = HC_ACTION Then
CopyMemory keyMsg, lParam, LenB(keyMsg)
Select Case wParam
Case WM_SYSKEYDOWN, WM_KEYDOWN, WM_SYSKEYUP, WM_KEYUP:
lKey = keyMsg.sKey And &HFF '扫描码
lKey = lKey * 65536
strLen = GetKeyNameText(lKey, strKeyName, 250)
Form1.txtMsg(0).Text = "键名:" + Left(strKeyName, strLen) + " 虚拟码:" +
Format(keyMsg.vKey And &HFF, "0") + " 扫描码:" + Format(lKey / 65536, "0")
Form1.txtHwnd(0) = ""
If (GetKeyState(vbKeyControl) And &H8000) Then
Form1.txtHwnd(0) = Form1.txtHwnd(0) + "Ctrl "
End If
If (keyMsg.flag And Alt_Down) 0 Then
Form1.txtHwnd(0) = Form1.txtHwnd(0) + "Alt "
End If
If (GetKeyState(vbKeyShift) And &H8000) Then
Form1.txtHwnd(0) = Form1.txtHwnd(0) + "Shift"
End If
'keyMsg.vKey And &HFF 虚拟码
'lKey / 65536 扫描码
If (keyMsg.vKey And &HFF) = vbKeyY Then '把Y键替换为N
If wParam = WM_SYSKEYDOWN Or wParam = WM_KEYDOWN Then
keybd_event vbKeyN, 0, 0, 0
End If
CallKeyHookProc = 1 '屏蔽按键
End If
End Select
End If
If code 0 Then
CallKeyHookProc = CallNextHookEx(0, code, wParam, lParam)
End If
End Function

阅读全文
0 0

相关文章推荐

img
取 消
img