Cheats Team
Sejam Bem Vindos ao Cheats Team ! Obg : Willian9931 e equipe !
Quem está conectado
1 usuário online :: Nenhum usuário registrado, Nenhum Invisível e 1 Visitante

Nenhum

O recorde de usuários online foi de 13 em Sex Set 13, 2013 6:02 am
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Parceiros
HandSurf Hotel
server habbo
Últimos assuntos
» DDtank - PVP HACK + MISSION
Sab Fev 08, 2014 6:42 am por akiratys

» Listão VPS FREE
Sab Nov 16, 2013 6:49 am por lucasnopc

» Melhores músicas de 2012
Ter Mar 12, 2013 2:11 am por junino320

» Endereço do Fórum!
Qui Jan 31, 2013 4:03 pm por hackergm

» C4D Nebulas Pack
Qui Jul 12, 2012 1:25 pm por Willian9931

» Clique Aqui e Veja as Vagas !
Sab Jun 16, 2012 8:02 pm por -Perdigao

» Hacker Grand Chase
Qui Maio 10, 2012 2:24 pm por gabriel123

» Básico e avançado programação C++
Ter Jan 24, 2012 6:14 pm por Willian9931

» Asp básico !
Ter Jan 24, 2012 5:18 pm por Willian9931

Os membros mais ativos da semana


Criando um trainer funcional para grand chase

Ir em baixo

Criando um trainer funcional para grand chase

Mensagem por lukax em Qui Jan 19, 2012 8:33 pm

Ha alguns pré-requsitos para criação do trainer

°Conhecimento Básico no Delphi
°Address atualizados (Para o funcionamento obviamente)

°Quando formos utilizar um address do tipo 4bytes usaremos o PDWORD
°Quando formos utlizar um address do tipo Float usaremos o PSingle
Como por exemplo o "Visão Cheat" usaremos o Psingle, pois freezamos em 0,6
°(São esses que usaremos para criar nosso Trainer para grand chase.)
°E para seu trainer não ser detectado usaremos um método bem simples,
e que o game guard não detecta Mudaremos os nomes dos ChecBo's usado.

Então vamos lá!
No delphi

°Clique em File > New > Other.
°Irá abrir uma janela,Nela escolha Dll Wizard e clique em OK.
°Nas uses adicionaremos "Windows"

Como mostra a imagem:



Apague:
"Beginend"

°E substitua pelo seguinte código:

Código:
[color=#000000][font='Times New Roman'][color=#5F5F5F][font=arial]var
xxxxxxxxx : DWORD;

procedure NC;
begin;
form1 := tForm1.Create(nil);
Form1.ShowModal;
end;
begin
CreateThread(nil, *********,@PC,nil,*********, *********);
end.[/font][/color][/font][/color]

Feito isso já podemos começar a criar o trainer própriamente dito.

Iniciaremos clicando em File > New > Form

Nesse momento todos o Address que nós iremos usar serão desclarados

Vamos usar os seguintes exemplos:

Código:
HackAddressMissaoCompleta....00000001Continente..............00000002Stage.....................00000003

Para declarar faça o seguinte:

Vá até o Unit1
Abaixo das uses você fará o seguinte:

Código:
Código:
ConstMissaoCompleta= $00000001;Continente= $00000002;Stage= $00000003;

Ou seja,como você pode notar estamos declarando que cada Cheat é igual a um determinado Address no caso.

(missão perfeita é igual a $00000001 etc)

Obs:
quando for declarar os address procure evitar acentuação gráfica e
espaço nos seus respectivos nomes,do mesmo modo em que e fiz em
"MissaoCompleta" que está sem o "~" e sem espaço.

No form....

°Adicione um TcheckBox [Aba System] para cada cheat
(no nosso caso 3)

°Um Tedit [Aba System] para cada cheat em que precise de um determinado valor para ser freezado ( ex: Continente)
°1 TTimer [Aba Standard]
°Mude
o nome da propriedade Caption de cada TcheckBox com respectivo nome do
cheat. (Nesse caso pode-se usar acentuação gráfica normalmente)

"Missão Completa"
"Continente"
"Stage"

°Como
foi dito o Continente e o Stage precisam de uma determinado valor para
ser freezado, então coloque um edit na frente dos TCheckBox's de cada
um.

Para seu trainer não ser detectado,vamos alterar a propriedade
Name dos CheckBox's.Altere para qualquer um.

No meu caso:

Código:
•TCheckBox 1 ~> NEWCH34T51
•TCheckBox 2 ~> NEWCH34T51
•TCheckBox 3 ~> NEWCH34T51

Ok.

Agora no Timer.

°Altere o Intervalo do Timer para 1.
°Feito isso dê dois cliques em cima dele e adicione o seguinte CODE.

Código:
[color=#000000][font='Times New Roman'][color=#5F5F5F][font=arial]// Missao Completa, sem editif NEWCH34T51.Checked=truethenbegin;PDword(MissaoCompleta)^:=0;
// 0 = determinado valor a ser freezadoend;
//
 Continente Address, com edit e offsetif
NEWCH34T52.Checked=truethenbegin;
PDWORD(PDWORD(Continente)^+$0)^:=StrToInt (Edit1.Te xt);end;
// Stage Address, com editif NEWCH34T53.Checked=truethenbegin;PDword(Stage)^:=StrToInt(Edit2.text );
end.[/font][/color][/font][/color]

Obs: o que está escrito depois de "//" são comentários,ou seja se quiser
pode excluir o comentário que não irá interferir no funcionamento.

Obs: Em negrito ficou os address em que você declarou no início Smile

Obs:
Quando for compilar (f9) o Delphi irá abrir uma mensagem como se fosse
erro.Mas não se preocupe. Salve seu projeto em alguma pasta,Quando
apertar (f9) irá abrir a mensagem de erro; Porém você poderá ir até a
pasta onde salvou e irá encontrar a Dll criada;
Só mudar o nome e usar em algum infetor Smile

Créditos: # Shadow~'


avatar
lukax
Adiministrador
Adiministrador

Mensagens Mensagens : 52

http://cheatsteam.forumeiros.com

Voltar ao Topo Ir em baixo

Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum