Henüz Üye Olmadıysan, Hemen Üye Olabilirsin !
Kayıt OL!  

Seri Upgrade Bot Oyundan Çıkmadan - [Steam] - [USKO]
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
 
[Source] Delphi ile Koxp Yapımı 2. Bölüm

#1
Memory' den değer okuma ve yazma delphi. Rad studio 10.1

OPEN SOURCE FOREVER  Heart 


Kod:
unit Unit1;

interface

uses
 Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
 Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ComCtrls;

type
 TForm1 = class(TForm)
   Edit1: TEdit;
   Button1: TButton;
   StatusBar1: TStatusBar;
   GroupBox1: TGroupBox;
   Button2: TButton;
   Label1: TLabel;
   Label2: TLabel;
   Label3: TLabel;
   Label4: TLabel;
   CheckBox1: TCheckBox;
   procedure Button2Click(Sender: TObject);
   procedure Button1Click(Sender: TObject);
   procedure CheckBox1Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;
 KO_HANDLE: THandle;
 hwnd : Cardinal;
 pid : Cardinal;





implementation

{$R *.dfm}




Function ReadMemory(memaddr : DWORD):DWORD;
var
ResultMemory : DWORD;
numberofbytes : SIZE_T;
begin
ReadProcessMemory(KO_HANDLE,Pointer(memaddr),@ResultMemory,4,numberofbytes);
Result:= ResultMemory;
end;



procedure WriteMemory(memaddr: DWORD; memval : DWORD);
var
numberofbytes : SIZE_T;
begin
WriteProcessMemory(KO_HANDLE,Pointer(memaddr),@memval,4,numberofbytes);
end;


Function OyunaBaglan(KOCaptionu : AnsiString): Boolean;
begin
hwnd := FindWindow(nil,PWideChar(Form1.Edit1.Text));
GetWindowThreadProcessId(hwnd,pid);
if pid >  0 then begin
KO_HANDLE := OpenProcess(PROCESS_ALL_ACCESS,False,pid);
Form1.StatusBar1.Panels[1].Text := 'Bağlandı.';
Result:= True;
end;

end;







procedure TForm1.Button1Click(Sender: TObject);
begin
OyunaBaglan(Edit1.Text);

end;

procedure TForm1.Button2Click(Sender: TObject);
var
KarakterHP : DWORD;
KarakterMP : DWORD;
begin

KarakterHP:= ReadMemory(ReadMemory($00DF87E4) + $006BC);
KarakterMP:= ReadMemory(ReadMemory($00DF87E4) + $00B60);

Label3.Caption := IntToStr(KarakterHP);
Label4.Caption := IntToStr(KarakterMP);




end;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin

if CheckBox1.Checked then
begin
WriteMemory(ReadMemory($00DF87E4) + $006C0,0);
end
else
WriteMemory(ReadMemory($00DF87E4) + $006C0,1);
end;




end.




VPv3zB.png




Source dosyası: 

Linkleri Görüntüleyebilmek için BURAYA TIKLAYIN Veya Kayıt Olun eğer kayıtlı iseniz Giriş Yapın Eğer Kayıt Olduysanız ve Bu Yazıyı Hala Görüyorsanız Üyeliğinizi Aktifleştirmeyi Unutmuşsunuz !...
zhavia-welcome-to-the-party-grungecake.gif
Cevapla

#2
çok iyi

yeni derslerde source yi geliştirerek ilerlerseniz süper olur.
Ara
Cevapla

#3
(10-12-2016, Saat: 20:07)toyty Adlı Kullanıcıdan Alıntı: Linkleri Görüntüleyebilmek için BURAYA TIKLAYIN Veya Kayıt Olun eğer kayıtlı iseniz Giriş Yapın Eğer Kayıt Olduysanız ve Bu Yazıyı Hala Görüyorsanız Üyeliğinizi Aktifleştirmeyi Unutmuşsunuz !...çok iyi

yeni derslerde source yi geliştirerek ilerlerseniz süper olur.

Oyuna Komut Göndermek - Gelen - Giden Komutlara göre işlem yapmak v.s v.s gelişecek Smile
zhavia-welcome-to-the-party-grungecake.gif
Cevapla

