高难问题请教,500分!(100分)

hubdog · 1999-11-30

那你就接管他的wm_settext消息，把内容copy到你的程序

cAkk · 1999-11-30

window style: WS_CHILDWINDOW WS_VISIBLE WS_VSCROLL WS_HSCROLL WS_OVERLAPPED Extended Style WS_EX_LEFT WS_EX_LTRREADING WS_EX_RIGHTSCROLLBAR Class Styles: CS_DBLCLKS 附注:该edit是放在一个MDIChild里面的. >>那你就接管他的wm_settext消息，把内容copy到你的程序 怎样copy?

hubdog · 1999-11-30

library hookdemo; uses   SysUtils,   Classes,windows,messages; {$R *.RES} const  CopyMessage=wm_user+1001;  HookMemFileName='Hook.DAT'; type   THookrec=record     hookerhandle:THandle;//your app     hookedhandle:THandle;//be hooked app     copyhook:integer;   end;   PHookRec=^THOOKrec; var   hookrec

HOOKRec;   memfile:THandle; {------------ Hook procedures ------------------} // Callback of the Keyboard Hook function CopyHookProc(Code:integer;// hook code           wParam:WPARAM;// removal flag 没用           lParam:lParam // address of structure with message           ):LRESULT;stdcall; var   Buffer

Char;   buffersize:integer;   copyStruct:Tcopydatastruct; begin   if code=HC_ACTION then   begin     if (pmsg(lParam)^.hwnd=hookrec^.hookedhandle) and (PMsg(lParam)^.message=wm_settext) then     begin       Buffersize:=strlen(PChar(pmsg(lParam)^.lParam))+1*SizeOf(char);       getmem(Buffer,buffersize);       strcopy(Buffer,PChar(pmsg(lParam)^.lParam));       with copystruct do       begin         dwdata:=wm_user+1001;         cbdata:=buffersize;         lpdata:=Buffer;       end;       SendMessage(Hookrec^.hookerhandle,wm_copydata,0,Longint(@copystruct));       freemem(Buffer,buffersize);     end   end;   //HC_NoREmove need not process   Result := CallNextHookEx(Hookrec^.copyHook, Code, wParam, lParam); end; {----------------Procedures called by TCXHook component----------------} procedure InstallHook; stdcall; begin   Hookrec^.copyHook:=SetWindowsHookEx(WH_GetMessage, @copyHookProc, HInstance , 0); end; //UnInstallHook procedure UnHook;  stdcall; begin   UnhookWindowsHookEx(Hookrec^.copyHook); end; procedure Sethandle(a,b:Integer); stdcall; begin   hookrec^.hookerhandle:=a;   Hookrec^.hookedhandle:=b; end; procedure IntoDll; stdcall; begin   MemFile:=OpenFileMapping(FILE_MAP_WRITE,False,HookMemFileName);   if MemFile=0 then     MemFile:=CreateFileMapping($FFFFFFFF,nil,          PAGE_READWRITE,0,SizeOf(THookRec),HookMemFileName);   HookRec:=MapViewOfFile(MemFile,FILE_MAP_WRITE,0,0,0);   if MemFile=0 then   FillChar(HookRec^,SizeOf(THookRec),0); end; procedure ExitDll; stdcall; begin   UnmapViewOfFile(HookRec);   CloseHandle(MemFile); end; procedure DLLEntryPoint(reason:integer); begin  case reason of    0: {DLL_PROCESS_DETACH} ExitDll;    1: {DLL_PROCESS_ATTACH} IntoDll;  end; end; exports  InstallHook,  UnHook,  Sethandle ; begin  Intodll;  DLLProc:=@DLLEntryPoint; end. //上面是钩子的dll //下面是主程序 unit ccopyhook; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   StdCtrls; type   TForm1 = class(TForm)     Memo1: TMemo;     Button1: TButton;     procedure wmcopy(var message:TMessage);message wm_copydata;     procedure Button1Click(Sender: TObject);     procedure FormDestroy(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1; implementation {$R *.DFM} procedure InstallHook; external 'Hookdemo.dll' name 'InstallHook'; procedure unhook;external 'hookdemo.dll' Name 'unhook'; procedure sethandle;external 'hookdemo.dll' Name 'sethandle'; procedure TForm1.wmcopy(var message: TMessage); begin   if pcopydatastruct(message.lParam)^.dwdata=wm_user+1001 then     memo1.SetTextBuf(PChar(pcopydatastruct(message.lParam)^.lpData)); end; procedure TForm1.Button1Click(Sender: TObject); var   a,b:integer; begin    b:=findwindow(yourwanttohook);    a:=handle;    sethandle(a,b);    installhook; end; procedure TForm1.FormDestroy(Sender: TObject); begin   unhook; end; end. //你试一下吧，我没试可能有bug.

hubdog · 1999-11-30

to cakk:   我刚看了一篇文章发现钩子也可以挂在消息处理的最后，这说明我们没准能使你要 crack的edit,响应wm_paste,wm_copy消息呢。

hubdog · 1999-11-30

