[Pedido]Trainer para pangya[delphi]

[DarkSj 0]

Aee galera to aqi postand isso pra pedir um trainer para ojogo PangYa

se alguém tiver uns códigos e algum tutorial eu agradeceria!

 

VLW

¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨

¨

Metas no WC:

[X]5 posts

[X]10 posts

[ ]50 posts

[ ]100 posts

[ ]250 posts

[ ]500 posts

[ ]750 posts

[ ]1000 posts

 

 

¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨

[Surfistinha£ 20]

Programa Necessá¡rio:

Delphi 7

 

1 - Criando a DLL

 

1.1 - Abra o Delphi 7, vá em "File > New > Other..." como mostra a figura abaixo:

1.2 - e então irá aparecer uma janela igual a esta:

1.3 - vá como manda a foto 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 como mostra a foto abaixo:

2.2 - Agora na aba "System" add um Timer (O que tem um desenho de um relogio) como mostra a foto abaixo:

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 mostra a imagem abaixo:

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,@AbrirFormularioGzB,@AbrirFormularioGzB,0,hID);

end.

Agora declare o código:

windows,

na uses.

 

Então ficara assim, como mostra a imagem abaixo:

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

procedure TForm1.Timer1Timer(Sender: TObject);

begin

 

end;

Troque ele por este:

procedure TForm1.Timer1Timer(Sender: TObject);

begin

try

if Checked1.Checked = true then begin;// Gp Hack

PDWORD(PDWORD($011876BC)^+$14)^:=2999999;

end;

E na uses, add as seguintes variaveis:

 

Memory: DWORD;

value: dword;

 

So mudar os address

[DarkSj 0]

vo testaar

já já edto!

 

@edit²

 

outroo erro(o outro eu descobrri)

no código do timer olha:

Try

¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨

Metas no WC:

[X]5 posts

[X]10 posts

[ ]50 posts

[ ]100 posts

[ ]250 posts

[ ]500 posts

[ ]750 posts

[ ]1000 posts

 

 

¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