Ir para conteúdo
Faça parte da equipe! (2024) ×
Conheça nossa Beta Zone! Novas áreas a caminho! ×
  • Quem está por aqui   0 membros estão online

    • Nenhum usuário registrado visualizando esta página.

[Dúvida] Delphi7


Pɑyout~
 Compartilhar

Posts Recomendados

Em baixo do Form1: TForm1;

 

Adicione os seguintes codigos

 

AddressPointer: integer;

 

offset: integer;

 

wHandle: hwnd;

 

hProcess: integer;

 

pId: integer;

 

Value: integer;

 

Valor: array of byte;

 

coloque um timer,coloque isso:

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:=1;

 

AddressPointer:=$00000;

 

Offset:=$0000

 

WriteProcessMemory(hProcess,Pointer(AddressPointer+Offset),Addr(Value),4,Bytes);

 

end;

 

end;

 

end;

 

 

 

Preto: você coloca o value a ser freezado.

 

Vermelho: o pointer,não é o address e sim o pointer!

 

Offset: coloque o offset do hacker!

 

Verde: tamanho de bytes do address!

 

Laranja: nome da janela do gunbound!

 

Roxo: pega o checkbox que será clicado e ativará o hacker!

 

 

 

agora com valor escolher em um edit,coloque assim:

 

Value := strtoint(Edit1.text);

 

By Srmaster

Link para o comentário
Compartilhar em outros sites

Este tópico está impedido de receber novos posts.
 Compartilhar

×
×
  • Criar Novo...

Informação Importante

Nós fazemos uso de cookies no seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies , caso contrário, vamos supor que você está bem para continuar.