Autorennen2.9.0 [FINAL] mit Online Highscore

[keksman]

Und hier wie bei Spielen üblich der erste Trainer
Einfach spiel pausieren und ausführen.
(auch wenn mein Nick ziemlich ähnlich zu sein scheint, die Einträge in der Highscore-Liste stammen nicht von mir )

Delphi-Quellcode:

program Trainer;

{$APPTYPE CONSOLE}

uses
  Windows;

procedure cheat(newpoints: Integer);
var
  hwnd, pid, hprocess: Integer;
  bytesWritten: Cardinal;
begin
  WriteLn('Autorennen 2.4 Trainer');
  WriteLn('by BlackBlood');
  WriteLn('================================');
  hwnd := FindWindow(0, 'Autorennen 2.4');
  if hwnd <> 0 then
  begin
    GetWindowThreadProcessId(hwnd, @pid);
    hProcess := OpenProcess(PROCESS_ALL_ACCESS, true, pid);
    WriteProcessMemory(hProcess, ptr($0110B67C), @newpoints, 4, bytesWritten);
    WriteLn('Punkte wurden erfolgreich geschrieben :)');
    ReadLn;
  end else
  begin
    Writeln('Autorennen 2.4 nicht gefunden');
    readln;
  end;
end;

begin
  cheat(999999999);
end.