我实在不行了,关于HOOK ( 积分: 200 )

ralfa · 2007-03-08

我查了好多资料和在这里翻查了好久的帖子,但是还是无法做的出来 我要做的其实以前好多帖子都提出过了的 ,但是都没确切的代码可以提供参考 就是 如果我需要监视 系统窗口的 创建/焦点变更/关闭 一类事件 该如何写呢 下面是我写的测试DLL 目的是取得其他激活的窗口的句柄,但是好象失败了,来来去去都是在同一返回值; library ProjectDllTest; uses   SysUtils,   Windows,   Classes,   IniFiles,   Messages; {$R *.res} var    CBTHandle: HHOOK;//hook   masin:integer;//回传变量   master_masin:integer;   //------------------ function sets(masters:integer) :integer;stdcall;export; begin master_masin:=masters; end;  function gets():integer;stdcall;export;   begin      result:=masin;   end;          //--------------------------- CBT Hook test --------------------------- // CBT（computer-based training ）全局钩子测试函数 function CBTProc(nCode: Integer;wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall; var now_masin:integer; begin   if(nCode = HCBT_ACTIVATE) then   begin now_masin:=GetForegroundWindow; if(now_masin<>master_masin) then begin masin:=now_masin; end;   end;   Result := CallNextHookEx(CBTHandle,nCode,wParam,lParam); end; // 设置CBT全局钩子 function EnableCBTHook(): Boolean; stdcall; export; begin   cbtHandle := SetWindowsHookEx(WH_cbt,@cbtProc,hInstance,0);    if( cbtHandle = 0) then Result := False   else Result := True; end; //取消 CBT全局钩子 function DisableCBTHook(): Boolean; stdcall; export; begin    if( cbtHandle <> 0) then UnhookWindowsHookEx(cbtHandle);   Result := True; end; exports   EnableCBTHook,DisableCBTHook ,gets,sets; end.

ralfa · 2007-03-08

补充下 难道MOUSEHOOK KEYBOADHOOK和 CBT,SHELL那些HOOK写法不同的么? 我看见铺天盖地都是MOUSE和KB的例子 我也试过试可以的,但是按照MOUSE和KB的样子写CBT和SHELL却万万不行 但是偏偏又找不到CBT和SHELL的 完整例子 真郁闷死人了

52free · 2007-03-08

Value HCBT_ACTIVATE  wParam   Specifies the handle to the window about to be activated. lParam   Specifies a long pointer to a CBTACTIVATESTRUCT structure containing the handle to the active window and specifies whether the activation is changing because of a mouse click.    看msdn，激活窗口的句柄应该取值于wParam

ralfa · 2007-03-09

我也用WPARAN过 但是出来和 GetForegroundWindow 一样 不是0就是一个固定的句柄

ralfa · 2007-03-09

不过我直接获取事件 就是吧  if(nCode = HCBT_ACTIVATE) then 去掉 改获取 NCODE 的话 每次切换都只能获得一次获得 4和8 就是说 我先点其他窗口再点回主程序 钩子只能得到一次切换.....而不是2次..是不是我的代码哪里错了?

暗夜中独舞 · 2007-03-09

你用gets sets函数来取的DLL里的变量值吗？？？ 在调用DLL的程序了你用了这两个函数了吗？ 如果是这样肯定不行的，内存不一样，你取出来的值是0 如果你想和DLL共享变量的话，要用到文件内存映射 如果你有需要的话 我就贴出来 我看了看你上面的代码，钩子思想已经没有错了，但是变量的使用上还有问题

dinglj1760 · 2007-03-09

呵呵，写钩子肯定会遇到这类问题的。 我以前写系统钩子的时候也是这样的。 做一个数据共享段，在ｅｘｅ和ｄｌｌ之间共享，然后发送消息过去就可以的。

ralfa · 2007-03-09

哦?是么?那拜托贴来看看 谢谢 我的确是用了GETS来获得DL的变量 用SETS来设置........看来是我漏了什么部分? 因为我只能参考MOUSE的HOOK那些代码做参考  不见有用倒映射什么的

暗夜中独舞 · 2007-03-09

//DLL部分 //声明 var   KeyBoardHook,hMappingFile: THandle;   FirstProcess:boolean;{是否是第一个进程}   pShMem

