Ir para conteúdo
Faça parte da equipe! (2024) ×

[Tutorial]Criando Trainer Básico DLL


'Lenneth
 Compartilhar

Posts Recomendados

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 **** e pronto dll criada.

 

 

 

 

2. Customizando a aparencia.

 

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

 

 

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

 

2-3. Agora *** um "Edit" que está na aba "Standard" (veja a img abaixo) e renomeie os "CheckBox" e o "****" 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})

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:

windows,

 

na uses.

Então ficara assim.

 

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

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, *** as seguintes variaveis:

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.

 

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

Fucionou ? Gostou ? Por favor, agradeça .

 

Creditos Before123

Standard Trading - Shops - 🌟🔥 EXOSTA 🔥🌟 THE #1 TRADING & SERVICE CENTER  💎 The Magic Find Academy, my new Discord Server 💎 - Forum - Path of Exile
Link para o comentário
Compartilhar em outros sites

  • 3 semanas atrás...
  • 2 semanas atrás...
Este tópico está impedido de receber novos posts.
 Compartilhar

  • Quem Está Navegando   0 membros estão online

    • Nenhum usuário registrado visualizando esta página.
×
×
  • 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.