Ir para conteúdo
Faça parte da equipe! (2024) ×
Conheça nossa Beta Zone! Novas áreas a caminho! ×
  • Quem está por aqui   0 membros estão online

    • Nenhum usuário registrado visualizando esta página.

[Tutorial]Criando Trainer Básico+Download Delphi 7


~ Heatlex.
 Compartilhar

Posts Recomendados

O que vai prescisar Delphi 7

download La Em Baixo

 

 

1. Criando a DLL

 

 

1-1. Abra o Delphi 7, vá em "File > New > Other..."

 

 

1-2 . e então irá aparecer uma janela

 

 

1-3. vá em DLL Wizard e de Ok, irá aparecer uma janela igual a esta. Clique em New Form e pronto dll criada.

 

 

 

 

2. Customizando a aparencia.

 

2-1. Veja que apareceu um quadrado grande quando você clicou em "New Form", na aba "Stantard" do Delphi, add 2 CheckBox :

 

 

2-2. Agora na aba "System" add um Timer (O que tem um desenho de um relogio)

 

2-3. Agora add um "Edit" que está na aba "Standard" (veja a img abaixo) e renomeie os "CheckBox" e o "Form" pelo Caption como

 

 

 

3. Adicionando os Códigos & Compilando.

 

3-1. Apague o códigos "begin" e "end." e insira o código abaixo da imagem no lugar deles (que fica abaixo do {{$R *.res})

 

 

 

Código:

var

HackProcess:THandle;

hId:Cardinal;

b:Boolean=False;

 

procedure AbrirFormularioGzB;

begin

Form1:=TForm1.Create(nil);

Form1.ShowModal;

end;

 

begin

HackProcess:=OpenProcess(PROCESS_ALL_ACCESS,false, GetCurrentProcessID);

CreateRemoteThread(HackProcess,nil,0,@AbrirFormula rioGzB,@AbrirFormularioGzB,0,hID);

end.

 

 

Agora declare o código:

Código:

windows,

 

na uses.

Então ficara assim

 

 

 

3-2. Agora vá¡ no form do trainer e de 2 clicks no "Timer1", aparecera um código tipo:

 

Código:

procedure TForm1.Timer1Timer(Sender: TObject);

begin

 

end;

 

 

Troque ele por este:

 

Código:

procedure TForm1.Timer1Timer(Sender: TObject);

begin

//Damage Hack-Slot1

if CheckBox1.Checked=True then begin

Memory:=PDWORD($01084AB4)^+$2EB02;

PDWORD(Memory)^:=20000;

end;

 

//Stage Hack

if Checkbox2.Checked=True then begin

Value:=strtoint(Edit1.text);

PDWORD($011CE498)^:=Value;

end;

end;

 

 

e na uses, add as seguintes variaveis:

 

Código:

Memory: DWORD;

value: dword;

 

 

Agora salve seu projeto e aperte Crtl F9 para compilar, deverá aparecer a dll na pasta do projeto depois é só injetar e se divertir.

 

4. Créditos do Tutorial:

BySatan157, por criar o tutorial

-IlluminaT!, por editar o tutorial

Vipers, por editar, corrigir erros e postar na Visiblie .

 

-

 

Algum erro ? não fucionou ? comente no topico .

Fucionou ? Gostou ? Por favor, agradeça .

download aki Rapidshare

Link para o comentário
Compartilhar em outros sites

  • 1 mês depois...
Este tópico está impedido de receber novos posts.
 Compartilhar

×
×
  • Criar Novo...

Informação Importante

Nós fazemos uso de cookies no seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies , caso contrário, vamos supor que você está bem para continuar.