关于钩子的问题！(100分)

kevin_gao · 2001-10-10

有一个地方很是不明白。用hook来监视，一个窗口是否出现，怎么实现？用SetWindowsHookEx(WH_GETMESSAGE,@CallBackHook,HInstance,0);之后，好象是只要有消息就截获。我想只处理比如一个窗口出现的消息，应该怎么弄？     hook我不是太懂，请高手指点指点。   ***************************************************************************** 我要实现的是用hook查看比如QQ的弹出窗口,一旦有QQ的窗口弹出,就取得它的句柄，然后去控制它。该如何用hook找到这个弹出的窗口？？？？？？？？？

叶不归 · 2001-10-10

在回调函数中获取窗口弹出的消息： function CallBackHook(nCode: Integer; wp: wParam; lp: lParam): LResult; stdcall; begin   if (( PCWPStruct(lp)^.Message = WM_OPEN) or       ( PCWPStruct(lp)^.Message = WM_ACTIVE) or       ( PCWPStruct(lP)^.hwnd = 'QQ') then   begin     .....     Exit;   end;   Result := CallNextHookEx( GoData^.ghHook, nCode, wP, lP); end; 还有，下次提问请注意换行。

kevin_gao · 2001-10-10

有没有详细点的代码例子? 要有详细点的注释. 谢谢!

DDK · 2001-10-10

用findwindow得到QQ窗口的句柄

kevin_gao · 2001-10-10

WM_OPEN和WM_ACTIVE这两个消息都说没定义. PCWPStruct(lP)^.hwnd = 'QQ'提示类型不符合.

kevin_gao · 2001-10-11

为什么我用钩子钩住之后，一次窗口创建过程回调用很多次回掉函数中过滤后的语句？ 而且这个语句好象不起作用:sendMessage(temp,WM_SHOWWINDOW,1,0); 我的回调程序如下：  function CallBackHook(nCode: Integer; wp: wParam; lp: lParam): LResult; stdcall; var     temp:HWnd; begin   if (( PCWPStruct(lp)^.Message = WM_CREATE) and         ( PCWPStruct(lP)^.hwnd<>0)) then   begin     //messagebox(PCWPStruct(lP)^.hwnd,pchar('Test'),pchar('Test'),MB_OKCANCEL) ;     temp:=findWindow('#32770','发送消息');     if temp<>0 then     begin         sendMessage(temp,WM_SHOWWINDOW,1,0);         MessageDlg('出来了！',mtConfirmation, [mbYes, mbNo], 0);     end;      Exit;   end; Result := CallNextHookEx( HookKeyBoard, nCode, wP, lP); end;

Chenlili · 2001-10-11

sendmessage不行就用postmessage

kevin_gao · 2001-10-11

postmessage也不行。为什么？ 还有，一但窗口有创建就会执行7，8次这条语句，为什么？ MessageDlg('出来了！',mtConfirmation, [mbYes, mbNo], 0)

叶不归 · 2001-10-11

把你的( PCWPStruct(lP)^.hwnd<>0)) then中的0改为窗口句柄HH， HH := Findwindow(nil,'caption');这样应该不会执行7，8次了。 上次说的WM_ACTIVE应该是WM_ACTIVATE... 如果要显示窗口，可以不用SendMessage，试试ShowWindow()函数。

kevin_gao · 2001-10-11

还是执行7，8回。。。。。。。。。。。。。。。 ：（

叶不归 · 2001-10-11

to ：kevin_gao 留下你的QQ号码！！Me: 8046837 今天你是怎么发信息到我机子上的！！！！？？？？ 告诉我，我就帮你编。

热血 · 2001-10-11

你的代码有很多问题 wm_create只要有窗口创建就会发生 qq发送窗口里面也有7,8个子窗口 而你的代码只要有wm_create并且发送窗口找到你就弹出messagebox 所以会出现你的情况 显示窗口一般用showwindow

kevin_gao · 2001-10-11

To 热血:    这么说出现一次窗口的创建会收到很多次wm_create消息？    会不会是我messagebox弹出的时候又出现了wm_create消息？如果这样应该进入死循环 吧？？？？？？？？

micony · 2001-11-17

可以换一种角度来考虑呀,一个窗口弹出都会获得焦点的,因此可以如此: function HookPro(iCode:Integer;wParam:wParam;lParam:lParam):lResult;stdcall; var   hHook:Integer;   Cpt:string; begin        lHandle:=GetActiveWindow();  //获得活动窗口的句柄         SetLength(Cpt,256);         GetWindowText(lHandle,pChar(Cpt),256);  //获得活动窗口的名字,放入Cpt中         SetLength(Cpt,StrLen(pChar(Cpt)));         if cpt='QQ 登陆' then         begin           ......//something you do         end; end;

未来107 · 2001-11-25

如果用来关闭调用程序，那么dll（hook)中如何编程?

tt.t · 2002-02-10

hehe, 不要用WH_GETMESSAGE这个钩子，应该用WH_CBT。若wParam=HCBT_CREATEWND, 则将要创建一个窗口。 看看delphi的帮助巴。 it is easy really!!

关于钩子的问题！(100分)

kevin_gao

Unregistered / Unconfirmed

叶不归

Unregistered / Unconfirmed

kevin_gao

Unregistered / Unconfirmed

DDK

Unregistered / Unconfirmed

kevin_gao

Unregistered / Unconfirmed

kevin_gao

Unregistered / Unconfirmed

Chenlili

Unregistered / Unconfirmed

kevin_gao

Unregistered / Unconfirmed

叶不归

Unregistered / Unconfirmed

kevin_gao

Unregistered / Unconfirmed

叶不归

Unregistered / Unconfirmed

热血

Unregistered / Unconfirmed

kevin_gao

Unregistered / Unconfirmed

micony

Unregistered / Unconfirmed

未来107

Unregistered / Unconfirmed

tt.t

Unregistered / Unconfirmed

Similar threads