[Tutorial] Criando Trainer em Delphi Seven7!

[SexyChick 0]

Downloads Necessários:

Delphi 7 Click Aqui!

 

Descrição: Tutorial,de como criar um trainer para Gunbound em Delphi7.

 

 

Parte I - Adicionando Os Componentes.

 

1-Abra o Delphi,já irá aparecer um form.

 

2-Adicione um Timer na Palheta System.

 

Foto:

 

3- Agora na Primeira palheta,a Standard Adicione um CheckBox,como na Foto Abaixo:

 

Depois de Adicionar ele,se for colocar mais hackers,adicione o tanto que for,se for adicionar 4,5 adicione 5 Check e 5 Timers ,assim em diante.

 

Parte II - Renomeando os Componentes.

 

1- Renomeie o Timer que você adicionou antes,para TimerPU e o outro para TimerMaya,ou o nome do hacker que você irá colocar,para renomear basta olhar a foto abaixo:

 

 

Esse Object Inspector fica ao seu lado esquerdo,na parte inferior do delphi.

 

Renomeie também um Checkbox,para CheckPU e outro para CheckMaya,na onde tiver name,não faça mais nada,só renomeie.

Mesma coisa se for add outros hackers,exemplo damage,renomei para TimerDamage,e CheckDamage.

 

Agora,é hora de mudar o Caption,onde mostra o que tá escrito,não o nome o Caption.

 

No mesmo jeito,se for o Power User,coloque,Power User - Mobile Phoenix,tanto faz,mesmo modo que mudamos o nome,mais é em caption,ali no Object Inspector. isso é preciso mudar só para o CheckBox.

 

Parte III - Adicionando os Códigos.

 

1- Primeiro,vá onde fica o código do trainer,onde tiver var

 

Código:

Var

Form1: TForm1;

 

 

Adicione a baixo:

 

 

Código:

exec: HWND;

ProcessoId: DWORD;

Valor: DWORD;

hProcesso: THandle;

bytes: DWORD;

i: integer;

ProcessHandle: DWORD;

ProcessHandle1: DWORD;

ProcessHandle2: DWORD;

ProcessID: DWORD;

 

 

Adicione lá no começo do código onde tem

 

Código:

interface

 

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ExtCtrls;

 

 

Tire tudo menos o Uses e Adicione isso:

 

Código:

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, TlHelp32, StdCtrls, Buttons, XPMan, jpeg, ShellApi;

 

 

Adicione abaixo:

 

Código:

const PROCESS_NAME = 'GunBound.gme';

 

esse código é pra ver se consta o Gunbound.gme e selecionar,o processo do Gunbound.

 

depois de adicionar esse código,terá a parte de baixo, adicione isso:

 

 

Código:

//----»» Power User Endereço ««----

pu:Array [0..1]of DWORD=(

$0090DF6D,

$0090DFDD

);

//----»» Mobiles Endereço ««----

maya:Array [0..1]of DWORD=(

$0090CF98,

$0090CF9A

);

 

 

Onde estão aqueles

$0090CF98,

$0090CF9A

São onde coloca os adress,dos hackers,você pega os adress nos hack packs,feito em cheat engines.

já coloquei o adress do maya,se pra add dois hackers.

 

Agora mais pra baixo depois de

 

[color:d380=#2e8b57]{$R *.dfm}

 

Adicione isso:

 

Código:

Procedure power_user;

begin

valor:=0;

for i:=0 to Length(pu)-1 do

begin

writeprocessmemory(hprocesso, Pointer(pu), addr(valor), 8, Bytes);

end;

end;

 

Procedure maya_end;

begin

valor:=126;

for i:=0 to Length(maya)-1 do

begin

writeprocessmemory(hprocesso, Pointer(maya), addr(valor), 8, Bytes);

end;

end;

 

function GetProcessID(ProcessName: String): DWORD;

var hSnapshot: Cardinal;

hProcessEntry: TProcessEntry32;

begin

Result:=0;

hSnapshot:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);

