Criando trainer em delphi 7

[Maxit 0]

Bom antes de mais nada pesso a educaçao de todos e que evitem perguntas como : ( Pra que serve isso ) pois elas serao ignoradas evitem tambem o flood pesso a moderaçao total aqui !

 

Esse trainer funfa apenas para gb ele e feito em delphi 7

 

Vamos la 1º Passo: Voce devera declarar na var o seguinte codigo

Código:

wHandle: hwnd;

ProcessID, ThreadID, Rights,Bytes,ProcessHandle : DWORD;

WindowName : THandle;

Texto: String;

hProcess,pId,Value,GetID,PC: integer;

Valor: array of byte;

 

Vamos ao 2º passo: Voce devera adicionar um checkbox na form , Renomeie para Item 2 full . . .

 

 

Vamos ao 3º Passo: Voce devera adicionar um timer aba (System) . . . Depois de adicionado dê dois clicks no timer e adicione o seguinte codigo

Código:

wHandle := FindWindow('Softnyx',nil);

GetWindowThreadProcessId(wHandle,@pId);

if wHandle <> 0 then begin;

hProcess := OpenProcess(PROCESS_ALL_ACCESS,False,pId);

if CheckBox1.Checked = True then

begin

Value := 6;

WriteProcessMemory(hProcess,Pointer($00912F68),Addr(Value),1,Bytes);

end;

end;

 

Para vc adicionar novos hacks voce devera mexer no value adress e no CheckBox

 

exemplo:

 

wHandle := FindWindow('Softnyx',nil);

GetWindowThreadProcessId(wHandle,@pId);

if wHandle <> 0 then begin;

hProcess := OpenProcess(PROCESS_ALL_ACCESS,False,pId);

if CheckBox2.Checked = True then

begin

Value := 0;

WriteProcessMemory(hProcess,Pointer($0091DD18),Addr(Value),1,Bytes);

end;

end;

 

Aperte F9 para rodar o teu aplicativo . . .

 

Agradeça ao autor do topico nao custa nada e apenas um click . . .

__________________

☼S0uz4☼ My Msn: [email protected]