谁有hook代码 (50分)

liaoshu · 2004-02-26

要能hook sendmessage的

品梅小哥 · 2004-02-26

unit UnitHookMsg; interface  uses windows,messages,SysUtils; const   WM_HOOKMSG = WM_USER + $1000;   _mapFile = '_msgHookMap';   procedure StartMsg ; stdcall;   procedure StopMsg;  stdcall; implementation var   NextHook      : HHook;   FileMapHandle : THandle;   PViewInteger  : ^Integer; function HookHandler( Code    : Integer;                           wParam  : WPARAM;                           lParam  : LPARAM                           )       : LRESULT; stdcall; var   Msg : PMSG; begin   if code=HC_ACTION then   begin   Msg := PMSG(lParam);   case Msg.message of   WM_CREATE:   begin     PostMessage(PViewInteger^,WM_HOOKMSG,wParam,lParam);   end;   end;   end;   Result := CallNextHookEx(NextHook, Code, wParam, lParam); end; procedure StartMsg; stdcall; begin   NextHook:=SetWindowsHookEx((*WH_GETMESSAGE,WH_CALLWNDPROCRET*)WH_CALLWNDPROC, HookHandler, HInstance , 0); (*HOOK在MySpy里是用的最多的技术，从获取密码到截获系统的消息都是HOOK技术，可以说这 个技术已经不是什么技术了，网上随便一个编程站点都可以找到相关介绍资料，但截获系统 消息的还是比较麻烦的，作者就介绍一下它吧,截获系统消息无非是安装系统钩子WH_CALLWNDPROC、 WH_CALLWNDPROCRET和WH_GETMESSAGE，为什么要安装这么多，因为系统消息有很多不同的类型， 有Send，Post还有处理消息返回也是需要截获的，当然如果你对系统菜单也感兴趣，还需要安 装WH_SYSMSGFILTER钩子，因为这是一个系统范围的钩子，所以必须编写成为DLL，而核心代码 也不过就是： WH_CALLWNDPROC和WH_CALLWNDPROCRET Hooks使你可以监视发送到窗口过程的消 息。系统在消息发送到接收窗口过程之前调用WH_CALLWNDPROC Hook子程，并且在窗口过程处理 完消息之后调用WH_CALLWNDPROCRET Hook子程。  WH_CALLWNDPROCRET Hook传递指针到 CWPRETSTRUCT结构，再传递到Hook子程。CWPRETSTRUCT结构包含了来自处理消息的窗口过程的 返回值，同样也包括了与这个消息关联的消息参数。 *) end; procedure StopMsg;  stdcall; begin   UnhookWindowsHookEx(NextHook); end; initialization       FileMapHandle:=OpenFileMapping(FILE_MAP_READ,False,_mapFile);       if FileMapHandle=0 then       begin         FileMapHandle := CreateFileMapping($FFFFFFFF,nil,PAGE_READWRITE,0,SizeOf(Integer),_mapFile);       end;       if FileMapHandle=0 then Exception.Create('不能建立共享内存!');       PViewInteger:=MapViewOfFile(FileMapHandle,FILE_MAP_READ,0,0,0);       if PViewInteger = nil then       begin         CloseHandle(FileMapHandle);         Exception.Create('不能映射共享内存!');       end; finalization       UnmapViewOfFile(PViewInteger);       CloseHandle(FileMapHandle); end. 上面是dll源码,调用程序需要先映射共享内存,设定主窗口句柄,然后StartMsg就行了

品梅小哥 · 2004-02-26

不好意思,中间那点文字是从别的地方找到的一点注释,写在自己程序里做参考的,可以忽略

liaoshu · 2004-02-26