#4
(10-12-2016, Saat: 20:21)RAS90 Adlı Kullanıcıdan Alıntı: Linkleri Görüntüleyebilmek için BURAYA TIKLAYIN Veya Kayıt Olun eğer kayıtlı iseniz Giriş Yapın Eğer Kayıt Olduysanız ve Bu Yazıyı Hala Görüyorsanız Üyeliğinizi Aktifleştirmeyi Unutmuşsunuz !...
(10-12-2016, Saat: 20:07)toyty Adlı Kullanıcıdan Alıntı: Linkleri Görüntüleyebilmek için BURAYA TIKLAYIN Veya Kayıt Olun eğer kayıtlı iseniz Giriş Yapın Eğer Kayıt Olduysanız ve Bu Yazıyı Hala Görüyorsanız Üyeliğinizi Aktifleştirmeyi Unutmuşsunuz !...çok iyi

yeni derslerde source yi geliştirerek ilerlerseniz süper olur.

Oyuna Komut Göndermek - Gelen - Giden Komutlara göre işlem yapmak v.s v.s gelişecek Smile

Bi şey dikkatimi çekti

 title inject yapmışsınız vb deki gibi bunda da .dll inject olmuyor mu yoksa merak ettim . Belki de ilerleyen derslerde görürüz Big Grin
Tekrardan teşekkürler  yeni dersi sabırsızlıkla bekliyorum Big Grin
Ara
Cevapla

#5
(10-12-2016, Saat: 23:27)toyty Adlı Kullanıcıdan Alıntı: Linkleri Görüntüleyebilmek için BURAYA TIKLAYIN Veya Kayıt Olun eğer kayıtlı iseniz Giriş Yapın Eğer Kayıt Olduysanız ve Bu Yazıyı Hala Görüyorsanız Üyeliğinizi Aktifleştirmeyi Unutmuşsunuz !...
(10-12-2016, Saat: 20:21)RAS90 Adlı Kullanıcıdan Alıntı: Linkleri Görüntüleyebilmek için BURAYA TIKLAYIN Veya Kayıt Olun eğer kayıtlı iseniz Giriş Yapın Eğer Kayıt Olduysanız ve Bu Yazıyı Hala Görüyorsanız Üyeliğinizi Aktifleştirmeyi Unutmuşsunuz !...Oyuna Komut Göndermek - Gelen - Giden Komutlara göre işlem yapmak v.s v.s gelişecek Smile

Bi şey dikkatimi çekti

 title inject yapmışsınız vb deki gibi bunda da .dll inject olmuyor mu yoksa merak ettim . Belki de ilerleyen derslerde görürüz  Big Grin
Tekrardan teşekkürler  yeni dersi sabırsızlıkla bekliyorum Big Grin

dll de yapabilirsin delphi ile pek fark yok
zhavia-welcome-to-the-party-grungecake.gif
Cevapla

#6
Delphi ilgimi çekiyor ama gerek az kaynak gereksede c++ başlayıp ögrenmeden başka bir adim atmak istemem..Eline saglık devamini bekleriz..
Ara
Cevapla

#7
C++ ya baş koydum üstat şimdi tahrik etme beni Smile
Kendinize Bir Gerçeklik Payı Yaratamazsanız, Yaşayamazsınız.!
Ara
Cevapla

#8
aga özel mesaj atamadım sana bana ulaşırmışın
Ara
Cevapla

#9
@ras90
konu onaylanmıstır Big Grin
ugrasmıssın elıne koluna saglık vıdeo beklıyoruz Big Grin
Ara
Cevapla

#10
Emek için teşekkürler. Yeni konular gelecek mi acaba?
Ara
Cevapla



Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Delphi Pattern Scan & Signature Scan xMuratY 5 723 24-05-2017, Saat: 20:11
Son Yorum: #SiyahS4ncak
  Delphi GetModuleBaseAddress / Delphi Modül Base Adresi Alma xMuratY 0 571 22-04-2017, Saat: 01:56
Son Yorum: xMuratY
  Delphi dll game hack dersleri [Anket] xMuratY 2 837 28-03-2017, Saat: 20:15
Son Yorum: TheJackal
  Delphi Socket ile Ping Atma ve Sunucu Durumunu Kontrol Etme SuperVisor 0 772 27-02-2017, Saat: 07:27
Son Yorum: SuperVisor
  Delphi DLL Embed Vcl Style xMuratY 1 709 31-01-2017, Saat: 16:46
Son Yorum: SuperVisor

Hızlı Menü:


Konuyu Okuyanlar:
2 Ziyaretçi


Forumdc.org Since 2016