Трейнер
Прислано Vlad 18.12.2007 - 12:17:26
Вот я обещал дать исходник трейнера. И я его даю.
Создаем в Делфи новое приложение и на форму кидаем Button и Timer.
В разделе var пишем :

PokeValue :single;
Msg : TMSG;
Win : HWND;
WindowName : Integer;
ProcessId : Integer;
ThreadId : Integer;
HandleWindow : Integer;
Write : Cardinal;

Перед этим разделом пишим :

const
WindowTitle = 'GTA: San Andreas';
Address = $00B7CE50; // Адрес денег
NumberOfBytes = 4;

Далее после строчки
{$R *.dfm}
пишем процедуру взлома :

procedure money;//Процедура денег
begin
WindowName := FindWindow(nil,WindowTitle); // Ищем окно
If WindowName <> 0 then // Если найдено то ...
begin
// Получаем ID
ThreadId := GetWindowThreadProcessId(WindowName,@ProcessId);
// Открываем процесс
HandleWindow := OpenProcess(PROCESS_ALL_ACCESS,False,ProcessId);
// Записываем данные
WriteProcessMemory(HandleWindow,ptr(Address),@pokevalue,4,write);
// Закрываем процесс
CloseHandle(HandleWindow);
end;
end;
Потом в обработчике события таймера пишим :

procedure TForm2.Timer1Timer(Sender: TObject);
begin
// Проверка нажатия клавиш
TranslateMessage(Msg);
if (GetAsyncKeyState(VK_CONTROL or ord('1')) <> 0) then money;
DispatchMessage(Msg);
end;

В обработчике события кнопки пишим :

procedure TForm2.Button1Click(Sender: TObject);
begin
money;
end;

В обработчике события нашей формы FormCreate пишим :

procedure TForm2.FormCreate(Sender: TObject);
begin
pokevalue:=$5F5E0FF; {Это по шестнадцатеричному 99999999}
form2.BorderStyle:=bssingle;
end;

Все трейнер готов создавать вам 99999999$.
Вот полный исходник :

unit Unit2;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, AppEvnts, SendKeys;

type
TForm2 = class(TForm)
Button1: TButton;
Timer1: TTimer;
Button2: TButton;
procedure Timer1Timer(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
const
WindowTitle = 'GTA: San Andreas';
Address = $00B7CE50; // Адрес денег
NumberOfBytes = 4;
var
Form2: TForm2;
PokeValue :single;
Msg : TMSG;
Win : HWND;
WindowName : Integer;
ProcessId : Integer;
ThreadId : Integer;
HandleWindow : Integer;
Write : Cardinal;

implementation

{$R *.dfm}

procedure money;//Процедура денег
begin
WindowName := FindWindow(nil,WindowTitle); // Ищем окно
If WindowName <> 0 then // Если найдено то ...
begin
// Получаем ID
ThreadId := GetWindowThreadProcessId(WindowName,@ProcessId);
// Открываем процесс
HandleWindow := OpenProcess(PROCESS_ALL_ACCESS,False,ProcessId);
// Записываем данные
WriteProcessMemory(HandleWindow,ptr(Address),@pokevalue,4,write);
// Закрываем процесс
CloseHandle(HandleWindow);
end;
end;

procedure TForm2.Timer1Timer(Sender: TObject);
begin
// Проверка нажатия клавиш
TranslateMessage(Msg);
if (GetAsyncKeyState(VK_CONTROL or ord('1')) <> 0) then money;
DispatchMessage(Msg);
end;


procedure TForm2.Button1Click(Sender: TObject);
begin
money;
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
application.Terminate;
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
pokevalue:=$5F5E0FF; // Это по шестнадцатеричному 99999999
form2.BorderStyle:=bssingle;
end;

end.
Любое копирование материалов с данного сайта запрещено без разрешения! Все материалы являются собственностью их авторов. При любой перепечатке ссылка на Missions.GTAMaps.net, как источник информации, обязательна!
Copyright © 2005 - 2022 Missions.GTAMaps.net. All Rights Reserved.