to:品梅小哥 请问以下C++代码中的if(wparam==0x3e9)在delphi中应该如何写? LRESULT CALLBACK MyMsgProc(HWND hwnd,UINT umsg,WPARAM wparam,LPARAM lparam) { //消息过滤 switch (umsg) { case WM_ACTIVATEAPP: case WM_ACTIVATE: case WM_KILLFOCUS: case WM_SETFOCUS: case WM_CLOSE: return 0;//这里是个关键，把这个计时器kill case WM_TIMER: if(wparam==0x3e9) KillTimer(hwnd,wparam); break;     }

weiwei81123 · 2004-02-26

if wparam=$3e9 then

品梅小哥 · 2004-02-26

PostMessage(PViewInteger^,WM_HOOKMSG,wParam,lParam); 负责通知主窗口WM_HOOKMSG消息,也就是说当前截获到了消息,这个时候 lparam中保存的是一个PMSG结构, 当主窗口收到这个消息以后要 Msg := PMSG(lParam);  Msg.message才是你要的WM_ACTIVATEAPP... 应该这样: switch (Msg.messages)  {  case WM_ACTIVATEAPP: if(wparam==0x3e9)转化成 if (wParam = Integer($3E9))

liaoshu · 2004-02-26

to:品梅小哥     Msg := PMSG(lParam);     case Msg.message of       WM_TIMER:         if wparam=integer($3e9) then  KillTimer(h,wparam); 是否一定要加上后面的:       WM_CREATE:         PostMessage(PViewInteger^,WM_HOOKMSG,wParam,lParam);

品梅小哥 · 2004-02-26

呵呵,你理解错我的意思了 那个是个例子,你在设置钩子的时候(dll里), 这个时候你的钩子会钩到所有消息 function HookHandler( Code    : Integer;                          wParam  : WPARAM;                          lParam  : LPARAM                         &nbsp

: LRESULT; stdcall; var  Msg : PMSG; begin  if code=HC_ACTION then  begin  Msg := PMSG(lParam);  case Msg.message of  ///////////////////////////这里加入你要钩的消息s  WM_ACTIVATEAPP:  WM_ACTIVATE:  WM_KILLFOCUS:  WM_SETFOCUS:  WM_CLOSE:  //////////////////然后通知设置这个钩子的主窗口已经截到需要的消息了  begin    PostMessage(PViewInteger^,WM_HOOKMSG,wParam,lParam);  end;  end;  end;  Result := CallNextHookEx(NextHook, Code, wParam, lParam); end; 上面是在dll里面需要做的工作 在主程序里面,首先映射内存,设定钩子发送消息的窗口句柄,也就是主程序的句柄 procedure TFrmMain.btnMsgStartClick(Sender: TObject); begin    hMapMsg := OpenFileMapping(FILE_MAP_WRITE,False,_msgHookMap);///映射内存    if hMapMsg=0 then      raise Exception.Create( '创建内存映射文件时出错');    pMemMsg:=MapViewOfFile(hMapMsg,FILE_MAP_WRITE,0,0,0);    if pMemMsg = nil then exit;    pMemMsg^:=Handle;//////////////////////////////////当截到消息时,就给该句柄发送消息   StartMsg; end; //////////停止钩子的时候要关闭内存映射 procedure TFrmMain.btnMsgStopClick(Sender: TObject); begin   StopMsg;   if hMapMsg<>0 then   begin     UnmapViewOfFile(pMemMsg);     CloseHandle(hMapMsg);   end;   hMapMsg := 0; end; 另外你还要一个你已经定义的消息处理函数,就是这个消息WM_HOOKMSG = WM_USER + $1000; 当你的程序受到这个消息,说明dll里面的钩子截到了你需要的消息 然后你就要处理它了 定义     procedure HookMsg(var messages: TMessage); message  WM_HOOKMSG ; 过程 procedure TFrmMain.HookMsg(var messages: TMessage); var  Msg : PMSG; begin  Msg := PMSG(lParam);  case Msg.message of  WM_ACTIVATEAPP:  WM_ACTIVATE:  WM_KILLFOCUS:  WM_SETFOCUS:  WM_CLOSE:  begin    //do your things  end;  end; end;

品梅小哥 · 2004-02-26

另外wparam和lparam两个参数你一定要搞清楚 钩子截下来以后,整个消息就被封装在当时的lparam里了 function HookHandler( Code : Integer;wParam: WPARAM;[red]lParam: LPARAM [/red]) : LRESULT; stdcall; Msg := PMSG(lParam);  //这个才是你要的消息 在主程序中也是一样, 所以你这句 if wparam=integer($3e9) then    KillTimer(h,wparam); 我觉得可能得改成 if Msg.wparam=integer($3e9) then    KillTimer(h,Msg.wparam);

liaoshu · 2004-02-26

to:品梅小哥 实在不好意思,我是新手没什么分,等下我用朋友的号再给100分,请你帮看一下下面的代码 以下是我的程序 dll部分: library HookApi; uses   SysUtils,   windows,   Messages; type  PData = ^TData;  TData = record    Hook: THandle;    Hooked: Boolean;  end;   var  DLLData: PData;  h:thandle; {------------------------------------} {过程名:HookProc {过程功能:HOOK过程 {过程参数:nCode, wParam, lParam消息的相 {         关参数 {------------------------------------} procedure HookProc(nCode, wParam, lParam: LongWORD);stdcall; var  Msg : PMSG; begin  if ncode=HC_ACTION then  begin SetWindowLong(h,GWL_STYLE,GetWindowLong(h,GWL_STYLE) or WS_CAPTION);//修改窗体的exstyle属性 SetWindowLong(h,GWL_EXSTYLE,GetWindowLong(h,GWL_EXSTYLE)     or WS_EX_APPWINDOW or WS_EX_WINDOWEDGE);   //设置窗体的位置，取消其最前端显示，为图简单807,632是我自己随便设的//当然最好是先用AdjustWindowRect函数调整一下大小 SetWindowPos(h,HWND_NOTOPMOST,0,0,640,480,SWP_SHOWWINDOW);    ShowWindow(h,SW_SHOWNORMAL);    Msg := PMSG(lParam);    ///////////////////////////这里加入你要钩的消息s    if Msg.wparam=integer($3e9) then      KillTimer(h,Msg.wparam);    DLLData^.Hooked := True;  end;  //调用下一个Hook  CallNextHookEx(DLLData^.Hook, nCode, wParam, lParam); end; {------------------------------------} {函数名:InstallHook {函数功能:在指定窗口上安装HOOK {函数参数:sWindow:要安装HOOK的窗口 {返回值:成功返回TRUE,失败返回FALSE {------------------------------------} function InstallHook(SWindow: LongWORD):Boolean;stdcall; var  ThreadID: LongWORD; begin  Result := False;  DLLData^.Hook := 0;  h:=swindow;  ThreadID := GetWindowThreadProcessId(sWindow, nil);  //给指定窗口挂上钩子  DLLData^.Hook := SetWindowsHookEx(WH_GETMESSAGE, @HookProc, Hinstance, ThreadID);  if DLLData^.Hook > 0 then    Result := True  //是否成功HOOK  else    exit; end; {------------------------------------} {过程名:UnHook {过程功能:卸载HOOK {过程参数:无 {------------------------------------} procedure UnHook;stdcall; begin  //卸载Hook  UnhookWindowsHookEx(DLLData^.Hook); end; {------------------------------------} {过程名

LL入口函数 {过程功能:进行DLL初始化,释放等 {过程参数

LL状态 {------------------------------------} procedure MyDLLHandler(Reason: Integer); var  FHandle: LongWORD; begin  case Reason of    DLL_PROCESS_ATTACH:    begin            //建立文件映射,以实现DLL中的全局变量      FHandle := CreateFileMapping($FFFFFFFF, nil, PAGE_READWRITE, 0, $ffff, 'MYDLLDATA');      if FHandle = 0 then      if GetLastError = ERROR_ALREADY_EXISTS then      begin        FHandle := OpenFileMapping(FILE_MAP_ALL_ACCESS, False, 'MYDLLDATA');        if FHandle = 0 then Exit;      end else Exit;      DLLData := MapViewOfFile(FHandle, FILE_MAP_ALL_ACCESS, 0, 0, 0);      if DLLData = nil then        CloseHandle(FHandle);    end;    DLL_PROCESS_DETACH:    begin      if Assigned(DLLData) then      begin        UnmapViewOfFile(DLLData);        DLLData := nil;        h:=0;      end;    end;  end; end; {$R *.res} exports  InstallHook, UnHook, HookProc; begin  DLLProc := @MyDLLHandler;  MyDLLhandler(DLL_PROCESS_ATTACH);  DLLData^.Hooked := False; end. 主程序部分 var   Form1: TForm1;   InstallHook: function(SWindow:LongWORD):boolean;stdcall;   UnHook: procedure;stdcall; procedure TForm1.Button1Click(Sender: TObject); begin     @InstallHook := GetProcAddress(hw, 'InstallHook');     @UnHook := GetProcAddress(hw, 'UnHook');     if InstallHook(h) then       caption:='hook'; end; procedure TForm1.Button2Click(Sender: TObject); begin    Unhook; end; 不知道为什么勾不到.

品梅小哥 · 2004-02-26

SetWindowsHookEx(WH_GETMESSAGE, @HookProc, Hinstance, ThreadID); SetWindowsHookEx(WH_GETMESSAGE, @HookProc, Hinstance, 0);//试试看?? SetWindowsHookEx(WH_CALLWNDPROC, @HookProc, Hinstance, 0);//不行用这个,这个是消息被处理前,肯定能钩到 SetWindowsHookEx(WH_CALLWNDPROCRET, @HookProc, Hinstance, 0);//消息被处理后 你先试试看,这样行不行, 另外 if ncode=HC_ACTION then begin   SetWindowLong(h,GWL_STYLE,GetWindowLong(h,GWL_STYLE) or WS_CAPTION);//修改窗体的exstyle属性   SetWindowLong(h,GWL_EXSTYLE,GetWindowLong(h,GWL_EXSTYLE)    or WS_EX_APPWINDOW or WS_EX_WINDOWEDGE);  //设置窗体的位置，取消其最前端显示，为图简单807,632是我自己随便设的//当然最好是先用AdjustWindowRect函数调整一下大小   SetWindowPos(h,HWND_NOTOPMOST,0,0,640,480,SWP_SHOWWINDOW);   ShowWindow(h,SW_SHOWNORMAL); 这里好像不大好,截取系统消息以后,会出现N多的ncode=HC_ACTION 消息,这段程序应该放在别的地方

liaoshu · 2004-02-26

SetWindowsHookEx(WH_CALLWNDPROC, @HookProc, Hinstance, 0); 这个是全局钩子,会影响别的程序吧?

品梅小哥 · 2004-02-26

SetWindowsHookEx(WH_CALLWNDPROC, @HookProc, Hinstance, ThreadID); 这个时候截获消息以后,需要判断是否当前进程的消息 if ncode=HC_ACTION then begin   if (wparam <> 0) then   begin     //表示是当前进程,可以在这里处理   end; 你试试看吧,不行把程序发给我我帮你改一下

liaoshu · 2004-02-26

实在搞不定了,你拿去看看吧,还有别人的c++代码 http://sky.9226.com/hookapi.rar 谢谢

品梅小哥 · 2004-02-27

不好意思,你的程序有点乱,我自己做了一个应用程序调用dll 点击按钮设定钩子,程序里面在case的地方少了一个end    Msg := PMSG(lParam);     case msg.message of     WM_TIMER:       if (wparam=integer($3e9)) then          KillTimer(h,Msg.wparam);     end;////////////////////////////////////////////加上这个     DLLData^.Hooked := TRUE; 运行以后效果应该是你想要的 SetWindowLong(h,GWL_STYLE,GetWindowLong(h,GWL_STYLE) or WS_CAPTION);//修改窗体的exstyle属性 SetWindowLong(h,GWL_EXSTYLE,GetWindowLong(h,GWL_EXSTYLE)     or WS_EX_APPWINDOW or WS_EX_WINDOWEDGE);             //设置窗体的位置，取消其最前端显示，为图简单807,632是我自己随便设的//当然最好是先用AdjustWindowRect函数调整一下大小 SetWindowPos(h,HWND_NOTOPMOST,0,0,640,480,SWP_SHOWWINDOW);             ShowWindow(h,SW_SHOWNORMAL); 这几句都运行到了,所以消息是截到了已经,如果没有你要的效果,那说明你自己在后面的处理过程中有问题,我不知道你主程序的目的是什么,包括你在那里SetTimer,所以你要的 WM_TIMER消息我没办法帮你测试,你自己再看看怎么改 1.最好用nCode = HC_ACTION,虽然HC_ACTION定义也是0,这是一个风格问题 2.你好想还是没有理解,当截获这个消息的时候,原来的整个你需要的消息被封装在lparam 中了所以Msg.wParam才是 WM_TIMER消息的wParam,所以   if (wparam=integer($3e9)) then可能需要改成 if(Msg.wParam = Integer($3E9)) 3.你内存映射中的Hooked需要和主程序之间共享吗?如果是dll内部变量,就不要写入内存映 射了, 另外我用delphi程序调用了C++写的dll var hTemp : HWND; begin   hTemp := GetWindowThreadProcessId(Handle, nil);   InstallHook(true, hTemp); end; 运行效果和C++程序运行相同 如果你还搞不定,那把主调程序也发给我看一下

品梅小哥 · 2004-02-27

另外我希望你能理解我的编程风格,我个人觉得,封装起来的功能模块尽量要功能简单通用, 就像这个钩子dll一样,我觉得应该钩子只负责钩消息,而不负责处理,你要处理了,那这个dll 的扩展性就没了,当钩到消息以后你为什么不能把它发给主程序处理呢?你只要SendMessage 或者PostMessage给主程序,接下来就不用dll管了,你主程序再要作甚么是你自己的事,和dll 就无关了.

liaoshu · 2004-03-02

接受答案了.

谁有hook代码 (50分)

liaoshu

Unregistered / Unconfirmed

品梅小哥

Unregistered / Unconfirmed

品梅小哥

Unregistered / Unconfirmed

liaoshu

Unregistered / Unconfirmed

weiwei81123

Unregistered / Unconfirmed

品梅小哥

Unregistered / Unconfirmed

liaoshu

Unregistered / Unconfirmed

品梅小哥

Unregistered / Unconfirmed

品梅小哥

Unregistered / Unconfirmed

liaoshu

Unregistered / Unconfirmed

品梅小哥

Unregistered / Unconfirmed

liaoshu

Unregistered / Unconfirmed

品梅小哥

Unregistered / Unconfirmed

liaoshu

Unregistered / Unconfirmed

品梅小哥

Unregistered / Unconfirmed

品梅小哥

Unregistered / Unconfirmed

liaoshu

Unregistered / Unconfirmed

Similar threads