高分求解：如何实现在DirectX的程序窗口中显示文本而且不闪烁，就像游戏外挂一样(300分)

lsfbad · 2003-12-16

能不能得到游戏的时钟句柄, 让两者的时钟一致,或尽量接近 ...

estorm · 2003-12-22

to tt.t 等待。。。。：D

tt.t · 2003-12-26

程序仅实现了HOOK IDirectDrawSurface.Flip，所以仅对使用了DirectDraw且使用Flip进行翻页操作的程序（即直接textout到上面会消失）有效。对采用Direct3D和OpenGL的程序无效。解决方法同HOOK IDirectDrawSurface.Flip类似，自己搞吧。最近很忙，心情也不好，不想玩了。如果你做好了清mail给我：dbin＠sohu.com. ps:如果符合你的要求记得给分 //-----------------ptdll.dpr------------------------ library ptdll; uses   SysUtils,   Classes,   Windows,   Messages,   dll_vol in 'dll_vol.pas'; {$R *.RES} exports sethook,endhook; begin hNextHookProc := 0; procSaveExit := ExitProc; ExitProc := @HotKeyHookExit; end. //---------------dll_vol.pas-------------------- unit dll_vol; interface uses Windows,Messages,Dialogs,Sysutils,Graphics,DirectDraw; //DirectDraw.pas is the JEDI-DirectX headfile for Delphi. And u should modify it as described here: //http://www.delphibbs.com/delphibbs/dispq.asp?lid=2135796 var   hNextHookProc: HHook;   procSaveExit: Pointer;   pDirectDrawCreate:function (lpGUID: PGUID;out lplpDD: IDirectDraw;pUnkOuter: IUnknown) : HResult; stdcall;   function sethook:bool;export;   function hookproc(iCode:Integer;wParam: WPARAM;lParam: LPARAM):LRESULT; stdcall;   function endhook:bool;export;   procedure HotKeyHookExit;far; implementation var   OldBytes:Array [0..4] of Char;   Bytes:Array [0..4] of Char;   RtnAddr:Cardinal;   pFuncAddr

ointer;   hProcess:Cardinal;   HR:integer;   Rlt:integer;   w1,w2,w3:dword;   dc:hdc;   BKMode:integer;   myBitmap:TBitMap;   i:cardinal; procedure t; begin   asm     add esp,4     pop RtnAddr     pop w1     pop w2     pop w3   end;   WriteProcessMemory(hProcess,pFuncAddr,@OldBytes,5,i);   asm     push w3     push w2     push w1     call [pFuncAddr]     mov Rlt,eax   end; //===Inject part STARTS here===   asm     lea eax,DC     push eax     mov eax,w1     push eax     mov eax,[eax]     call [eax+$44]     //PSurface.GetDC     mov HR,eax   end;   if HR=0 then   begin     BitBlt(DC,10,10,myBitMap.Width,myBitMap.Height,myBitMap.Canvas.Handle,0,0,SRCCOPY); //    BKMode:=SetBkMode(dc,TRANSPARENT);     textout(dc,20,40,'宋体123',4);     asm       mov eax,[dc]       push eax       mov eax,w1       push eax       mov eax,[eax]       call [eax+$68]     //PSurface.ReleaseDC       mov HR,eax     end;   end; //===Inject part ENDS here===   try     WriteProcessMemory(hProcess,pFuncAddr,@Bytes,5,i);   except   end;   asm     push RtnAddr     mov eax,Rlt     ret   end; end; function ModiFunc(FuncAddr,pProc

ointer):integer; var   i:Cardinal; begin   result:=0;   i:=0;   if FuncAddr=nil then   begin     result:=-3;  //Can't find the proc/func !!     exit;   end;   hProcess:=GetCurrentProcess;   if not ReadProcessMemory(hProcess,FuncAddr,@Bytes,5,i) then   begin     result:=-4;  //Can't get the Original first 5 bytes !!     exit;   end;   if Ord(Bytes[0])<>$E9 then   begin     asm       lea esi,bytes       lea edi,OldBytes       mov ecx,1       rep movsd       inc ecx       rep movsb     end;     myBitmap:=TBitMap.Create;     if not fileexists('c:/b1.bmp') then     begin       showmessage('Cannot find c:/b1.bmp!'+#13+#10+'Hook failed!');       exit;     end;     myBitmap.LoadFromFile('c:/b1.bmp');  //要在c:/下放一个b1.bmp   end   else exit;   if not VirtualProtect(FuncAddr,5,PAGE_EXECUTE_READWRITE,@i) then   begin     result:=-6;  //Can't Change protect mode !!     exit;   end;   try     asm       mov edx,pProc       mov eax,FuncAddr       sub edx,eax       lea eax,bytes       mov [eax],$E9   //asm JMP       inc eax       mov [eax],edx     end;                        //Assemble the code jmp to my code:E9 XX XX XX XX     if not WriteProcessMemory(hProcess,FuncAddr,@bytes,5,i) then     begin       result:=-7;  //Can't Modify the Entry of the proc/func !!       exit;     end;   except   end;   result:=1;     //Succeed! end; function HookProc(iCode: integer; wParam: wParam; lParam: lParam):LResult; stdcall; var   dh:dword;   pddc

