Alguem pode me ajuda aqui com isso?

[welhington13 0]

:risomalefico:Ola´ Galera da WC venho ak tira uma Duvida Com vcs Programadores De Priston tale Brasil,

 

Bom vamos la, eo seguinte eu estou tentando Cria meu Primeiro Hacker Pro BPT,

 

Eu vi um Tutorial Sobre Como Cria Hacker Pro BPT DAE encontrei Esse aqui

 

Com Delphi Pois Fiz Tudo que esta Dizendo ai No Tutorial certinho Quando eu Termino tudo vou Injectar a DLL

 

No BPT Xtrap Pega?..

 

Eu começo com Ese Codigo aqui >> Project1

 

 

Code:

{$R *.res}

////////////////////////////////////

//-- Procedure pra Abrir o Form --//

////////////////////////////////////

procedure PikeSob;

begin

ShowMessage('www.mundohackpt.com'); // Precisa Declarar Dialogs na uses

Form1 := TForm1.Create(application);

Form1.ShowModal;

end;Code:

{ Cria uma thread chamando minha procedure para não aumentar muitoo

processamento de nossa app e executar o hack em

processamento paralelo com o game }

var

PS: DWORD;

begin

CreateThread(nil, PS, @PikeSob, nil, PS, PS);

end.Unit1

 

 

Code:

{$R *.dfm}

////////////////////////////////////////////

//-- Procedure ChatPrintf do D4rkWeaver --//

////////////////////////////////////////////

procedure ChatPrintf(ChatPrintMSG: PChar);

var

ChatPrint: Cardinal;

procedure ChatPrintASM(ChatPrintMSG: PChar);

assembler;

asm

lea edx, [ChatPrintMSG]

push edx

call [ChatPrint]

pop edx

end;

begin

ChatPrint:=$0000001;

ChatPrintASM(ChatPrintMSG);

end;Code:

////////////////////////

// -- Timer Regens --//

///////////////////////

procedure TForm1.Timer1Timer(Sender: TObject);

begin

PSingle($00000000)^:=StrToFloat(Edit1.Text); //Recebe o valor do Edit1

PSingle($00000004)^:=StrToFloat(Edit2.Text); //Recebe o valor do Edit2

PSingle($00000008)^:=StrToFloat(Edit3.Text); //Recebe o valor do Edit3

end;Code:

//////////////////////////////////////////////////////////

//-- Button pra Ativar e Desativar o Timer dos Regens --//

//////////////////////////////////////////////////////////

procedure TForm1.Button1Click(Sender: TObject);

begin

if (Timer1.Enabled = True) then // Se Propriedade Enabled do Timer for True então

begin

Timer1.Enabled:= False; // Altera Propriedade Enabled pra False

ChatPrintf('Regem HP MP RES: Desativado')

end

else // Senão

begin

Timer1.Enabled:= True; // Altera Propriedade Enabled pra True

ChatPrintf('Regem HP MP RES: Ativado')

end;

end;Code:

//////////////////////////

//-- Button Mini Item --//

//////////////////////////

procedure TForm1.Button2Click(Sender: TObject);

begin

PDWORD($00000000)^:=22;

PDWORD($00000004)^:=22;

ChatPrintf('Mini Item: Ativado');

end;Code:

//////////////////////////

//-- Button Core Azul --//

//////////////////////////

procedure TForm1.Button3Click(Sender: TObject);

begin

PDWORD($00000000)^:=8;

ChatPrintf('Core Azul: Ativado');

end;Code:

///////////////////////

//-- Button Tel BC --//

///////////////////////

procedure TForm1.Button4Click(Sender: TObject);

begin

PDWORD($00000000)^:=1;

ChatPrintf('Teleporte: BC');

end;

 

end.

 

LEIA EM BAIXA AQUI PORFAVOR.................................

@@@@@@@@@@@@@@@@@@@@@@@@@@@

Sera Porque Esta faltando Ese codigo >> Código PHP:

var

Form1: TForm1;

NomeJanela : THandle;

PHandle : THandle;

PID, TID, R : DWORD;

Escrever : DWORD;

Embaixo de

{$R *.dfm}

coloque o codigo

 

Código PHP:

Procedure PegarHandle(Titulo:String);

Begin

NomeJanela := FindWindow(nil, pChar (Titulo));

If NomeJanela <= 0 Then

Showmessage('Erro. Este processo não está em execução.')

else

TId := GetWindowThreadProcessId(NomeJanela, @PID);

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

end;

Procedure ler(Endereco:dword);

var

Ler:dword;

valor:integer;

begin

valor:= 0;

ReadProcessMemory(PHandle,pointer(endereco),addr(valor),4,Ler);

end;

 

Procedure escreve(Endereco:dword ; valor: integer);

var

w:dword;

begin

writeprocessmemory(PHandle,pointer(endereco),addr(valor),4,w);

end;

no button coloque o caption : Iniciar Trainer

 

Código PHP:

PegarHandle('Nome Da Janela do jogo');

ai voce pode coloca o checkbox invisivel , e quando voce colocar o codigo no button voce pode coloca

exemplo : CheckBox.Visible:= True ... mais ai é de sua opção

no checkbox , coloque

 

Código PHP:

if CheckBox1.Selected then

begin

escreve (StrToInt ('$' + 'Adress Desejado '), StrToInt ('Valor que quiser (Máx 2000000000'));

end;

 

 

Se Alguem ae que saiba mais poder ajuda eu Agradeço Muito ....

[The°Bender 1]

mesmo topico em area diferente O.o

[Perassolli 11]