◆◆◆简单的消息钩子却钩不到消息！代码很少，大家来看看差哪？ ( 积分: 100 )

bcfans · 2005-11-20

//------------------------------------------------------------------ { DLL单元 } library Project1; uses  ShareMem, //因为用到了string类型  SysUtils,  Classes,  Unit1 in 'Unit1.pas'; {$R *.res} exports  StartSpyMessage,  StopSpyMessage; begin end. //------------------------------------------------------------------ { DLL单元引用的Unit1单元 } //------------------------------------------------------------------ unit Unit1; {  } interface uses  Messages, Windows, Classes, SysUtils; { 开始监视 hSpyWnd为调用者窗体上Edit控件的句柄 dwThreadId为要监视的线程的ID } function StartSpyMessage(hSpyWnd: THandle; dwThreadId: DWORD): Boolean; stdcall; { 结束监视 } procedure StopSpyMessage; stdcall; implementation var  HWndProc: THandle; //WH_CALLWNDPROC钩子的句柄  { 保存StartSpyMessage在被调用时传进来的要监视的线程的ID }  ghSpyWnd: HWND;     { WH_CALLWNDPROC的钩子过程 } function CallWndProc(code: Integer; wP: WPARAM; lP: LPARAM): LRESULT; stdcall; var  s: string; begin  if code = HC_ACTION then    if PCWPSTRUCT(lp)^.message = WM_COMMAND then //只想捕获菜单操作和快捷键操作    begin      { 设置DLL调用程序上的Edit控件的内容为受控程序的菜单ID或快捷键ID }      s := IntToStr(LOWORD(PCWPSTRUCT(lp)^.wParam));      MessageBox(0, '截获到了', '', MB_OK);      SendMessage(ghSpyWnd, WM_SETTEXT, Length(s), Longint(s)); { ghSpyWnd为DLL调用程序上的Edit控件的句柄 }    end;  Result := CallNextHookEx(HWndProc, code, wP, lP); end; function StartSpyMessage(hSpyWnd: THandle; dwThreadId: DWORD): Boolean; begin  Result := False;  ghSpyWnd := hSpyWnd;  if HWndProc <> 0 then    Exit;  { 因为只想监视指定程序，不想将DLL注入所有进程空间来挂WH_CALLWNDPROC钩子，所以使用了ThreadId 主要是想节省资源 }  HWndProc := SetWindowsHookEx(WH_CALLWNDPROC, @CallWndProc, HInstance, dwThreadId);  if HWndProc = 0 then  begin    StopSpyMessage;    Exit;  end;  Result := True; end; procedure StopSpyMessage; begin  UnhookWindowsHookEx(HWndProc);  HWndProc := 0; end; end. //------------------------------------------------------------------ //------------------------------------------------------------------ { DLL的调用程序窗体上放两个Edit，两个Button } unit Unit1; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls; type  TForm1 = class(TForm)    Edit1: TEdit;    Button1: TButton;    Button2: TButton;    Edit2: TEdit;    procedure Button1Click(Sender: TObject);    procedure Button2Click(Sender: TObject);    procedure FormDestroy(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end; var  Form1: TForm1; implementation {$R *.dfm} function StartSpyMessage(hSpyWnd: THandle; dwThreadId: DWORD): Boolean; stdcall; external 'Project1.dll'; procedure StopSpyMessage; stdcall; external 'Project1.dll'; procedure TForm1.Button1Click(Sender: TObject); begin  { Edit2上的内容为16进制的线程ID(创建最外层窗体的线程的ID)，可以用Spy++查得 }  StartSpyMessage(Edit1.Handle, strtoint('$' + Edit2.Text)); //开始监视 end; procedure TForm1.Button2Click(Sender: TObject); begin  StopSpyMessage; //停止监视 end; procedure TForm1.FormDestroy(Sender: TObject); begin  StopSpyMessage; end; end. //------------------------------------------------------------------ 现在的问题是： 在开始监视后用进程管理器可以看到Project1.dll和borlandmm.dll已经进入了受控程序的进程中。比如RealPlayer。 可是不论我操作其菜单还是使用快捷键，我的监控程序都监视不到！怎么回事？ 另外在停止监视时受控程序会弹出出错对话框，报告“0X00000000指令引用的0X00000000内存。该内存不能为read”怎么回事？ 差哪呢？为什么就不能捕获WM_COMMAND消息呢？为什么？？？？？

bcfans · 2005-11-20

