[Pytanie] jak zrobi w delphi

[2187300]

żeby bot działał pod program

[romek76]

Musisz zlapac uchwyt okna np

 

To jest ukryta treść, proszę

• Zaloguj się
• lub
• Zarejestruj się

[2187300]

w JakasGra muszę napisać np hl.exe ?

i co dac w Uchwyt

[romek76]

Uchywyt jest to zmienna wiec ja zdeklaruj w sekcji var

 

Uchwytem dla cs czyli JakasGra bedzie chyba Counter-Strike o ile dobrze pamietam

[2187300]

podasz przykład? bo mi coś nie wychodzi

[kilo_kartofli]

Jak czytac pamiec procesu ?

Aby moc przeczytac pamiec procesu nalezy miec jego uchwyt, pozniej ustawic

go w tryb do odczytu i podac miejsce gdzie maja trafic dane przeczytane z

pamieci.

 

 

function ReadProcMem(var path,buf:PChar;length:integer):integer;

var ProcInf:TProcessInformation; //tutaj otrzymamy identyfikatory procesu i watku glownego

StartInf:TStartupInfo; //tutaj nieistotne

begin

fillchar(StartInf,sizeof(StartInf),0); //ta struktuta nie bedzie uzywana

fillchar(Buf,length,0); //czyscimy bufor

Result:=0;

CreateProcess(path,nil,nil,nil,false,0,nil,nil,StartInf,ProcInf); //tworzymy nowy proces

OpenProcess(PROCESS_VM_READ,false,ProcInf.dwProcessId); //otwieramy go z flaga do odczytu

ReadProcessMemory(ProcInf.hProcess,nil,Buf,length,result); //czytamy length bajtow z pamieci

TerminateProcess(ProcInf.hProcess,0); //wykanczmy proces z flaga wyjscia 0

end;

z innego forum

 

 

 

procedure TForm1.Button1Click(Sender: TObject);

 

var

cmdHandle : hWnd;

begin

cmdHandle := FindWindow('notepad',nil);

GetWindowThreadProcessId(cmdHandle, @pid);

end;

 

 

pid można się dowiedzieć z start->uruchom->cmd->tasklist