钩子及其应用（五）

最新推荐文章于 2024-02-22 19:21:17 发布
最新推荐文章于 2024-02-22 19:21:17 发布
阅读量3.3k 收藏 2
点赞数
分类专栏： Delphi 文章标签： integer function 数据结构 initialization dll action
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/linzhengqun/article/details/496082
版权

下面就是DLL的源代码了：

首先是声明一些共公的数据结构的单元，这个单元在DLL中用，也在程序中用的：

unit wdSpyCommon;

 

{*******************************************

 * brief: 消息Spy用到的数据结构等的声明文件

 * autor: linzhenqun

 * date: 2005-9-25

 * email: linzhengqun@163.com

 * blog: http://blog.csdn.net/linzhengqun

********************************************}

 

interface

uses

  Windows, Messages;

 

resourcestring

  err_ProcInvalid = 'the Message spy procedure are invalid.';

  err_ShareMem = 'could not create share memory.';

 

const

  Msg_Null_Value = 0;

  Msg_Type_Sent = 1;

  Msg_Type_Post = 2;

  Msg_Type_Return = 3;

 

type

  { 受监察的消息结构 }

  PMsgInfo = ^TMsgInfo;

  TMsgInfo = packed record

    hwnd: HWND;

    message: UINT;

    wParam: WPARAM;

    lParam: LPARAM;

    time: DWORD;

    pt: TPoint;

    lResult: LRESULT;

    MsgType: UINT;

  end;

 

implementation

 

end.

 

接着是消息Spy的DLL中的源代码：

unit wdMsgSpy;

 

{*******************************************

 * brief: 消息Spy的SDK

 * autor: linzhenqun

 * date: 2005-9-24

 * email: linzhengqun@163.com

 * blog: http://blog.csdn.net/linzhengqun

********************************************}

 

interface

uses

  Messages, Windows, Classes, SysUtils, wdSpyCommon;

 

const

  MapingFile_Name = 'MsgSpy_FC 819A 73-2718-47E2-BF78-6810562CDA65';

 

type

  //共享内存

  PShareMem = ^TShareMem;

  TShareMem = record

    HRevWnd: THandle; //存放接收消息的窗口句柄

    HWndSpy: THandle; //被监察的窗口句柄

  end;

 

{ 开始监察消息，AHSpyWnd为受监察的窗口，AHRevWnd为接收监察到的消息的窗口 }

function StartSpyMessage(AHSpyWnd, AHRevWnd: THandle): Boolean; stdcall;

 

{ 停止监察消息 }

procedure StopSpyMessage; stdcall;

 

var

  HMsgProc, HWndProc, HWndRetProc: THandle; //相应钩子的句柄

  PSMem: PShareMem; //共享内存块

  hMapFile: THandle; //内存映射文件的句柄。

 

implementation

 

//将截获的消息结构发送到目标窗口

procedure SendData(AMsgInfo: PMsgInfo); stdcall;

var

  pcds: PCopyDataStruct;

begin

  New(pcds);

  pcds^.cbData := SizeOf(TMsgInfo);

  pcds^.lpData := AMsgInfo;

  SendMessage(PSMem^.HRevWnd, WM_COPYDATA, 0, LongInt(pcds));

  Dispose(pcds);

end;

 

{ WH_GETMESSAGE的钩子过程 }

function GetMsgProc(code: Integer; wP: WPARAM; lP: LPARAM): LRESULT; stdcall;

var

  LMsgInfo: PMsgInfo;

begin

