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


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

Bir Cevap Yazı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: