Criaçao de Trainer Pelo Delphi

[mastermcn 0]

Eae galera da WC

To estudando bastante programaçao e o meu proximo passo e a criaçao de um trainer pelo Delphi ,

Porem tem um problema , ate agora nao achei nenhum tuto bem explicado , sempre explicam/ensinam pela metade ...

Queria uma ajuda de alguem experiente/ ou nao , mas que saiba pelo menos sanar as minhas duvidas ..

Desde ja agradeço .

[Rods72 Banido (2) 0]

Tá, mas para que jogo?

Isso pode ajudar.

Primeiramente tente entender os codigos,leia com calma nao de apenas ctrl c + ctrl v.

Abra seu delphi.

Declaremos as variaveis globais.

H,PH:THandle;

PID, THandleID, R : DWORD;

 

Pra quem não sabe você declara-as debaixo de

 

var

Form1: TForm1;

 

//Agora coloque um timer que vai verificar se a janela do nosso jogo esta ativa,se estiver ele vai pegar o PID pela api GetWindowThreadProcessId(); que nada menos apenas pega o PID apartir da janela.Depois disso o OpenProcess();Abre para nos o processo com privilegio total.

 

//TIMER1

H := FindWindow(nil,Pchar('MU'));

THandleID := GetWindowThreadProcessId(H, @PID);

PH := OpenProcess(PROCESS_ALL_ACCESS,FALSE,PID);

 

Depois disso colocaremos o botao de editar,ou pode ser uma checkbox com o caption "Guild Hack";

Neste botao editaremos o local da memoria,usando o writeprocessmemory.

 

Clique 2x na checkbox que vc adicionou ou button e siga.

Declare a variavel "escrever" como dword,e x como integer;

coloque o codigo

x:=1;

writeprocessmemory(PH,pointer($083A944C), addr(x),4,escrever);

 

//Onde x e o valor a ser editado caso ai e 1 mesmo(1 = ativo 0 =desativado,semelhante aos numeros binario =D)

//$083A944C e o address que vai se editado,utilizando o indicador de hex ($);

//PH e o processo.

 

Apos isto e so testar.

Créditos: Leandro

[DarkShade 52]

http://www.webcheats.com.br/forum/delphi-vb/667985-find-pointer-cheat-engine-trainer-pinball.html

http://www.webcheats.com.br/forum/delphi-vb/1041006-source-trainer-pinball-em-dll-delphi-assembly.html

 

Se tiver dúvidas pergunte.