- 注册时间
- 2011-3-6
- 最后登录
- 1970-1-1
该用户从未签到
|
const
Base=$006a9ec0;
var
Form1: TForm1;
hd:cardinal;
pid:cardinal;
hprocess:cardinal;
lpNumberOfBytesRead:dword;
ygBase:integer;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
hd:=findwindow(nil,'植物大战僵尸中文版');
getwindowthreadprocessid(hd,pid);
hprocess:=openprocess(PROCESS_ALL_ACCESS,false,pid);
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
ReadProcessMemory(hprocess,pointer(Base),@ygBase,4,lpNumberOfBytesRead);
ReadProcessMemory(hprocess,pointer(ygBase+$768),@ygBase,4,lpNumberOfBytesRead);
ReadProcessMemory(hprocess,pointer(ygBase+$5560),@ygBase,4,lpNumberOfBytesRead);
label2.Caption :=inttostr(ygBase);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
i:=200;
WriteProcessMemory(hprocess, @ygBase, pointer(i),4,lpNumberOfBytesRead);
label2.Caption :=inttostr(ygBase);
请各位高手指点指点,为什么我写不进去呢?读是正常的,谢谢 |
|