ShareMem; //pShareMem是自定义的结构体指针，用来存你需要的变量 //在初始化DLL的时候加入这些代码，建立共享内存   hMappingFile := OpenFileMapping(FILE_MAP_WRITE,False,MappingFileName);    if hMappingFile=0 then         hMappingFile := CreateFileMapping($FFFFFFFF,nil,PAGE_READWRITE,0,SizeOf(TShareMem),MappingFileName);    if hMappingFile=0 then Exception.Create('不能建立共享内存!');    pShMem :=  MapViewOfFile(hMappingFile,FILE_MAP_WRITE or FILE_MAP_READ,0,0,0);    if pShMem = nil then    begin       CloseHandle(hMappingFile);       Exception.Create('不能映射共享内存!');    end;

暗夜中独舞 · 2007-03-09

//EXE部分 private     { Private declarations }     hMapObj : THandle;     pShMem : PShareMem; procedure TForm1.FormCreate(Sender: TObject); begin   hMapObj := OpenFileMapping(FILE_MAP_WRITE,{获取完全访问映射文件}                              False,{不可继承的}                              LPCTSTR(MappingFileName));{映射文件名字}   if hMapObj = 0 then   begin     ShowMessage('不能定位内存映射文件块!');     Halt;   end;   pShMem := MapViewOfFile(hMapObj,FILE_MAP_WRITE,0,0,0);   if pShMem = nil then   begin     ShowMessage('映射文件错误'+ IntToStr(GetLastError));     CloseHandle(hMapObj);     Halt;   end; end;

暗夜中独舞 · 2007-03-09

//其中,mappingfilename是共享内存的名称 const      MappingFileName = 'myFileName'; //自定义结构体 type     PPointer = ^Pointer;     TShareMem = packed record         //加入你用到的变量，比如         masin:integer;//回传变量        master_masin:integer;            end;     PShareMem = ^TShareMem;

暗夜中独舞 · 2007-03-09

这样 你就可以再EXE和DLL里共同使用一个变量了

ralfa · 2007-03-09

我试试谢谢

ralfa · 2007-03-09

可以了,我看别的例子 直接对变量操作  //======================== library dll; uses   ShareMem,   SysUtils,   Windows,   Classes,   IniFiles,   Messages; {$R *.res}  const      MappingFileName = 'myFileName'; //自定义结构体 type     PPointer = ^Pointer;     TShareMem = packed record         //加入你用到的变量，比如         masin:integer;//回传变量        master_masin:integer;            end;     PShareMem = ^TShareMem; var    CBTHandle: HHOOK;//hook   masin:integer;//回传变量   master_masin:integer;   hMappingFile: THandle;   FirstProcess:boolean;{是否是第一个进程}   pShMem

ShareMem; //pShareMem是自定义的结构体指针，用来存你需要的变量   //------------------ function sets(masters:integer):integer;stdcall;export; begin //master_masin:=masters; //result:=1; end;  function gets():integer;stdcall;export;   begin  //    result:=masin;   end;          //--------------------------- CBT Hook test --------------------------- // CBT（computer-based training ）全局钩子测试函数 function CBTProc(nCode: Integer;wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall; var now_masin:integer; begin   if(nCode = HCBT_ACTIVATE) then   begin  now_masin:=wParam;  if(now_masin<>pShMem^.master_masin) then  begin    pShMem^.masin:=now_masin;      end;   end;   Result := CallNextHookEx(CBTHandle,nCode,wParam,lParam); end; // 设置CBT全局钩子 function EnableCBTHook(): Boolean; stdcall; export; begin   cbtHandle := SetWindowsHookEx(WH_cbt,@cbtProc,hInstance,0);    if( cbtHandle = 0) then Result := False   else Result := True; end; //取消 CBT全局钩子 function DisableCBTHook(): Boolean; stdcall; export; begin    if( cbtHandle <> 0) then UnhookWindowsHookEx(cbtHandle);   Result := True; end; exports   EnableCBTHook,DisableCBTHook ,gets,sets; begin   hMappingFile := OpenFileMapping(FILE_MAP_WRITE,False,MappingFileName);    if hMappingFile=0 then         hMappingFile := CreateFileMapping($FFFFFFFF,nil,PAGE_READWRITE,0,SizeOf(TShareMem),MappingFileName);    if hMappingFile=0 then Exception.Create('不能建立共享内存!');    pShMem :=  MapViewOfFile(hMappingFile,FILE_MAP_WRITE or FILE_MAP_READ,0,0,0);    if pShMem = nil then    begin       CloseHandle(hMappingFile);       Exception.Create('不能映射共享内存!');    end;     end.

