Anasayfa > Kodlar > Delphi ile basit trainer yapımı

Delphi ile basit trainer yapımı


Gelin Delphi İle Oyunlara Trainer yapalım :)

// Başta şunu söylemem gerekir . Bunu yazmak için trainer hakkında geniş bilgi almanız gerekir . Fakat O Vbasic için temel şeyler içinde  . Tmm Tmm Başlıyorum


Foruma 1 Button ekliyoruz .

procedure TForm1.Button1Click(Sender: TObject);
var
WindowName : integer;
ProcessId : integer;
ThreadId : integer;
buf : pchar;
HandleWindow : Integer;
write : cardinal;
const
WindowTitle = 'Minesweeper';  // Pencere Adı
begin
WindowName := FindWindow(nil,WindowTitle);
If WindowName = 0 then // Oyun acık değilse
begin
MessageDlg('Oyun Açık Değil', mterror,[mbOK],0); //
end;
ThreadId := GetWindowThreadProcessId(WindowName,@ProcessId); //Gets the thread process ID of the window's caption.
HandleWindow := OpenProcess(PROCESS_ALL_ACCESS,False,ProcessId); //Opens the game process and stores the handle in HandleWindow.
GetMem(buf,1);
buf^ := Chr($90); // Sets the value of buf to 90(Hex).
WriteProcessMemory(HandleWindow,ptr($400000),buf,1,write);// Writes the value of buf to address 400000.
FreeMem(buf); // Resets buf.
CloseHandle(HandleWindow); // Closes the game handle.
end;

end.

evet bu sadece bir değeri değiştiriyor . Trainer eğlencelidir tabi yapanlar için .  Hayırlı Kodlar  Geniş açıklamayı daha sonra ekleyeceğim...


TD Software


Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Yanıt Bırakın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: