挂钩技术学习笔记

  挂钩技术学习笔记

这篇文章是学习WINDOW编程中的一篇文章.以后还会有更多的学习笔记.本来我这个人是比较懒的,.学完的东西又不会做笔记.所以经常是看完后,没多久就忘光光了.这样导致了我学习东西非常的没有效率.因此以后每学些东西都会做写笔记,或画一些简单的图.

HOOK分为三种：LOCAL HOOK 和 REMOTE HOOK，还有一种是SYSTEM-WIDE

LOCAL HOOK。LOCAL HOOK就是指程序HOOK的就是本程序中的线程。REMOTE HOOK

有两种形式：一种是对其他程序中某个特定的线程；一种是对整个系统。SYSTEM – WIDE

LOCAL HOOK 是一种比较特殊的。它具有REMOTE HOOK的功能，又可以用LOCAL HOOK 的表现手法，实际上就是WH_JOURNALRECORD和WH_JOURNALPLAYBACK两种HOOK。

REMOTE HOOK 必须封装在DLL中。这是因为REMOTE HOOK是针对整个系统或其他进程的线程，因此HOOK必须封装成DLL，才可以植入到其他进程进行监控。而SYSTEM-WIDE LOCAL HOOK采用的是另外一种架构，系统中的线程请求或获得一个硬件消息的话，系统会调用那个安装有HOOK的线程，并执行它的FILTER FUNCTION.然后再返回给请求硬件消息的线程。这种架构有一个缺点就是如果HOOK FILTER FUNCTION的处理中进入无限循环的话，那么整个系统将停留再循环中，无法切换到其他线程。为了处理这个缺陷，WINDOW使用了一个办法来处理：就是CTRL+ESC键，如果用户按下CTRL+ESC键，则系统将会发送一个WM_CANCELJOUNAL消息到有挂上JOUNAL 系列HOOK的线程上面。

如果要安装一个HOOK。则要调用SetWindowsHookEx(

 int idHook,     // 挂钩类型

    HOOKPROC lpfn, // 处理过程的函数地址

    HINSTANCE hMod,     //程序的句柄

    DWORD dwThreadId   // 线程的句柄

)

卸载一个HOOK。则调用UnhookWindowsHookEx(

    HHOOK hhk        // 要移除的hook句柄

   );

如果你再FILTER FUNCTION处理完过程后，也希望其他的进程的HOOK也可以处理，则可以调用CALLNEXTHOOKEX.

《WINDOW95程序设计指南》对14中HOOK的调用时机描述得非常清楚，对各个参数的描述也非常清楚。实际上我也只用过其中几种而已，因此我只提供其中的一种HOOK的实例。这个实例是一个统计键盘的按键次数的类子，大部分代码和注释都是抄网上的代码的。

 主窗体：

unit UntKeyCount;

 

 

interface

 

 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;

 

 

const

 // Purpose: 自定义消息, 通知键盘按下

 // wParam: UINT vk - Virtual keycode

 // lParam: LPARAM lParam - Keystroke flags

 // Return: 略

  UM_MYEVENT = (WM_APP + 0);

type

  Tfrm_Keycount = class(TForm)

    btn_Star: TButton;

    btn_Stop: TButton;

    lbl_Hint: TLabel;

    lbl_Count: TLabel;

    procedure btn_StarClick(Sender: TObject);

    procedure btn_StopClick(Sender: TObject);

    procedure FormCreate(Sender: TObject);

  private

    procedure SetKeyCount(L: LongInt);

    function GetKeyCount: Longint;

    { Private declarations }

  public

  //注意：此处定义的消息记录要TMESSAGE记录

    procedure OnMyEVENT(var MSG: TMessage); message UM_MYEVENT;

    { Public declarations }

  end;

 

 

var

  frm_Keycount: Tfrm_Keycount;

 

 

function StartHook(WNDProc: HWND; uMsgNotify: UINT): Boolean; stdcall; external 'KeyHK.dll' name 'StartHook';

function StopHook: Boolean; stdcall; external 'KeyHK.dll' name 'StopHook';

 

 

 

 

implementation

 

 

{$R *.dfm}

 

 

{ Tfrm_Keycount }

//OnMyEVENT消息

 

 

function Tfrm_Keycount.GetKeyCount: Longint;

begin

  Result := GetWindowLong(frm_Keycount.Handle, GWL_USERDATA);

end;

 

 

procedure Tfrm_Keycount.OnMyEVENT(var MSG: TMessage);

var

  fDown: Boolean;

  uKeyCount: UINT;

