my game trainer
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, ComCtrls, ActnList, StdCtrls;const
Addr11 = $007EB834;
Poke11 = $00;
Addr12 = $007EB834;
Poke12 = $01;
Addr13 = $007EB834;
Poke13 = $02;
Bytes = 1;
WindowTitle = ‘gunbound’;
type
TGbHacked = class(TForm)
Image11: TImage;
Image12: TImage;
Image19: TImage;
Image20: TImage;
ActionList1: TActionList;
Image24: TImage;
Image21: TImage;
A: TAction;
B: TAction;
C: TAction;
Button2: TButton;
Button3: TButton;
Button4: TButton;
procedure AExecute(Sender: TObject);
procedure BExecute(Sender: TObject);
procedure CExecute(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
GbHacked: TGbHacked;
WIN : integer;
PID : integer;
TID : integer;
HND : integer;
WRT : cardinal;
BUF : pchar;implementation
{$R *.dfm}
procedure TGbHacked.AExecute(Sender: TObject);
begin
begin
WIN := FindWindow(nil,WindowTitle);
TID := GetWindowThreadProcessId(WIN,@PID);
HND := OpenProcess(PROCESS_ALL_ACCESS,False,PID);
GetMem(BUF,1);
BUF^ := Chr(Poke11);
WriteProcessMemory(HND,ptr(Addr11),BUF,Bytes,WRT);
FreeMem(BUF);
closehandle(HND);end;
end;
procedure TGbHacked.BExecute(Sender: TObject);
begin
WIN := FindWindow(nil,WindowTitle);
TID := GetWindowThreadProcessId(WIN,@PID);
HND := OpenProcess(PROCESS_ALL_ACCESS,False,PID);
GetMem(BUF,1);
BUF^ := Chr(Poke12);
WriteProcessMemory(HND,ptr(Addr12),BUF,Bytes,WRT);
FreeMem(BUF);
closehandle(HND);end;
procedure TGbHacked.CExecute(Sender: TObject);
begin
WIN := FindWindow(nil,WindowTitle);
TID := GetWindowThreadProcessId(WIN,@PID);
HND := OpenProcess(PROCESS_ALL_ACCESS,False,PID);
GetMem(BUF,1);
BUF^ := Chr(Poke13);
WriteProcessMemory(HND,ptr(Addr13),BUF,Bytes,WRT);
FreeMem(BUF);
closehandle(HND);end;
end.
this code works nicely but the thing is it finds the window, i need some windows api comands that find the process instead of the window title, any help would be greatly appreciated 