Bom nesse tutorial vo ensinar como fazer um trainer basico para editar o valor dos pontos no Pinball do windows, dai partindo desse mesmo raciocinio desse codigo voces poderam criar trainer para varios outros jogos.. apenas editando o endereço.
Bom vamos la...
1- Crie 4 Labels, 1 Button, 1 Edit e 1 Timer como a imagem abaixo:
[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]
2 - Declare as seguintes variáveis globais:
Código:
var
Form1: TForm1;
value: dword;
Memory: DWORD;
PH : THandle;
PID, ThID, R : DWORD;
H : THandle;
3 - Dê 2 clicks sobre o timer e copie o seguinte código:
Código:
var
ValorAtual:integer;
Ler:dword;
ver:integer;
begin
ver:=$010CAEBA;
If FindWindow(nil, 'Pinball 3D para Windows - Space Cadet')<=0 then
begin
label1.Caption:='Não Achou Processo'
end;
If FindWindow(nil,'Pinball 3D para Windows - Space Cadet')>0 then
begin
label1.Caption:='Pinball Encontrado';
H := FindWindow(nil, 'Pinball 3D para Windows - Space Cadet');
ThID := GetWindowThreadProcessId(H, @PID);
PH := OpenProcess(PROCESS_ALL_ACCESS,FALSE,PID);
readprocessmemory(PH,pointer(ver),addr(ValorAtual) ,4,Ler);
label2.Visible:=true;
label2.Caption:=inttostr(ValorAtual);
end;
4 - Dê 2 clicks sobre o Button e copie o código:
Código:
var
NovoValor:integer;
Endereco:integer;
Escrever:dword;
begin
Endereco:=$010CAEBA;
Novovalor:=StrToInt(Edit1.Text);
writeprocessmemory(PH,pointer(Endereco), addr(NovoValor),4,escrever);
end;
5 - Agora eh so compilar e botar pra rodar
Lembrando que depois de escolher a quantidade de pontos vc deve fazer uma jogada para que eles possam atualizar.
Qualquer duvida que tiverem eh so postar ai q eu tento ajudar na medida do possivel
vlws
Bom vamos la...
1- Crie 4 Labels, 1 Button, 1 Edit e 1 Timer como a imagem abaixo:
[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]
2 - Declare as seguintes variáveis globais:
Código:
var
Form1: TForm1;
value: dword;
Memory: DWORD;
PH : THandle;
PID, ThID, R : DWORD;
H : THandle;
3 - Dê 2 clicks sobre o timer e copie o seguinte código:
Código:
var
ValorAtual:integer;
Ler:dword;
ver:integer;
begin
ver:=$010CAEBA;
If FindWindow(nil, 'Pinball 3D para Windows - Space Cadet')<=0 then
begin
label1.Caption:='Não Achou Processo'
end;
If FindWindow(nil,'Pinball 3D para Windows - Space Cadet')>0 then
begin
label1.Caption:='Pinball Encontrado';
H := FindWindow(nil, 'Pinball 3D para Windows - Space Cadet');
ThID := GetWindowThreadProcessId(H, @PID);
PH := OpenProcess(PROCESS_ALL_ACCESS,FALSE,PID);
readprocessmemory(PH,pointer(ver),addr(ValorAtual) ,4,Ler);
label2.Visible:=true;
label2.Caption:=inttostr(ValorAtual);
end;
4 - Dê 2 clicks sobre o Button e copie o código:
Código:
var
NovoValor:integer;
Endereco:integer;
Escrever:dword;
begin
Endereco:=$010CAEBA;
Novovalor:=StrToInt(Edit1.Text);
writeprocessmemory(PH,pointer(Endereco), addr(NovoValor),4,escrever);
end;
5 - Agora eh so compilar e botar pra rodar
Lembrando que depois de escolher a quantidade de pontos vc deve fazer uma jogada para que eles possam atualizar.
Qualquer duvida que tiverem eh so postar ai q eu tento ajudar na medida do possivel
vlws
12/19/2017, 18:48 por MrViSiBLe
» MU LIVE SEASON 2 | INAUGURA DOMINGO 17/09
9/2/2017, 13:51 por MrViSiBLe
» Sorteio Perfumes - Forum ViSiBLe
8/25/2017, 08:27 por Convidado
» Novas Vagas Para Staff
8/24/2017, 15:20 por MrViSiBLe
» CSGO [Internal/External] Multi-Hack AIMBOT + TRIGGERBOT + ESP + BHOP
8/22/2017, 03:04 por MrViSiBLe
» REB00T 31/07/2017
8/22/2017, 03:01 por MrViSiBLe
» [CS:GO] HENTAIWARE 19/08/2017 | LEGIT | RAGE | ESP | GLOVES | FACEIT |
8/22/2017, 02:58 por MrViSiBLe
» DeviceCheats CS:GO Gratuito 31/07/2017
8/22/2017, 02:56 por MrViSiBLe
» [CS:GO] External - Glow ESP | Triggerbot | RCS | BunnyHop | Noflash
8/22/2017, 02:53 por MrViSiBLe
» [CS:GO] GLOW ESP 21/08/2017
8/22/2017, 02:49 por MrViSiBLe