Discussion :

[tintin62]

Bonjour
je voudrai faire un trainer pour un jeu
Avec le code ci dessous jarrive a trouver mon jeu

GetWindowThreadProcessId(FindWindow(nil, 'Mon jeu'), @ProcessID);
OpenHandle := OpenProcess(PROCESS_ALL_ACCESS, FALSE, ProcessID);

Je voudrais trouver ensuite adresse de depart de la memoire du jeu
et de sa longueur pour rechercher une certaine valeur et ensuite la modifier
Merci d avance de vouloir m'aider

[ShaiLeTroll]

Cherche sur le forum l'utilisation de l'API WriteProcessMemory

[tintin62]

Bonjour
Merci deja pour votre aide
je voudrais ecrire a une adresse donner
le chiffre 80077 en hexa $138CD donc en memoire
a adresse voulue comme ces inverse je dois avoir
avec un editeur Hexa
CD 38 01
je fais ce code mais il m'ecris pas la valeur demande
pourquoi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
 
var
Fentr : integer;
  PrcID : integer;
  ProID : integer;
  Opnpr : integer;
  Wrtpr : cardinal;
  Buf   : pchar;
  NumberOfBytes :byte;
  PokeValue     : dword;
  PokeAddress   : dword;
 
 
 
 
procedure Tform1.trouve_process;
begin
ListBox1.Clear;
form1.Cursor:=crhourglass;
 
 
  PokeAddress   := $8DAC48;       // Adresse
 
  NumberOfBytes := 3;             // Nombre de byte à écrire
  Fentr := FindWindow(nil,'Monjeu');
  if fentr<>0 then begin
  PrcID := GetWindowThreadProcessId(Fentr,@ProID);
  Opnpr := OpenProcess(PROCESS_ALL_ACCESS,False,ProID);
  GetMem(Buf,1);
PokeValue     :=80077;
{PokeValue     :=$0138CD;}
buf^ := chr(pokevalue);
WriteProcessMemory(Opnpr, ptr(PokeAddress),Buf,NumberOfBytes,Wrtpr);
 FreeMem(Buf);            
  closehandle(Opnpr);
   end;
end;

avec ce code sa marche

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
PokeValue     :=$CD;
buf^ := chr(pokevalue);
WriteProcessMemory(Opnpr, ptr(PokeAddress),Buf,NumberOfBytes,Wrtpr);
 
PokeValue     :=$38;
buf^ := chr(pokevalue);
WriteProcessMemory(Opnpr, ptr(PokeAddress+1),Buf,NumberOfBytes,Wrtpr);
  PokeValue     :=$01;
buf^ := chr(pokevalue);
WriteProcessMemory(Opnpr, ptr(PokeAddress+2),Buf,NumberOfBytes,Wrtpr);

Comment faut il faire pour simplifier ce code

Merci avance pour votre aide

[tintin62]

Bonjour
viens de trouver
jai declare une variable en integer
et jai utiliser @ pour ecrire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
var
value:integer;
begin
.... 
......
NumberOfBytes:=3;
value:=80077;
WriteProcessMemory(Opnpr, ptr(PokeAddress),@value,NumberOfBytes,Wrtpr);

+++