{只有截获的消息的窗口句柄等于被监察的窗口句柄，才进行下一步，

接着，当被监察的窗口不是接收消息的窗口时执行下一步操作;或者当被监察窗口

就是接收消息的窗口时，截获的消息不是WM_CopyData，执行下一步。

这么做是为了避免进入发送消息与截获消息的死循环}

  if code = HC_ACTION then

    if (PMsg(lp)^.hwnd = PSMem^.HWndSpy) then

      if ((PSMem^.HWndSpy = PSMem^.HRevWnd) and (PMsg(lp)^.message <> WM_COPYDATA))

        or (PSMem^.HWndSpy <> PSMem^.HRevWnd) then

      begin

        New(LMsgInfo);

        LMsgInfo.hwnd := PMsg(lp)^.hwnd;

        LMsgInfo.message := PMsg(lp)^.message;

        LMsgInfo.wParam := PMsg(lp)^.wParam;

        LMsgInfo.lParam := PMsg(lp)^.lParam;

        LMsgInfo.pt := PMsg(lp)^.pt;

        LMsgInfo.time := PMsg(lp)^.time;

        LMsgInfo.lResult := Msg_Null_Value;

        LMsgInfo.MsgType := Msg_Type_Post;

        SendData(LMsgInfo);

        Dispose(LMsgInfo);

      end;

  Result := CallNextHookEx(HMsgProc, code, wP, lP);

end;

 

{ WH_CALLWNDPROC的钩子过程 }

function CallWndProc(code: Integer; wP: WPARAM; lP: LPARAM): LRESULT; stdcall;

var

  LMsgInfo: PMsgInfo;

begin

  if code = HC_ACTION then

    if (PCWPStruct(lp)^.hwnd = PSMem^.HWndSpy) then

      if ((PSMem^.HWndSpy = PSMem^.HRevWnd) and (PCWPStruct(lp)^.message <> WM_COPYDATA))

        or (PSMem^.HWndSpy <> PSMem^.HRevWnd) then

      begin

        New(LMsgInfo);

        LMsgInfo^.hwnd := PCWPStruct(lp)^.hwnd;

        LMsgInfo^.message := PCWPStruct(lp)^.message;

        LMsgInfo^.wParam := PCWPStruct(lp)^.wParam;

        LMsgInfo^.lParam := PCWPStruct(lp)^.lParam;

        LMsgInfo^.pt := Point(0, 0);

        LMsgInfo^.time := Msg_Null_Value;

        LMsgInfo^.lResult := Msg_Null_Value;

        LMsgInfo^.MsgType := Msg_Type_Sent;

        SendData(LMsgInfo);

        Dispose(LMsgInfo);

      end;

  Result := CallNextHookEx(HWndProc, code, wP, lP);

end;

 

{ WH_CALLWNDPROCRET的钩子过程 }

function CallWndRetProc(code: Integer; wP: WPARAM; lP: LPARAM): LRESULT; stdcall;

var

  LMsgInfo: PMsgInfo;

begin

  if code = HC_ACTION then

      if (PCWPRetStruct(lp)^.hwnd = PSMem^.HWndSpy) then

        if ((PSMem^.HWndSpy = PSMem^.HRevWnd) and (PCWPRetStruct(lp)^.message <> WM_COPYDATA))

          or (PSMem^.HWndSpy <> PSMem^.HRevWnd) then

        begin

          New(LMsgInfo);

          LMsgInfo^.hwnd := PCWPRetStruct(lp)^.hwnd;

          LMsgInfo^.message := PCWPRetStruct(lp)^.message;

          LMsgInfo^.wParam := PCWPRetStruct(lp)^.wParam;

          LMsgInfo^.lParam := PCWPRetStruct(lp)^.lParam;

          LMsgInfo^.pt := Point(0, 0);

          LMsgInfo^.time := Msg_Null_Value;

          LMsgInfo^.lResult := PCWPRetStruct(lp)^.lResult;

          LMsgInfo^.MsgType := Msg_Type_Return;

          SendData(LMsgInfo);

          Dispose(LMsgInfo);

      end;

  Result := CallNextHookEx(HWndRetProc, code, wP, lP);

end;

 

 

function StartSpyMessage(AHSpyWnd, AHRevWnd: THandle): Boolean;

begin

  Result := False;

  try

    if (HMsgProc <> 0) or (HWndProc <> 0) or (HWndRetProc <> 0) then

      Exit;

    PSMem^.HWndSpy := AHSpyWnd;

    PSMem^.HRevWnd := AHRevWnd;

    HMsgProc := SetWindowsHookEx(WH_GETMESSAGE, @GetMsgProc, HInstance, 0);

    HWndProc := SetWindowsHookEx(WH_CALLWNDPROC, @CallWndProc, HInstance, 0);

    HWndRetProc := SetWindowsHookEx(WH_CALLWNDPROCRET, @CallWndRetProc, HInstance, 0);

    if (HMsgProc = 0) or (HWndProc = 0) or (HWndRetProc = 0) then

    begin

      StopSpyMessage;

      Exit;

    end;

  except

    Exception.Create(err_ProcInvalid);

  end;

  Result := True;

end;

 

procedure StopSpyMessage;

begin

  UnhookWindowsHookEx(HMsgProc);

  UnhookWindowsHookEx(HWndProc);

  UnhookWindowsHookEx(HWndRetProc);

  HMsgProc := 0;

  HWndProc := 0;

  HWndRetProc := 0;

end;

 

initialization

 //创建共享内存块

  hMapFile := OpenFileMapping(FILE_MAP_ALL_ACCESS, False, MapingFile_Name);

  if hMapFile = 0 then

    hMapFile := CreateFileMapping($FFFFFFFF, nil, PAGE_READWRITE, 0,

      SizeOf(TShareMem), MapingFile_Name);

  PSMem :=  MapViewOfFile(hMapFile, FILE_MAP_WRITE or FILE_MAP_READ, 0, 0, 0);

  if PSMem = nil then

  begin

    CloseHandle(hMapFile);

    Exception.Create(err_ShareMem);

  end;

 

finalization

 //释放共享内存块

  UnMapViewOfFile(PSMem);

  CloseHandle(hMapFile);

 

end.

 

解决了上面的技术问题，再来看源代码是很容易理解的，就钩子的安装和解除本身很简单，难的是进程间的数据共享和通信问题。但这些现在已经不是问题了，不是吗。

 

DLL的导出函数当然就是：

exports

  StartSpyMessage,

  StopSpyMessage;

然后在显示消息的窗口截获WM_COPYDATA，处理显示的问题就行了。不过WM_COPYDATA其他窗口也可以发送的，所以处理WM_COPYDATA的过程一定要作一下异常处理才行。

 

好了，要完整的程序代码，请发邮件给我吧：linzhengqun@163.com

 

后记

这真是一篇很长的文章，写这篇文章的过程也是自我提高的过程，学到非常多的东西。在这里推荐几本书，能够更系统的学到这些知识：

首先当然是《Windows高级编程第四版》，没有另一本书能够讲得比这本更精彩深入了。研究底层的读者必读之书。

其次是《Delphi5开发人员指南》，其中有关于日志钩子的应用以及内存映射文件的用法，可以一看。

还有一些网上的文章，也值得借鉴，但我总觉得讲不到重点去，比如全局钩子，希望这一篇能够让读者更好的运用全局钩子。

 

我在努力，我在进步，希望你们也是。Happy programme！