//------------------------------------------------------------------ { DLL单元 } library Project1; uses  ShareMem, //因为用到了string类型  SysUtils,  Classes,  Unit1 in 'Unit1.pas'; {$R *.res} exports  StartSpyMessage,  StopSpyMessage; begin end. //------------------------------------------------------------------ { DLL单元引用的Unit1单元 } //------------------------------------------------------------------ unit Unit1; {  } interface uses  Messages, Windows, Classes, SysUtils; { 开始监视 hSpyWnd为调用者窗体上Edit控件的句柄 dwThreadId为要监视的线程的ID } function StartSpyMessage(hSpyWnd: THandle; dwThreadId: DWORD): Boolean; stdcall; { 结束监视 } procedure StopSpyMessage; stdcall; implementation var  HWndProc: THandle; //WH_CALLWNDPROC钩子的句柄  { 保存StartSpyMessage在被调用时传进来的要监视的线程的ID }  ghSpyWnd: HWND;     { WH_CALLWNDPROC的钩子过程 } function CallWndProc(code: Integer; wP: WPARAM; lP: LPARAM): LRESULT; stdcall; var  s: string; begin  if code = HC_ACTION then    if PCWPSTRUCT(lp)^.message = WM_COMMAND then //只想捕获菜单操作和快捷键操作    begin      { 设置DLL调用程序上的Edit控件的内容为受控程序的菜单ID或快捷键ID }      s := IntToStr(LOWORD(PCWPSTRUCT(lp)^.wParam));      MessageBox(0, '截获到了', '', MB_OK);      SendMessage(ghSpyWnd, WM_SETTEXT, Length(s), Longint(s)); { ghSpyWnd为DLL调用程序上的Edit控件的句柄 }    end;  Result := CallNextHookEx(HWndProc, code, wP, lP); end; function StartSpyMessage(hSpyWnd: THandle; dwThreadId: DWORD): Boolean; begin  Result := False;  ghSpyWnd := hSpyWnd;  if HWndProc <> 0 then    Exit;  { 因为只想监视指定程序，不想将DLL注入所有进程空间来挂WH_CALLWNDPROC钩子，所以使用了ThreadId 主要是想节省资源 }  HWndProc := SetWindowsHookEx(WH_CALLWNDPROC, @CallWndProc, HInstance, dwThreadId);  if HWndProc = 0 then  begin    StopSpyMessage;    Exit;  end;  Result := True; end; procedure StopSpyMessage; begin  UnhookWindowsHookEx(HWndProc);  HWndProc := 0; end; end. //------------------------------------------------------------------ //------------------------------------------------------------------ { DLL的调用程序窗体上放两个Edit，两个Button } unit Unit1; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls; type  TForm1 = class(TForm)    Edit1: TEdit;    Button1: TButton;    Button2: TButton;    Edit2: TEdit;    procedure Button1Click(Sender: TObject);    procedure Button2Click(Sender: TObject);    procedure FormDestroy(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end; var  Form1: TForm1; implementation {$R *.dfm} function StartSpyMessage(hSpyWnd: THandle; dwThreadId: DWORD): Boolean; stdcall; external 'Project1.dll'; procedure StopSpyMessage; stdcall; external 'Project1.dll'; procedure TForm1.Button1Click(Sender: TObject); begin  { Edit2上的内容为16进制的线程ID(创建最外层窗体的线程的ID)，可以用Spy++查得 }  StartSpyMessage(Edit1.Handle, strtoint('$' + Edit2.Text)); //开始监视 end; procedure TForm1.Button2Click(Sender: TObject); begin  StopSpyMessage; //停止监视 end; procedure TForm1.FormDestroy(Sender: TObject); begin  StopSpyMessage; end; end. //------------------------------------------------------------------ 现在的问题是： 在开始监视后用进程管理器可以看到Project1.dll和borlandmm.dll已经进入了受控程序的进程中。比如RealPlayer。 可是不论我操作其菜单还是使用快捷键，我的监控程序都监视不到！怎么回事？ 另外在停止监视时受控程序会弹出出错对话框，报告“0X00000000指令引用的0X00000000内存。该内存不能为read”怎么回事？ 差哪呢？为什么就不能捕获WM_COMMAND消息呢？为什么？？？？？

ff_ff · 2005-11-20

进程管理器是什么

bcfans · 2005-11-20

就是windows优化大师带的那个Windows进程管理

zhuangbx · 2005-11-20

传递主窗口句柄试试

bcfans · 2005-11-25

接受答案了.

◆◆◆简单的消息钩子却钩不到消息！代码很少，大家来看看差哪？ ( 积分: 100 )

bcfans

Unregistered / Unconfirmed

bcfans

Unregistered / Unconfirmed

ff_ff

Unregistered / Unconfirmed

bcfans

Unregistered / Unconfirmed

zhuangbx

Unregistered / Unconfirmed

bcfans

Unregistered / Unconfirmed

Similar threads