ointer;   pflip,a,b:dword;   fd:IDirectDraw; begin   result:=0;     if iCode<0 then     begin       CallNextHookEx(hnexthookproc,iCode,wParam,lParam);       result:=0;       Exit;     end;   if ((lParam and $80000000)=0) and      (GetKeyState(VK_LWIN)<0) and (wParam=$6a) then  //热键：左win键+数字键盘*   begin     try       begin         dh:=GetModuleHandle('ddraw.dll');         if dh<>0 then         begin           dh:=dword(GetProcAddress(dh,'DirectDrawCreate'));           if dh<>0 then           begin             pDirectDrawCreate:=Pointer(dh);             if pDirectDrawCreate(nil,FD,nil)=0 then             begin               pddc:=@fd;               a:=dword(pointer(dword(pddc^)+8)^);               b:=dword(pointer(dword(pointer(a+4)^)+44)^);               pflip:=dword(pointer(b)^)+$2c;               pFuncAddr:=pointer(pointer(pflip)^);               modiFunc(pFuncAddr,@t);               fd:=nil;             end;           end;         end;       end;     finally     end;     result:=1;   end; end; function sethook:bool;export; begin   result:=false;   if hnexthookproc<>0 then exit;   hNextHookProc := SetWindowsHookEx(WH_KEYBOARD,hookproc,HInstance,0);   Result := hNextHookProc <> 0; end; procedure hotkeyhookexit; begin   if hNextHookProc <> 0 then endHook;   ExitProc := procSaveExit; end; function endhook:bool;export; begin   if hNextHookProc <> 0 then   begin     UnhookWindowshookEx(hNextHookProc);     hNextHookProc := 0;     try       if assigned(MyBitMap) then MyBitMap.Free;     except     end;   end;   Result := hNextHookProc = 0; end; end. //------------------------------------------------- 调用示例： form上放2个button。运行后按button1，运行游戏，按热键即可看到效果 unit unit1; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   StdCtrls; type   TForm1 = class(TForm)     Button1: TButton;     Button2: TButton;     procedure Button1Click(Sender: TObject);     procedure Button2Click(Sender: TObject);     procedure FormDestroy(Sender: TObject);     procedure FormCreate(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1; implementation {$R *.DFM} function sethook:bool;external 'ptdll.dll'; function endhook:bool;external 'ptdll.dll'; procedure TForm1.Button1Click(Sender: TObject); begin   if sethook then showmessage('Hook Successful'); end; procedure TForm1.Button2Click(Sender: TObject); begin   if endhook then showmessage('Unhook Successful!!'); end; procedure TForm1.FormDestroy(Sender: TObject); begin   endhook; end; procedure TForm1.FormCreate(Sender: TObject); begin //sethook; end; end.

tt.t · 2003-12-28

程序只适用于win2k以上系统

tt.t · 2004-01-05

喂！ 我的代码到底行不行啊，至少回个话吧！

estorm · 2004-01-11

不好意思，年底太忙了（拿年终奖），哈哈，空下来好好研究一下你的代码 先谢过，分不会忘的：）

刘麻子 · 2004-01-11

我做了一个模仿《金山游侠》的小程序，可以查找修改游戏的内存，感兴趣的朋友去下载？ http://www.efile.com.cn/eFile/liumazi/GameMer.rar

wr960204 · 2004-01-13

用一个透明的窗口覆盖游戏的窗口。在上面写字。 把对窗口的操作传给游戏窗口

talent002 · 2004-01-13

能不能帮忙看看。 http://www.delphibbs.com/delphibbs/dispq.asp?lid=2408639

刘麻子 · 2004-01-16

用钩子，把窗体写到dll中，qq:71892967

FYL · 2004-01-22

先找到游戏显示文字的那个CALL 然后在把我们的代码写入游戏进程中，然后调用这个CALL，最后在回到我们的程序！！！

tt.t · 2004-01-22

同意FYL。 但那样没有通用性，游戏随便更新一下就不能用了，兼容性太差

FYL · 2004-01-23

但是有别的方法吗？ 我听别人说是要写入内存，不过怎么个写法就不清楚了！！！

tt.t · 2004-01-23

原码我不都写了吗，帮忙测试一下吧 记得看注释

FTL · 2004-01-25

经测试！！ 不行！

tt.t · 2004-01-25

hehe,我在多台机器上测试没问题的,估计是你没有完全按照我写的作. 修改ddraw.pas了美?有没有在c:/下放b1.bmp? 如在不行留下你的油箱给你发个可执行版本试试. btw,thanx 4 ur test&areply

FYL · 2004-01-25

我忘了修改ddraw.pas了！！！

FYL · 2004-01-26

改了后还是一样！！ 我的EM：wangziyao11@163.com

tt.t · 2004-01-27

以发，查收！！ 另外，你太喜欢用叹号了吧！！！

FYL · 2004-01-27

习惯，呵呵。 测试OK了，感谢。 不过兼容性如你所说的——不好。 如果能象http://www.fraps.com/上的那个软件1.9D版一样的效果就好了。 兼容所有系统而且全屏或着窗口都可以显示。 （PS：这次坚决不用感叹号了）

高分求解：如何实现在DirectX的程序窗口中显示文本而且不闪烁，就像游戏外挂一样(300分)

lsfbad

Unregistered / Unconfirmed

estorm

Unregistered / Unconfirmed

tt.t

Unregistered / Unconfirmed

tt.t

Unregistered / Unconfirmed

tt.t

Unregistered / Unconfirmed

estorm

Unregistered / Unconfirmed

刘麻子

Unregistered / Unconfirmed

wr960204

Unregistered / Unconfirmed

talent002

Unregistered / Unconfirmed

刘麻子

Unregistered / Unconfirmed

FYL

Unregistered / Unconfirmed

tt.t

Unregistered / Unconfirmed

FYL

Unregistered / Unconfirmed

tt.t

Unregistered / Unconfirmed

FTL

Unregistered / Unconfirmed

tt.t

Unregistered / Unconfirmed

FYL

Unregistered / Unconfirmed

FYL

Unregistered / Unconfirmed

tt.t

Unregistered / Unconfirmed

FYL

Unregistered / Unconfirmed

Similar threads