讀出遊戲數據

unit Unit1;



interface



uses


Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,


Dialogs, StdCtrls;



type


TForm1 = class(TForm)


Label3: TLabel;


label1: TLabel;


Label2: TLabel;


Labname: TLabel;


Labhp: TLabel;


Labmp: TLabel;


Button1: TButton;


Label4: TLabel;


Lablevel: TLabel;


procedure FormCreate(Sender: TObject);


procedure Button1Click(Sender: TObject);


private


{ Private declarations }


public


{ Public declarations }


end;



var


Form1: TForm1;


ProcessID: Thandle;


ProcID: Thandle;


Ghwnd: Thandle;


Ecxi: Cardinal;


r_level,r_hp,r_maxhp,r_mp,r_maxmp:Cardinal;


r_Name:array[0..16] of WideChar;


r_Name1:integer;


const baseadr = $912BA4;
//一級基址



implementation



{$R *.dfm}



procedure TForm1.FormCreate(Sender: TObject);

var


Num: Cardinal;

begin


Ghwnd := FindWindow(’QElementClient Window’, ’Element Client’);
//獲取窗口


if Ghwnd = 0 then


begin


ShowMessage(’遊戲未啟動’);


Application.Terminate();


end;


GetWindowThreadProcessId(Ghwnd, ProcID);
//進程ID


ProcessID := OpenProcess(PROCESS_ALL_ACCESS, False, ProcID);
// 進程控制碼


if ProcessID = 0 then


begin


showMessage(’無法打開線程’);


Application.Terminate();


end;


ReadProcessMemory(ProcessID, Pointer(baseadr), @ECXI, 4, Num);


ReadProcessMemory(ProcessID, Pointer(ECXI + $24), @ECXI, 4, Num);


ReadProcessMemory(ProcessID, Pointer(ECXI + $25C), @r_HP, 4, Num);
//血


ReadProcessMemory(ProcessID, Pointer(ECXI + $274), @r_MAXHP, 4, Num);
//血最大值


ReadProcessMemory(ProcessID, Pointer(ECXI + $260), @r_mp, 4, Num);

//藍


ReadProcessMemory(ProcessID, Pointer(ECXI + $278), @r_maxmp, 4, Num);
//藍最大值


ReadProcessMemory(ProcessID, Pointer(ECXI + $250), @r_level, 4, Num);


ReadProcessMemory(ProcessID, Pointer(ECXI + $398), @r_Name1, 4, Num);


ReadProcessMemory(ProcessID, Pointer(r_Name1), @r_Name, 34, Num);


labhp.Caption:=inttostr(r_hp)+’/’+inttostr(r_maxhp);


labmp.Caption:=inttostr(r_mp)+’/’+inttostr(r_maxmp);


lablevel.Caption:=inttostr(r_level)+’級’;


LabName.Caption := r_Name;


CloseHandle(ProcessID);

//關閉進程控制碼

end;



procedure TForm1.Button1Click(Sender: TObject);

begin

close;

end;



end.

@@@@@@@@@@@@@@@@@@@@@@

@@@@@@@@@@@@@@@@@@@@@@

@@@@@@@@@@@@@@@@@@@@@@

@@@@@@@@@@@@@@@@@@@@@@

不太懂...
這是讀出遊戲數據的教學？
還是...?

這樣啊~~~
很不錯啊~~~~

哈..剛好在學DELPHI來研究一下...YCT46B

哈..剛好在學DELPHI來研究一下...YCT46B