begin

  //是否按下（导致的钩子调用）

  fDown := (HiWord(msg.LParam) and KF_UP) = 0;

  // 读取按键信息

  uKeyCount := GetkeyCount;

  //更新按键次数

  if fDown then Inc(uKeyCount);

 

 

  lbl_Count.Caption := IntToStr(uKeyCount);

 

 

  SetKeyCount(uKeyCount);

end;

 

 

 

 

procedure Tfrm_Keycount.SetKeyCount(L: Integer);

begin

  SetWindowLong(frm_Keycount.Handle, GWL_USERDATA, L);

end;

 

 

procedure Tfrm_Keycount.btn_StarClick(Sender: TObject);

begin

  if StartHook(frm_Keycount.Handle, UM_MYEVENT) then

  begin

   // btn_Star.Enabled := False;

    SetKeyCount(0);

  end

  else

    MessageBox(GetActiveWindow, '启动挂钩失败', 'KEYCOUNT', MB_OK);

end;

 

 

procedure Tfrm_Keycount.btn_StopClick(Sender: TObject);

begin

  if StopHook = False then

    MessageBox(GetActiveWindow(), '卸载挂钩失败', 'KeyCount', 0);

 

 

//  btn_Star.Enabled := not btn_Star.Enabled;

//  btn_Stop.Enabled := not btn_Stop.Enabled;

 

 

end;

 

 

procedure Tfrm_Keycount.FormCreate(Sender: TObject);

begin

SetKeyCount(0);

end;

 

 

end.

 

 

 

 

链接库

    library KeyHK;

 

 

uses

  Windows,

  Messages;

type

  PShareMem = ^TShareMem;

  TShareMem = record

    g_hook: HHOOK; //挂钩句柄

    g_WndProc: HWND; //窗体句柄

    g_uMsgNotify: UINT; //传输消息

  end;

 

 

const

  //内存映射文件

  SHARE_NAME = 'MYKEYCOUNT';

 

 

var

 //映射文件句柄

  FileMap: THandle;

 //映射文件地址

  PShared: PShareMem;

{$R *.res}

function KeyboardHook_HookProc(nCode: Integer; WPARAM: WPARAM; LPARAM: LPARAM): LRESULT; stdcall;

begin

  Result := CallNextHookEx(Pshared.g_hook, nCode, WPARAM, LPARAM);

 

 

  case nCode of

    HC_ACTION:

      begin

      //发送消息

        PostMessage(PShared.g_WndProc, PShared.g_uMsgNotify, WPARAM, LPARAM);

      end;

  end;

end;

 

 

function StartHook(WndProc: HWND; MsgNotify: UINT): Boolean; stdcall;

var

  hook: LongWord;

begin

  if PShared.g_hook <> 0 then

  begin

    Result := False;

    exit;

  end;

 

 

  PShared.g_WndProc := WndProc;

  PShared.g_uMsgNotify := MsgNotify;

 

 

  Sleep(0);

  //写同步的时候要注意这边的HOOK赋值。

  hook := SetWindowsHookEx(WH_KEYBOARD, @KeyboardHook_HookProc, HInstance, 0);

  //同步

   InterlockedExchange(Integer(PShared.g_hook), Integer(hook));

 

 

 

 

  Result := PShared.g_hook <> 0;

end;

 

 

function StopHook: Boolean; stdcall;

begin

  if PShared.g_hook <> 0 then

  begin

    //卸载

    Result := UnhookWindowsHookEx(Pshared.g_hook) ;

    PShared.g_hook := 0;

  end

  else

    Result := true;

end;

 

 

 

 

  // DLL回调

procedure DLLMain(dwReason: DWORD);

begin

  if (dwReason = DLL_PROCESS_DETACH) then

  begin

    UnmapViewOfFile(PShared);

    CloseHandle(FileMap);

  end;

end;

 

 

 // 导出函数

exports

  StartHook,

  StopHook;

 

 

 // DLL入口 (进入每个进程空间时执行)

begin

 // 设置回调

  DllProc := @DLLMain;

 

 

 // 尝试打开

  FileMap := OpenFileMapping(FILE_MAP_ALL_ACCESS, FALSE, SHARE_NAME);

 

 

 // 还未建立 

  if (FileMap = 0) then

  begin

    FileMap :=

      CreateFileMapping(DWORD(-1), nil, PAGE_READWRITE, 0, SizeOf(TShareMem), SHARE_NAME);

    PShared := MapViewOfFile(FileMap, FILE_MAP_ALL_ACCESS, 0, 0, 0);

   

    ZeroMemory(PShared, SizeOf(TShareMem));

  end else

    PShared := MapViewOfFile(FileMap, FILE_MAP_ALL_ACCESS, 0, 0, 0);

end