Alguem que entende de programação?

[proibido. 1]

 

 

Alguem ajuda porque esse erro aqui?

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

codigo que uso:

procedure TForm1.Timer1Timer(Sender: TObject);

var

PID : DWORD;

hProc1: DWORD;

hProc2: DWORD;

hProc3: DWORD;

Value1 : single;

Value2 : single;

Value3 : single;

Written1 : DWORD;

Written2 : DWORD;

Written3 : DWORD;

begin

PID:= GetPidByName('game.exe');

Value1 := 33;

Value2 := 33;

Value3 := 32;

 

If Checkbox1.Checked then

hProc1:= OpenProcess(PROCESS_ALL_ACCESS,false,PID);

WriteProcessMemory(hProc1,Ptr($0328DE0C),@value1,4,Written1);

CloseHandle(hProc1);

 

If Checkbox2.Checked then

hProc2:= OpenProcess(PROCESS_ALL_ACCESS,false,PID);

WriteProcessMemory(hProc2,Ptr($0328DE10),@value2,4,Written2);

CloseHandle(hProc2);

 

If Checkbox3.Checked then

hProc3:= OpenProcess(PROCESS_ALL_ACCESS,false,PID);

WriteProcessMemory(hProc3,Ptr($0328DE08),@value3,4,Written3);

CloseHandle(hProc3);

 

 

end;

 

 

 

end.

['Hylander 0]

Quanta bagunça, pode ser várias coisas, talvez o problema seja devido ao uso de inúmeras vezes no evento OnTimer. Enfim, teste:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se