又想了一下，挂在后面也不行:-(

Another_eYes · 1999-12-01

不明白: 你即使能接管那玩意的消息又如何? 人家程序根本不处理wm_copy, wm_paste怎么办(做到这个太简单了, 重写 wndproc, 遇到这两个消息不发往defaultwndproc就能做到了)? 你自己来处理? 既然你能代替别人处理wm_copy, wm_paste消息, 那说明你本来就可以 得到文本的内容, 那还要截取消息干吗?

hubdog · 1999-12-01

又想了想，也许可以。如果能使edit响应wm_copy,wm_paste，那么不就省事了吗。 少写不少东西

cAkk · 1999-12-01

hubdog: 你的hook不行.         再想想,拜托.

tlaolao · 1999-12-01

不知道金山能不能翻译edit里的文章

cAkk · 1999-12-01

金山?什么意思? 翻译过来也没用了,我要的是原文. 我有一个想法,初步试验可行,如果没有人有更好的想法,那么帮助我完成这个 想法也可以得分,很简单的. 我的想法是: 这个程序没有屏蔽的功能里面有find字符串功能,和delphi一样,如果你在 edit里面先选中(高亮)一个字符串,然后打开find功能,在查找字符串的那个 文本框里会自动填上这个字符串. 而在这个文本框(find对话框的那个)里, 是可以拷贝的,所以我想:如果把所有文本全部选中,是不是也会自动全部 出现在find对话框的文本框里,然后让我拷贝了事呢? 事实证明没这么简单,因为find对话框里面的文本框只支持单行文本,就是说 每次顶多只能拷贝一行文本,于是我一个想法冒出来: "把全部文本都变成单行",中间用一个特殊字符分割开,这样就可以全部一次 拷贝出来,以后再用程序把那个特殊字符replace成回车换行就可以了! 所以,我的想法的关键就是"把全部文本都变成单行". 我已经通过手动实现了, 但现在我想通过程序来实现:既然手动可以实现,那么程序也一定可以实现. 所以,现在的关键就是: 给edit发送按键消息,模拟人工的动作. "把全部文本都变成单行"其实就是: 1.先把插字符放到文首(ctrl+home); 2.循环:   按end键,把插字符调到本行最后,按del键,把下一行调到本行上来,   中间要按一个特殊字符,以示行与行的间隔. 3.直到最后一行被调上来(如何判断?) ,然后选择全部文本(模拟按键或发鼠标消息),   然后调出find对话框(模拟按键或发鼠标消息),这时该文本应该出现在对话框   的文本框里,然后按ctrl+insert,拷贝到剪贴版,然后粘贴到自己的程序里面,   然后把特殊字符题换成回车换行即可. 上面的关键就是模拟按键(或鼠标),帮我解决,就可以得分!

Energy · 1999-12-01

他总的画文字吧，截获他的paint

tlaolao · 1999-12-01

如果金山能翻译edit里的文章: 可以使它的客户区失效，迫使它重绘， hook它的paint事件（不知道金山是不是这样做的），取得text信息

tlaolao · 1999-12-01

不行，只能得到对象的图形格式

cAkk · 1999-12-01

请继续, 各抒己见. (能帮助我实现我刚才说的那个想法的也可以得分)

Energy · 1999-12-02

老兄，还不如用FPE呢，当它是游戏如何，一定查起来容易多了，再查出应用地址 不久得了。

cAkk · 1999-12-02

如果用fpe, 我查出地址又如何把文本保存下来呢?

粗人 · 1999-12-02

使用窗口的子类化！ 1.先用getwindowlong( ...) 得到edit的winproc 并保存起来。 2.然后用setwindowlong(...)把自己的一个winproc来代替该edit的winproc. 3.现在所有发往edit的消息都进了你的proc,在自己的proc里处理这些消息，如果 有不想处理的消息，就把它传给那个保存下来的winproc中 4.用以上的方法将winproc再换回来。

cAkk · 1999-12-02

粗人: 看上去有道理, 我会试一试的. 谢!

hubdog · 1999-12-02

不可能，setwindowlong只能是同一个线程的winproc才能设定（help里写的很清 楚）

cAkk · 1999-12-02

对对,是的. 前几天研究那个问题:"自己createwindow出来的edit,想用f1设置字体" 的时候,看到过help是这么说的. 我现在怎么人云亦云了,呵呵.

高难问题请教,500分!(100分)

hubdog

Unregistered / Unconfirmed

cAkk

Unregistered / Unconfirmed

hubdog

Unregistered / Unconfirmed

hubdog

Unregistered / Unconfirmed

hubdog

Unregistered / Unconfirmed

Another_eYes

Unregistered / Unconfirmed

hubdog

Unregistered / Unconfirmed

cAkk

Unregistered / Unconfirmed

tlaolao

Unregistered / Unconfirmed

cAkk

Unregistered / Unconfirmed

Energy

Unregistered / Unconfirmed

tlaolao

Unregistered / Unconfirmed

tlaolao

Unregistered / Unconfirmed

cAkk

Unregistered / Unconfirmed

Energy

Unregistered / Unconfirmed

cAkk

Unregistered / Unconfirmed

粗人

Unregistered / Unconfirmed

cAkk

Unregistered / Unconfirmed

hubdog

Unregistered / Unconfirmed

cAkk

Unregistered / Unconfirmed

Similar threads