hProcessEntry.dwSize:=SizeOf(TProcessEntry32);

if not (Process32First(hSnapshot, hProcessEntry)) then

Exit;

repeat

if (ProcessName = hProcessEntry.szExeFile) then

Result := hProcessEntry.th32ProcessID;

until not (Process32Next(hSnapshot, hProcessEntry));

end;

Agora adicione um timer e renomeie ele para TimerOpenProcess.

 

Agora,dê dois clicks no timer que TimerOpenProcess você colocou,e adicione esse código:

 

Antes tire o Begin,que tem lá.

 

 

Código:

var

WND: HWND;

ProcessId: DWORD;

BytesWritten: DWORD;

hProcess: THandle;

i: Integer;

Write: DWORD;

begin

WND := FindWindow('Softnyx', nil);

Write := 0;

if WND <> 0 then

begin

GetWindowThreadProcessId(WND, @ProcessId);

hProcess := OpenProcess(PROCESS_ALL_ACCESS, False, ProcessId);

try

if hProcess = INVALID_HANDLE_VALUE then begin

raise Exception.Create('Invalid Handle');

exit;

end;

exec := FindWindow('Softnyx', nil);

if exec <> 0 then begin

GetWindowThreadProcessId(exec, @ProcessoId);

hProcesso := OpenProcess(PROCESS_ALL_ACCESS, False, ProcessoId);

end;

begin

exec := FindWindow('Softnyx', nil);

if exec <> 0 then begin

GetWindowThreadProcessId(exec, @ProcessoId);

hProcesso := OpenProcess(PROCESS_ALL_ACCESS, False, ProcessoId);

end;

end;

finally

TimerOpenProcess.enabled:=false;

end;

end;

 

Agora no TimerMaya,adicione isso:

 

Código:

exec := FindWindow('Softnyx', nil);

if exec <> 0 then begin

GetWindowThreadProcessId(exec, @ProcessoId);

hProcesso := OpenProcess(PROCESS_ALL_ACCESS, False, ProcessoId);

 

if CheckMaya.Checked = true then

maya_end;

end;

end;

 

 

Nesse não precisa tirar o Begin.

 

Agora pegue e Adicione esse código no TimerPU.

 

 

Código:

exec := FindWindow('Softnyx', nil);

if exec <> 0 then begin

GetWindowThreadProcessId(exec, @ProcessoId);

hProcesso := OpenProcess(PROCESS_ALL_ACCESS, False, ProcessoId);

 

if CheckPU.checked = true then

power_user;

end;

end;

 

Nesse não precisa tirar o Begin.

 

Agora é hora dos Checkbox,no CheckMaya,dê dois clicks e Adicione esse código:

 

Código:

TimerMaya.enabled:=true;

CheckMaya.enabled:=false;

No CheckPU,dê dois clicks e Adicione esse código:

 

 

Código:

timerpu.enabled:=true;

CheckPU.enabled:=false;

 

 

Agora,Salve ele em File,salve Project,salve em alguma pasta,e aperte Control +F9

 

Parte IIII - Mudando Visual.

 

- Vá na Palheta Win32,e adicione o Componente xpmanifest,o último da palheta.

 

2- Vá na Palheta Aditional e Adicione o Componente Image,que é um simbolo de uma paisagem.

 

Lá no Object Inspector Click em Picture,e procure a imagem que deseja colocar,e pronto.

 

Modo de Usa-lo:

 

Abra-o e abra o GB,quando o GameGuard tiver atualizando Ative os Hackers.

 

 

Créditos TutorialOriginal:

SexyChick :cool:

Gostou? Agradeça Ae. Meu 1°Tópico na WebCheats!

[SamirLoco 0]

Agora sim um topico muito bom

[priceown' 7]

Na verdade os créditos não são seus, você copiou o tópico e editou as imagens postando como se fosse voce quem fez tudo.

Fechado.