ralfa · 2007-03-09

但是有个小问题 为什么关闭程序的时候老出错呢 跳几个错误窗口 可以帮忙看看么 EXE的部分 unit test; interface uses  sharemem, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls; const     MappingFileName

char= 'myFileName'; //自定义结构体 type     PPointer =^Pointer;     TShareMem = packed record         //加入你用到的变量，比如         masin:integer;//回传变量        master_masin:integer;     end;     PShareMem =^TShareMem;  type   TForm1 = class(TForm)     Button1: TButton;     Button2: TButton;     Memo1: TMemo;     procedure Button1Click(Sender: TObject);     procedure Button2Click(Sender: TObject);     procedure FormCreate(Sender: TObject);   private     { Private declarations }         hMapObj : THandle;     pShMem : PShareMem;   public     { Public declarations }   end; var   Form1: TForm1; function EnableCBTHook: Boolean; stdcall; external 'dll.dll'; implementation procedure TForm1.Button1Click(Sender: TObject); var x:integer; begin x:=self.Handle; pShMem^.master_masin:=x; EnableCBTHook; end; procedure TForm1.Button2Click(Sender: TObject); begin memo1.Text:= inttostr(pShMem^.masin)+'    '+ inttostr(self.Handle); end; procedure TForm1.FormCreate(Sender: TObject); begin  hMapObj := OpenFileMapping(FILE_MAP_WRITE,{获取完全访问映射文件}                              False,{不可继承的}                              LPCTSTR(MappingFileName));{映射文件名字}   if hMapObj = 0 then   begin     ShowMessage('不能定位内存映射文件块!');     Halt;   end;   pShMem := MapViewOfFile(hMapObj,FILE_MAP_WRITE,0,0,0);   if pShMem = nil then   begin     ShowMessage('映射文件错误'+ IntToStr(GetLastError));     CloseHandle(hMapObj);     Halt;   end; end; end.

ralfa · 2007-03-09

好象老是引起IE出错的?

ralfa · 2007-03-09

其中有个错误窗口试显示 RUNTIME ERROR 217 AT 00413C7C

暗夜中独舞 · 2007-03-09

忘了给取消映射的代码了  不好意思 在窗体退出的时候，或者在ＤＬＬ  finalization部分  加入    UnMapViewOfFile(pShMem); {取消映射视图}    CloseHandle(hMappingFile); {关闭映射文件句柄}

ralfa · 2007-03-09

EXE中的是不是不对呢  CloseHandle(hMapObj); 我直接改成  pShMem := MapViewOfFile(hMapObj,FILE_MAP_WRITE,0,0,0);   if pShMem <> nil then   begin     ShowMessage('映射文件错误'+ IntToStr(GetLastError));     CloseHandle(hMapObj);     Halt;   end; end;    一样出错的

ralfa · 2007-03-09

我实在不行了,关于HOOK ( 积分: 200 )

ralfa

Unregistered / Unconfirmed

ralfa

Unregistered / Unconfirmed

52free

Unregistered / Unconfirmed

ralfa

Unregistered / Unconfirmed

ralfa

Unregistered / Unconfirmed

暗夜中独舞

Unregistered / Unconfirmed

dinglj1760

Unregistered / Unconfirmed

ralfa

Unregistered / Unconfirmed

暗夜中独舞

Unregistered / Unconfirmed

暗夜中独舞

Unregistered / Unconfirmed

暗夜中独舞

Unregistered / Unconfirmed

暗夜中独舞

Unregistered / Unconfirmed

ralfa

Unregistered / Unconfirmed

ralfa

Unregistered / Unconfirmed

ralfa

Unregistered / Unconfirmed

ralfa

Unregistered / Unconfirmed

ralfa

Unregistered / Unconfirmed

暗夜中独舞

Unregistered / Unconfirmed

ralfa

Unregistered / Unconfirmed

ralfa

Unregistered / Unconfirmed

Similar threads