Fazendo seu proprio Trainer(Pra quem Conheçe Programação)

[kevinzavatti 0]

Para cada Procedure coloque um Timer no form com o Nome correto e é só Copiar o Codigo e Colar .

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Créditos : faelz.

 

Obs : Os Créditos de todos os Trainers existentes Atualmente são do faelz, incluindo os programinhas " Ant-Slot, Ant-Acess " etc ...

Todos utilizam o msm metodo de editar a Memoria .

O Codigo acima pode estar um pouco diferente pois foi modificado e a dll foi retirada .

[trafick 0]

Perfect,

 

Fixeed ;)

[EuGoRdOxD 0]

Simplesmente arrasou!belessa kapião!:):):):)

[197805 0]

Mais eu vô copia e cola esse código aonde?

eu baixei o source, mais nao entendi muito nessa parte de copia e cola.:confused:

[CheaterMX 2]

Mais eu vô copia e cola esse código aonde?

eu baixei o source, mais nao entendi muito nessa parte de copia e cola.:confused:

 

No Source Não Necessita de Colar

 

Creio que no Source o Code Já Vem

 

Agora Faça Os Cheats Funcionarem

 

Abraços.

[lLucasx 0]

Parece ser bem interessante :)

 

Mais não vou me atrever a tentar nao!

 

~Abraços

[mocci1 0]

Intons Né Só Falta Seber programaçao.............=// C For Smples Asim ótimo

[Rein 27]

Muitos confundem programação com ctrl+c e +v, ninguem que não tenha ideia do que esta fazendo vai conseguir criar um trainer apartir disso, acredito que esses códigos são mais pra acelerar o trabalho de alguem que entende de programação e planeja crair um trainer.

[agpo 0]

isso é pra visual basic?

[conseito 0]

cara naum consegui nem sair da tela aff q josa

[warcraftzz 0]

explica pelo menos como q cria esse tal treiner!!

[• NickedziN~ 0]

OMG.

 

se fika bom eu posto ake :)

[yagouchiha 0]

vlws ae cara bom post :)

[leonardoa 0]

Ei da pra auguem posta um pronto pro gb Wc ?

[sktonline 0]

Nossa

muito foda

programação eh osso kkk

[OsantosO 0]

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;

 

 

 

procedure TForm1.TimerPUTimer(Sender: TObject);

Var

GunBoundWindow: HWND;

Login : String;

X: DWORD;

ZeroBytes: Array of Byte;

VarPU : Boolean;

begin

VarPU := False;

GunBoundWindow:=FindWindow(nil,'GunBound');

if GunBoundWindow <> 0 then

begin

SetLength(ZeroBytes, 8);

ZeroMemory(@ZeroBytes, length(ZeroBytes));

ProcessID :=GetProcessID(PROCESS_NAME);

ProcessHandle:=OpenProcess(PROCESS_ALL_ACCESS,false,ProcessID);

writeprocessmemory(ProcessHandle,Pointer($008F9218), @ZeroBytes,$8,X);

// CloseHandle(ProcessHandle);

VarPU := True;

end;

if VarPU = True Then

begin

SetLength(ZeroBytes, 8);

ZeroMemory(@ZeroBytes, length(ZeroBytes));

ProcessID :=GetProcessID(PROCESS_NAME);

ProcessHandle1:=OpenProcess(PROCESS_ALL_ACCESS,false,ProcessID);

writeprocessmemory(ProcessHandle1,Pointer($008F91A8), @ZeroBytes,$8,X);

//CloseHandle(ProcessHandle1);

end;

end;

 

procedure TForm1.TimerDamage4Timer(Sender: TObject);

Var

GunBoundWindow: HWND;

Login : String;

X: DWORD;

ZeroBytes: Array of Byte;

begin

GunBoundWindow:=FindWindow(nil,'GunBound');

if GunBoundWindow <> 0 then

begin

SetLength(ZeroBytes,$48);

ZeroMemory(@ZeroBytes, length(ZeroBytes));

ProcessID :=GetProcessID(PROCESS_NAME);

ProcessHandle:=OpenProcess(PROCESS_ALL_ACCESS,false,ProcessID);

writeprocessmemory(ProcessHandle,Pointer($008F9F19), @ZeroBytes,$48,X);

end;

end;

 

procedure TForm1.TimerDelayTimer(Sender: TObject);

Var

GunBoundWindow: HWND;

Login : String;

X: DWORD;

ZeroBytes: Array of Byte;

begin

GunBoundWindow:=FindWindow(nil,'GunBound');

if GunBoundWindow <> 0 then

begin

SetLength(ZeroBytes,$16);

ZeroMemory(@ZeroBytes, length(ZeroBytes));

ProcessID :=GetProcessID(PROCESS_NAME);

ProcessHandle:=OpenProcess(PROCESS_ALL_ACCESS,false,ProcessID);

writeprocessmemory(ProcessHandle,Pointer($008FC220), @ZeroBytes,$16,X);

TimerDamage.Enabled := True;

end;

end;:D;):p:o:):(:confused::mad::rolleyes::cool::eek:

[julio2008sf 0]

Isso é delphi só pra avisar.. vou tentar algo aqui.

 

D7 e BDS 06 dá pra iniciar.

 

Uma dica, use o hook.. conceito um pouc avancado mas que vai e ajudar a montar o programa.

[bachega171 0]

Programação é foda, quem intende... é capaz de destruir tudo !!! heauihehaieh, ainda pretendo fazer faculdade "Ciencia da Computação" =P

[RaphaCarnauba 0]

Isso é apenas um código-base em Delphi pra quem está querendo fazer os cheats!

 

Agora é vocês fazerem a parte dos tools! gold-hack, etc. dependem de voces! :)

 

Ah, alguem tem a formula do aimbot ?

[felipebenchaya 0]

tem que botar no delphi neh?

[jessik 0]

isso ae ta com cara de delphi ...vo tenta mecher ... mancho um poquinho de prog...

 

mais sei la faz mto tempo q num prog ...

[xkduzinho 0]

Mto bom para qem intende a Programaçao

 

c alguem fiser um bom ae Manda pra WEB CHEATS Pra nois aew !

[shenow 5]

O tópico está sendo praticamente inútil,metade das pessoas que frequentam a área nao sabem o que eh delphi,e 80% sabe e nao sabe programar,as strings desse trainer são detectadas sem falar de alguns erros no código que o GB nao seria nem selecionado.

 

Desfixado.

[eutimiaa 0]

link Off :/

[Uchtsu 0]

sera q vc num pode fazer um tuto mais detalhado

mostrando pelo menos uma imagem e dizendo mais ou menos oq tem q fazer

se vc fizer eu agradeço e manda um e-mail pra mim dizendo q vc fez

[email protected]

e meu msn é [email protected]

abrasss