linzhengqun
关注
专栏目录
进程间通信——自定义消息方式实现(SetWindowsHookEx)
hambaga的博客
08-16 1065
项目分为两部分：设置HOOK的DLL和消息发送程序。 DLL 定义3个函数，分别用于安装钩子，卸载钩子和自定义消息处理函数。其中前两个函数是导出函数，由消息发送程序调用。 代码如下： Hook.h #pragma once //extern "C" 导出，否则GetProcAddress拿不到指针 HHOOK g_HookProc; //定义为全局HOOK 返回的钩子过程 extern "C" void __declspec(dllexport) SetHoo
钩子源码钩子源码
03-02
以下是对钩子机制及其应用的详细解释： 一、钩子的基本概念： 钩子是Windows操作系统提供的一种机制，允许开发者注册函数来接收并处理特定的消息或事件。当特定的事件发生时，如键盘输入、窗口消息、系统事件等，...
获取 Windows 系统托盘图标信息的最新方案（三）
最新发布
溡漪幽博客
02-22 1833
在《获取 Windows 系统托盘图标信息的最新方案（一）》中（下文简称 《最新方案（一）》），我们讨论了在 Win11 22H2 上获取系统托盘图标信息的方法，即拦截 Shell_TrayWnd 窗口的 WM_COPYDATA 消息。在《最新方案（一）》中，我们主要使用 Inline hook 重写 CTray::v_WndProc 函数，也就是窗口过程函数来拦截 WM_COPYDATA 消息。具体分析了两种注入 explorer 的实现方法：（1）创建挂起进程的远程线程注入；
WIN7/8系统下程序接收不到WM_COPYDATA 消息的原因和解决
weixin_30883311的博客
07-09 498
在WIN7/win8，如果发送消息的程序用户权限低于和接收消息的程序，则消 息无法传递。发送程序必须等于或者等于接收程序的权限。如发送与接收 是同一个用户，或者发送是管理员帐户，接收是是普通用户，这样就可以 成功。 以下内容摘自：http://blog.csdn.net/tian_jinping/article/details/12950077 正如我们前文所说，等级的划分，是为了...
Spy++的使用方法
li_li_an的专栏
09-02 1637
<br />很多朋友都对窗口句柄比较迷糊，这篇短文就以spy++这个软件为主，介绍下窗体句柄和使用按键插件时<br />，如果对这个句柄发送消息，即所谓的后台挂机。<br />spy++这个软件来自VC++，装好VC后，就可以在工具中看到。<br />下载 (21.27 KB)<br />2007-10-4 22:34<br /><br />我们以“记事本”为例，看看如果给记事本发送按键消息。<br />首先启动记事本<br />下载 (10.08 KB)<br />2007-10-4 22:34<br /
Windows程序设计参数wParam和lParam消息的含义
05-23
Windows程序设计参数wParam和lParam消息的含义
pytest钩子函数及其应用
pytest钩子函数简介 ## 1.1 什么是pytest钩子函数 pytest钩子函数是pytest框架提供的一种扩展机制，允许用户在测试的不同阶段插入自定义的行为或逻辑。通过定义特定名称的函数，可以在测试收集、运行、结果处理等...
钩子的应用
wangbaojun52024029的专栏
01-19 538
HHOOK SetWindowsHookEx(--->新建一个HOOK过程添加到HOOK链中，最后添加进去的，在HOOK链最前  int idHook,        // hook type---》钩子类型  HOOKPROC lpfn,     // hook procedure--》钩子过程指针  HINSTANCE hMod,    // handle to applicati
键盘钩子、鼠标钩子应用组件示例及 源码
01-10
在IT领域，尤其是在Windows应用程序开发中，"键盘钩子"和"鼠标钩子"是用于监控和处理系统级输入事件的重要技术。这些技术通常涉及到低级别编程，特别是使用C#语言时，EventHook库提供了方便的接口来实现这一功能。本...
钩子及其使用
浩月星空的专栏
07-18 1452
钩子函数的用法和作用？ http://topic.csdn.net/t/20020625/10/827891.html WINDOW的消息处理机制为了能在应用程序中监控系统的各种事件消息，提供了挂接各种反调函数(HOOK)的功能。这种挂钩函数(HOOK)类似扩充中断驱动程序，挂钩上可以挂接多个反调函数构成一个挂接函数链。系统产生的各种消息首先被送到各种挂接函数，挂接函数根据各自的功能对
SetWindowsHookEx实现DLL注入
06-05
SetWindowsHookEx实现DLL注入
SetWindowsHookEx进程dll注入
10-01
SetWindowsHookEx进程dll注入
易语言源码易语言应用鼠标钩子实现隐藏窗口源码.rar
03-31
在这个“易语言源码易语言应用鼠标钩子实现隐藏窗口源码.rar”压缩包中，包含了使用易语言编写的源代码，用于实现一个特殊的功能：通过鼠标钩子来隐藏指定窗口。下面，我们将深入探讨这一技术及其相关的知识点。 ...
钩钩子应用
02-13
钩钩子应用
SetWindowsHookEx 详解（四）所有结构体
上善若水 的专栏
09-28 9609
MOUSEHOOKSTRUCT structure Contains information about a mouse event passed to a WH_MOUSE hook procedure, MouseProc. Syntax C++ Copy typedef struct tagMOUSEHOOKSTRUCT { POIN
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值