sonexa Newbie cheater
Reputation: 0
Joined: 19 Sep 2011 Posts: 16
|
Posted: Wed Jan 25, 2012 8:59 am Post subject: help with breakpoint, game crashing |
|
|
i'm newbie and, i need make a program for change EAX at breakpoint in a adress, i tryied to code, but the game always crash.
see:
| Code: |
procedure TForm1.Button3Click(Sender: TObject);
var
TE32:TThreadEntry32;
snap,tid:THandle;
cont:TCONTEXT;
begin
H := FindWindow(nil, 'Pinball 3D para Windows - Space Cadet');
ThID := GetWindowThreadProcessId(H, @PID);
PH := OpenProcess(PROCESS_ALL_ACCESS,FALSE,PID);
snap:=CreateToolHelp32SnapShot(TH32CS_SNAPTHREAD,0);
TE32.dwSize:=Sizeof(TThreadEntry32);
Thread32First(snap,TE32);
repeat
if TE32.th32OwnerProcessID=PID then begin
tid:=OpenThread(THREAD_ALL_ACCESS,false,TE32.th32ThreadID);
SuspendThread(tid);
GetThreadContext(tid,cont);
cont.ContextFlags:=CONTEXT_FULL;
Form1.ListBox1.Items.Add(inttostr(cont.dr0));
cont.Dr0:=$00498348;
cont.Dr6:=0;
cont.Dr0:=$3;
SetThreadContext(tid,cont);
ResumeThread(tid);
end;
until Thread32Next(snap,TE32)=false;
CloseHandle(snap);
CloseHandle(tid);
end;
|
|
|