PIZZALAND TRAINER VICE CITY
hepho
Messages postés
12
Date d'inscription
samedi 15 juin 2002
Statut
Membre
Dernière intervention
30 août 2007
-
25 août 2003 à 17:55
MrClock Messages postés 15 Date d'inscription samedi 30 janvier 2010 Statut Membre Dernière intervention 8 octobre 2011 - 17 févr. 2010 à 20:13
MrClock Messages postés 15 Date d'inscription samedi 30 janvier 2010 Statut Membre Dernière intervention 8 octobre 2011 - 17 févr. 2010 à 20:13
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/12724-pizzaland-trainer-vice-city
https://codes-sources.commentcamarche.net/source/12724-pizzaland-trainer-vice-city
17 févr. 2010 à 20:13
[Erreur] Unit1.pas(39): Caractère incorrect dans le fichier d'entrée : '&' ($26)
[Erreur] Unit1.pas(39): Caractère incorrect dans le fichier d'entrée : '&' ($26)
[Erreur] Unit1.pas(54): ';' attendu(e) mais '.' trouvé(e)
[Erreur] Unit1.pas(56): Déclaration attendu(e) mais fin de fichier trouvé(e)
[Erreur fatale] Project1.dpr(5): Impossible de compiler l'unité utilisée 'Unit1.pas'
if (GetAsyncKeyState(VK_F1) <> 0) and (GetAsyncKeyState(VK_CONTROL) <> 0) then
begin
PokeAddress := $0100579C; // Adresse
PokeValue := 00; // Valeur à 'injecter'
NumberOfBytes := 1; // Nombre de byte à écrire
Fentr := FindWindow(nil,'Démineur'); // On cherche la fenêtre du jeu...
PrcID := GetWindowThreadProcessId(Fentr,@ProID); // On cherche l'ID une fois que la fenêtre a été trouvée
Opnpr := OpenProcess(PROCESS_ALL_ACCESS,False,ProID); // On ouvre le processus
GetMem(Buf,1); // Pointeur...
Buf^ := Chr(PokeValue); // La valeur à écrire
WriteProcessMemory(Opnpr, ptr(PokeAddress),Buf,NumberOfBytes,Wrtpr); // On écrit la valeur @PokeAddress
FreeMem(Buf); // On libère les ressources
closehandle(Opnpr);
end;
17 févr. 2010 à 20:01
2 sept. 2007 à 19:28
à la prochaine et merci encore.
17 juil. 2007 à 20:19
11 avril 2005 à 09:43
1 sept. 2003 à 22:19
1 sept. 2003 à 22:18
1 sept. 2003 à 22:18
25 août 2003 à 23:17
25 août 2003 à 18:46
Je te file une partie de tuto car comme je le disait le site existe plus :(
Je vais vous faire un petit exemple (toujours avec GTA3) pour avoir les munitions illimitées lorsqu'on presse CRTL+F1 pendant une partie...
Pour cela, nous allons utiliser Borland Delphi et les API (Application Programming Interface) suivantes :
// Pour détecter les touches pressées :
GetAsyncKeyState(virtual-key code);
// Pour trouver la fenêtre du jeu :
FindWindow(address of class name, address of window name);
// Pour récupérer l'ID :
GetWindowThreadProcessId(handle of window, address of variable for process identifier);
// Pour ouvrir le processus :
OpenProcess(access flag, handle inheritance flag, process identifier);
// Pour écrire dans la mémoire :
WriteProcessMemory(handle of process whose memory is written to, address to start writing to, address of buffer to write data to, number of bytes to write, actual number of bytes written);
// Pour fermer l'handle :
CloseHandle(handle of object to close);
[ Delphi ] ------------------------------- Begin -------------------------------
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Timer1: TTimer;
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
// Variables
var
Form1 : TForm1;
Fentr : integer;
PrcID : integer;
ProID : integer;
Opnpr : integer;
Wrtpr : cardinal;
Buf : pchar;
NumberOfBytes : byte;
PokeValue : dword;
PokeAddress : dword;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.Interval := 1; // Défini l'intervalle du timer à 1 milliseconde
Timer1.Enabled := True; // Lance le timer...
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
// Si l'utilisateur presse CTRL+F1...
if (GetAsyncKeyState(VK_F1) <> 0) and (GetAsyncKeyState(VK_CONTROL) <> 0) then
begin
PokeAddress := $55C7E9; // Adresse
PokeValue := 99; // Valeur à 'injecter'
NumberOfBytes := 1; // Nombre de byte à écrire
Fentr := FindWindow(nil,'GTA3'); // On cherche la fenêtre du jeu...
PrcID := GetWindowThreadProcessId(Fentr,@ProID); // On cherche l'ID une fois que la fenêtre a été trouvée
Opnpr := OpenProcess(PROCESS_ALL_ACCESS,False,ProID); // On ouvre le processus
GetMem(Buf,1); // Pointeur...
Buf^ := Chr(PokeValue); // La valeur à écrire
WriteProcessMemory(Opnpr, ptr(PokeAddress),Buf,NumberOfBytes,Wrtpr); // On écrit la valeur @PokeAddress
FreeMem(Buf); // On libère les ressources
closehandle(Opnpr);
end;
end.
[ Delphi ] -------------------------------- End --------------------------------
Et voilà, c'est tout pour le code ! Pas si difficile que ça finalement, non ?
25 août 2003 à 17:55