帕格尼尼的钟为何出名:用跨进程子类化技术实现对其它进程消息的拦载

来源：百度文库 编辑：中财网 时间：2024/04/28 20:56:16

用跨进程子类化技术实现对其它进程消息的拦载

分类： Delphi 2008-10-03 13:25 189人阅读 评论(0) 收藏 举报

  大家都知道每个窗口都有默认的窗口函数来进行对窗口消息的处理.
  而子类化技术就是替换窗口的窗口函数为自己定义的函数的技术.例如下面的代码:
var
  Form1: TForm1;
  OldWndProc: Pointer;
implementation

{$R *.dfm}
function NewWndProc(hHwnd, Msg, wParam, lParam: LongWORD): Longint; stdcall;
begin
  if Msg=WM_CLOSE then
    exit;
  Result := CallWindowProc(OldWndProc, hHwnd, Msg, wParam, lParam);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  {保存旧的窗口函数地址}
  OldWndProc := Pointer(GetWindowLong(Self.Handle, GWL_WNDPROC));
  {设置新的窗口函数为自定义函数}
  SetWindowLong(Self.Handle, GWL_WNDPROC, Longint(@NewWndProc));
end;
  这样在窗口建立时就对窗口实现了子类化,这时按下窗口的关闭按钮就会发现关不了窗口,因为新的窗口处理函数把WM_CLOSE消息过滤掉了,要取消子类化,只需要简单的把以前的窗口函数恢复过来就可以了.SetWindowLong(Self.Handle, GWL_WNDPROC, Longint(OldWndProc));

  现在看来似乎很简单,只要对其它进程中的目标窗口进行子类化就可以实现对其消息的拦载监视了.但是在WIN32下,每一个进程都有自己独立的内存空间,新的窗口函数必须和目标窗口在同一个进程内,直接使用SetWindowLong(其它进程中窗口的句柄, GWL_WNDPROC, 新窗口函数)就会失败,所以就要想办法把我们的窗口函数代码放到目标进程内,这儿有二个办法,一是使用CreateRemoteThread在目标进程内建立线程,但这函数只在NT及以上操作系统实现,而且还要涉及到API地址重定位等问题,很麻烦(请参考http://www.csdn.net/develop/Read_Article.asp?Id=21079).另一个方法就是使用HOOK技术(SetWindowsHookEx,如果不知道,请先参考HOOK技术方面的文章),大家都知道,对其它进程进行HOOK时,此进程会自动加载HOOK过程所在的DLL,如果我们把窗口函数也放在DLL中,那窗口函数就相当于加载到了目标进程的地址空间中了,这方法简单易行.在这里我们就采用HOOK技术来实现跨进程子类化.

  最后一个问题是如何在DLL中实现全局变量,因为DLL中的变量在每个进程加载这个DLL时都申请新的空间来存放变量,所以DLL中的变量在各个进程内不一样,可以利用内存文件映射,WM_COPYDATA等方法来实现全局变量.这儿采用内存文件映射.

  现在需要的知识都已了解了,就让我们来看具体的代码吧(这儿是把所有函数放在一个DLL中):

  1. library Hook;     
  3. uses
  4.   SysUtils,windows, Messages;
  6. const
  7.   WM_UNSUBCLASS = WM_USER + 1001;  {卸载子类化消息}
  8.   WM_NEWMESSAGE = WM_USER + 1002;  {通知监视窗口拦到了新消息}
  9.   HOOK_EVENT_NAME = 'MyHook';
  11. type
  12.   PMyDLLVar = ^TMyDLLVar;
  13.   TMyDLLVar = record
  14.     SubClass: Boolean;                 {是否已经子类化}
  15.     HookWindow, SpyWindow: LongWORD;   {要安装HOOK的窗口及用于接收消息的窗口}
  16.     hHook: LongWORD;                   {HOOK句柄}
  17.     OldWndProc: pointer;               {旧的窗口过程}
  18.     MsgHwnd: LongWORD;
  19.     Msg: TMessage;
  20.   end;
  22. var
  23.   DLLData: PMyDLLVar;
  25. {---------------------------------------}
  26. {函数名:NewWndProc
  27. {函数功能:新的窗口过程
  28. {函数参数:hHwnd:窗口句柄 Msg:消息ID
  29. {         wParam, lParam:消息参数
  30. {函数返回值:下一个窗口过程的返回值
  31. {---------------------------------------}
  32. function NewWndProc(hHwnd, Msg, wParam, lParam: LongWORD): Longint; stdcall;
  33. begin
  34.   if Msg = WM_UNSUBCLASS then   {如果收到卸载子类化消息就恢复以前的WndProc}
  35.   begin
  36.     SetWindowLong(DLLData^.HookWindow, GWL_WNDPROC, longint(DLLData^.OldWndProc));
  37.     exit;
  38.   end;
  39.   {这儿是把收到的消息放在映射的内存中,我们自己的程序可以通过读这个内存来得到监视到的消息.}
  40.   DLLData^.Msg.Msg := Msg;            
  41.   DLLData^.Msg.WParam := wParam;
  42.   DLLData^.Msg.LParam := lParam;
  43.   DLLData^.MsgHwnd := hHwnd;
  44.   {给监视窗口发送拦载新消息的消息}
  45.     SendMessage(DLLData^.SpyWindow, WM_NEWMESSAGE, wParam, lParam);
  46.   {这儿可以添加自己对目标进程消息处理的代码,因为己经是在目标进程的地址空间内,现在可以为所
  47.   欲为 ^_^}
  48.   Result := CallWindowProc(DLLData^.OldWndProc, hHwnd, Msg, wParam, lParam);
  49. end;
  51. {------------------------------------}
  52. {过程名:HookProc
  53. {过程功能:HOOK过程
  54. {过程参数:nCode, wParam, lParam消息的相
  55. {         关参数
  56. {------------------------------------}
  57. procedure HookProc(nCode, wParam, lParam: LongWORD);stdcall;
  58. var
  59.   hEvent: THandle;
  60. begin
  61.   if not DllData^.SubClass then  {如果此窗口未子类化}
  62.   begin    {保存窗口过程地址并子类化}
  63.   hEvent := OpenEvent(Synchronize, False, HOOK_EVENT_NAME);
  64.     if hEvent <> 0 then
  65.     begin
  66.       WaitForSingleObject(hEvent, INFINITE);
  67.       CloseHandle(hEvent); 
  68.     end;
  69.     DLLData^.OldWndProc := pointer(GetWindowLong(DLLData^.HookWindow, GWL_WNDPROC));
  70.     SetWindowLong(DLLData^.HookWindow, GWL_WNDPROC, integer(@NewWndProc));
  71.     DLLData^.SubClass := True;
  72.     //hEvent := OpenEvent(Synchronize, False, HOOK_EVENT_NAME);
  73.   end;
  74.   {调用下一个Hook}
  75.   CallNextHookEx(DLLData^.hHook, nCode, wParam, lParam);
  76. end;
  79. {------------------------------------}
  80. {函数名:InstallHook
  81. {函数功能:在指定窗口上安装HOOK
  82. {函数参数:HWindow:要安装HOOK的窗口
  83. {         SWindow:用于接收消息的窗口
  84. {返回值:成功返回TRUE,失败返回FALSE
  85. {------------------------------------}
  86. function InstallHook(HWindow, SWindow: LongWORD):Boolean;stdcall;
  87. var
  88.   ThreadID: LongWORD;
  89.   hEvent: THandle;
  90. begin
  91.   Result := False;
  92.   DLLData^.hHook := 0;
  93.   DLLData^.HookWindow := HWindow;
  94.   DLLData^.SpyWindow := SWindow;
  95.   {得到指定窗口的线程ID}
  96.   ThreadID := GetWindowThreadProcessId(HWindow, nil);
  97.   {给指定窗口挂上钩子}
  98.   hEvent := CreateEvent(nil, True, False, HOOK_EVENT_NAME);
  99.   DLLData^.hHook := SetWindowsHookEx(WH_MOUSE, @HookProc, Hinstance, ThreadID);
  100.   SetEvent(hEvent);
  101.   CloseHandle(hEvent);
  102.   if DLLData^.hHook > 0 then Result := True;  {是否成功HOOK}
  103. end;
  105. {------------------------------------}
  106. {过程名:UnHook
  107. {过程功能:卸载HOOK
  108. {过程参数:无
  109. {------------------------------------}
  110. procedure UnHook;stdcall;
  111. begin
  112.   {发送卸载子类化消息给指定窗口}
  113.   SendMessage(DLLData^.HookWindow, WM_UNSUBCLASS, 0, 0);
  114.   DLLData^.SubClass := False;
  115.   {卸载Hook}
  116.   UnhookWindowsHookEx(DLLData^.hHook);
  117. end;
  119. {------------------------------------}
  120. {过程名:DLL入口函数
  121. {过程功能:进行DLL初始化,释放等
  122. {过程参数:DLL状态
  123. {------------------------------------}
  124. procedure MyDLLHandler(Reason: Integer);
  125. var
  126.   FHandle: LongWORD;
  127. begin
  128.   case Reason of
  129.     DLL_PROCESS_ATTACH:
  130.     begin            {建立文件映射,以实现DLL中的全局变量}
  131.       FHandle := CreateFileMapping($FFFFFFFF, nil, PAGE_READWRITE, 0, $ff, 'MYDLLDATA');
  132.       if FHandle = 0 then
  133.       if GetLastError = ERROR_ALREADY_EXISTS then
  134.       begin
  135.         FHandle := OpenFileMapping(FILE_MAP_ALL_ACCESS, False, 'MYDLLDATA');
  136.         if FHandle = 0 then Exit;
  137.       end else Exit;
  138.       DLLData := MapViewOfFile(FHandle, FILE_MAP_ALL_ACCESS, 0, 0, 0);
  139.       if DLLData = nil then
  140.         CloseHandle(FHandle);
  141.     end;
  142.     DLL_PROCESS_DETACH:
  143.       if Assigned(DLLData) then
  144.       begin
  145.         UnmapViewOfFile(DLLData);
  146.         DLLData := nil;
  147.       end;
  148.     DLL_THREAD_ATTACH:;
  149.     DLL_THREAD_DETACH:;
  150.   end;
  151. end;
  153. {$R *.res}
  154. exports
  155.   InstallHook, UnHook, HookProc;
  157. begin
  158.   DLLProc := @MyDLLHandler;
  159.   MyDLLhandler(DLL_PROCESS_ATTACH);
  160. end.

编译这个DLL,然后在我们的程序中加载这个DLL,并调用InstallHook(目标窗口句柄, 自己窗口句柄)就可  以实现对目标窗口消息的监视了(在接收到WM_NEWMESSAGE消息时读映射的内存),调用UnHook则可以卸载掉子类化和HOOK.具休的代码还请读者自行编写.

  1. unit Unit2;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, StdCtrls;
  9. const WM_NEWMESSAGE = WM_USER + 1002;
  11. type
  12.   TForm2 = class(TForm)
  13.     btn1: TButton;
  14.     btn2: TButton;
  15.     lst1: TListBox;
  16.     procedure btn1Click(Sender: TObject);
  17.     procedure btn2Click(Sender: TObject);
  18.   private
  19.     procedure ShowMsg(var Message:TMessage);message WM_NEWMESSAGE;
  20.   public
  21.     { Public declarations }
  22.   end;
  23.   function InstallHook(HWindow, SWindow: LongWORD):Boolean;stdcall;external 'Hook.dll';
  24.   procedure UnHook;stdcall;external 'Hook.dll';
  25. var
  26.   Form2: TForm2;
  27.   ListCount:Integer;
  29. implementation
  31. {$R *.dfm}
  33. procedure TForm2.ShowMsg(var Message:TMessage);
  34. begin
  35.   if Message.Msg = WM_MOUSEHOVER then
  36.   begin
  37.     ListCount:=ListCount+1;
  38.     Form2.lst1.AddItem(IntToStr(ListCount)+'.'+IntToStr(Message.WParam)+','+IntToStr(Message.lParam),nil);
  39.   end;
  40. end;
  43. function GetWindowHwnd:THandle;
  44. begin
  45.   Result:=FindWindow(nil,'ABCDE.txt - 记事本');
  46. end;
  48. procedure TForm2.btn1Click(Sender: TObject);
  49. var
  50.   TmpWndHandle: THandle;
  51. begin
  52.   TmpWndHandle := 0;
  53.   TmpWndHandle := GetWindowHwnd;
  54.   if not isWindow(TmpWndHandle) then
  55.   begin
  56.     MessageBox(self.Handle, '没有找到指定窗口', '!!!', MB_OK);
  57.     exit;
  58.   end;
  59.   InstallHook(TmpWndHandle,Handle);
  60. end;
  62. procedure TForm2.btn2Click(Sender: TObject);
  63. begin
  64.   UnHook;  //下message钩子
  65. end; 
  67. end.
C++一个类和子类的实现 c# 对某些进程的限制如何实现 “红外线干燥技术”是怎样实现对食品的干燥？ blog的实现技术 年龄已经不允许我在跨进校门了，难道就没有其它更好的办法可行了吗？当兵就真的那么难吗？ 网络课件的技术实现 P2P技术的TCP实现！！ 三重乳化技术的实现 求: 用c语言实现进程控制的源码 关于进程结束 传送消息的问题 中国移动的**139业务是用什么技术实现的？ 谁知道广州技术比赛的消息 非对称加码技术是怎么样实现的？是不是也用置换和易位实现啊？ 期货业必有大的发展，但要怎样才能跨进这个行业？ unix进程管理的设计和实现 讯雷实现P2P的进程是什么? 智能双线的技术如何实现的？ 电脑一拖多技术是如何实现的？ EJB是基于哪些技术实现的？ 判别技术能否实现工业化的标准 如何实现服务器的负载均衡技术? 关于 语音视频技术的技术实现问题 谁有基于SIP用java实现消息传递的流程图啊 急求电子类的开题报告