Login

darius83 · (Dieser Beitrag wurde zuletzt bearbeitet: 05.09.2012, 01:09 von darius83.)

Huhu Leute, bin neu hier und hab mir gedacht, ich frag einfach mal Wink

Also, ich habe mir mal zum Rumspielen von Command & Conquer - Generals
die Adresse für mein momentanes Vermögen rausgesucht. Dazu hab ich mit CE einen Pointer+Offsets rausgesucht. Jetzt möchte ich mit Delphi ein Fenster erstellen, in dem mein momentanes Gold angezeigt und bei Buttonklick dieses um Summe X erhöht wird. Getestet hab ichs mit CE schon, da klapps, also Pointer und Offsets sind richtig. Den momentanen Wert mit Delphi auslesen klappt auch, aber wenn ich diesen Wert einfach überschreibe, schmeisst das Spiel mich mit einer Fehlermeldung raus. Vielleicht kann mir da ja jemand helfen...

Hier mal, wie ich das ganze getestet habe:
Ich hab die auskommentierten Stellen mal drin gelassen, weil ich an der Stelle getestet habe, was passiert, aber es kam bisher immer der selbe Spielabbruch dabei heraus.

Code:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, tlhelp32, StdCtrls;

type
  TForm1 = class(TForm)
    Gold: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
const
  process = 'game.dat';

function GetID(Const ExeFileName: string; var ProcessId: integer): boolean;
var
  ContinueLoop: BOOL;
  FSnapshotHandle: THandle;
  FProcessEntry32: TProcessEntry32;
begin
  result := false;
  FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  FProcessEntry32.dwSize := Sizeof(FProcessEntry32);
  ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);
  while integer(ContinueLoop) <> 0 do begin
	if (StrIComp(PChar(ExtractFileName(FProcessEntry32.szExeFile)), PChar(ExeFileName)) = 0)
	   or (StrIComp(FProcessEntry32.szExeFile, PChar(ExeFileName)) = 0)  then begin
	   ProcessId:= FProcessEntry32.th32ProcessID;
	   result := true;
	   break;
	end;
	ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
  end;
  CloseHandle(FSnapshotHandle);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Pid: Integer;
  Pidhandle: Integer;
  Address: Cardinal;
  NewValue: Integer;
  lBuf: Integer;
  Data: Integer;
  Written: Cardinal;
begin
  Pid := 0;
  Written := 4;
  Address := $0096c9b0;
  NewValue := $0186A0;
  Data := 4;
  if GetID(process, Pid) then begin
    Pidhandle := OpenProcess(PROCESS_ALL_ACCESS,False,Pid);
    try
      ReadProcessMemory(Pidhandle, Pointer(Address), @lBuf, Data, Written);
      lBuf:= lBuf+$0C;
      ReadProcessMemory(Pidhandle, Pointer(lBuf), @lBuf, Data, Written);
      lBuf:= lBuf+$34;
      ReadProcessMemory(Pidhandle, Pointer(lBuf), @lBuf, Data, Written);
      //if lBuf < 50000 then
        //WriteProcessMemory(Pidhandle, Pointer(Address), @NewValue, Data, Written);
      Gold.Caption := 'Gold : '+IntToStr(lBuf);
      sleep(5000);
      //Showmessage(IntToStr(lBuf));
      //WriteProcessMemory(Pidhandle, Pointer(Address), @NewValue, Data, Written);
    finally
      closehandle(Pidhandle);
    end;
  end;
end;

end.

Login
Benutzername:
Passwort:	Passwort vergessen?
	Merken