Cheat Engine

[force1758]

Hello to all forum have come if I can help my project I am crendo engine in a dll and the problem is at the time of scanning memory game with the range of 00400000 to 7fffffff not I get anything but if I cut the range of 00400000 to 00500000 in short hops if they leave one or two ma want help with this project thanks greetings
TRANSLATION google translate

[code]Procedure Scan4Byte;
begin
try
form1.Listbox1.Clear;
form1.ListBox2.Clear;
Inicio := $01000000;
Fim := $02000000;
Tam := Fim - inicio;
Want := StrToInt( form1.Edit1.text );
Found := 0;
For i := 0 to tam do
begin

Endereco := Inicio + i;

If PDWord(Endereco)^ = Want then
Begin
EnderecoStr := IntToHex (endereco,8);
form1.ListBox1.Items.Add(enderecostr);
Found := Found + 1;
// ListBox2.items.Add( IntTOstr( Pbyte(Endereco)^ ));

end;
end;
except
end;
end;[/code][/code]

[Obitio]

here is my incomplete DLL MEMORY SCANNER IN DELPHI!:
mediafire(.)com(/)?l6dpmzmon6hxnuw
it's incomplete but it should tell you how to scan for the value.^^
-
SINful.
here is the code:
var
address,scantill,scanevery,value,data:DWORD;//dword=4 bytes..cardinal=4 bytes..pword=1 byte.
begin
if Button2.Caption='New scan' then begin
Edit1.Clear;
Button2.Caption:='First scan';
Edit1.Enabled:=true;
exit;
end;
try;
if edit1.Text='' then begin//the box is empty.
ShowMessage('First put in a value to scan for!');//shows a message.
exit;//don't execute anymore code and leave.
end;
ListBox1.Clear;
ListBox2.Clear;
Edit1.Enabled:=false;
//no more errors I can think of so let's get scanning~
address:=strtoint(edit2.text);
scantill:=strtoint(edit3.Text);//scan until it gets to this address.
value:=strtoint(edit1.text);
scanevery:=strtoint(Edit4.text);
Button2.Caption:='New scan';//since we are going to scan now.
Button3.Enabled:=true;
timer2.Enabled:=false;
while address<=scantill do begin//scan while it is smaller then or equal to..//note:this will only execute code from while address<=scantill do begin to end;
data:=pdword(address)^;//this tells the hack to scan for but not edit data!..easier way:data:=inttoint(pdword(address)^);
if data=value then begin
Listbox1.AddItem(inttostr(address),TObject(data));
Listbox2.AddItem(inttostr(data),TObject(address));//lol I had no clue what this means and I still don't^^
Edit5.Text:=inttostr(data);
end;
address:=address+scanevery;//lol if scanevery=1 then it will scan every address 1 by one...if it is 2 then it scans every other 2 addresses....I think you get it lol...
end;
except
on E:Eaccessviolation do begin// so no access violations come up while scanning.
end;
end;

[force1758]

thanks for reply