Bana yardımcı olunişime yaradı sağol
işsiz olarak teker teker okudum reisGüncel Pointerları bulduysan ve kodlama biliyosan rahat kodlarsın
Ben sana örnek atayımKod:ADIM1-Envanter Hack Evet İlk Önce Bir Form açacağız.Açtıktan sonra hilenizi uygun bir büyüklüğe getirin.Şimdi malzemeleri ayarlayalım! Önce Yapacağımız Hile Envanter Hack! Kod: İhtiyacımız olanlar: 7 Tane Label 7 Tane Textbox 7 Tane Button Hepsini düzgün bir sıraya koyalım.Sonra kodlamaya baslayalım. Kodlayacağımız Tek şey butonlar aslında. Button 1'e kodlayacagımız şey: Kod: Dim val As String val = TextBox1.Text WriteInteger("wolftü.bin", &HWP1POİNT, val) "&H...." .... yazan yere pointeri yazıyoruz. Button 2 Kod: Dim val As String val = TextBox2.Text WriteInteger("wolftü.bin", &HWP1POİNT, val) Button 3 Kod: Dim val As String val = TextBox3.Text WriteInteger("wolftü.bin", &HWP1POİNT, val) Button 4 Kod: Dim val As String val = TextBox4.Text WriteInteger("wolftü.bin", &HWP1POİNT, val) Button 5 Kod: Dim val As String val = TextBox5.Text WriteInteger("wolftü.bin", &HWP1POİNT, val) Button 6 Kod: Dim val As String val = TextBox6.Text WriteInteger("wolftü.bin", &HWP1POİNT, val) Button 7 Kod: Dim val As String val = TextBox1.Text WriteInteger("wolftü.bin", &HWP1POİNT, val) Envanter Hack Tamamdır Gulumseme.Sıradaki Hilemize geçelim. ADIM2-BASE HACK Evet Malzemeleri Gösterelim: 1 Tane Timer 1 Tane Checkbox Timer'in özellikleri: Adını "base" yapalım Invertal:1 Enabled:False Neden False? Çünkü True Yaparsak checkboxu aktifleştirmeden çalışır.Ancak false yaparsak biz istediğimizde çalışır. Evet,Şimdi Checkbox'a yazacagımız şey: Kod: If Checkbox1.Checked= True Then base.Start Else If Checkbox1.Checked= False Then base.Stop End If End If Bunu Checkbox'a yazıyoruz.Şimdi sıra Timer'da. Yazacağımız şey şu: Kod: If (GetAsyncKeyState(Keys.F1)) Then WriteInteger("wolftü.bin", &HBASEPOİNT, "2") End If Şimdi Şu kısma Şunu Yapıştırıyoruz.(Kodların yazıldıgı yerin en üstünde) Kod: <Runtime.InteropServices.DllImport("user32.dll")> _ Public Shared Function GetAsyncKeyState(ByVal vKey As System.Windows.Forms.Keys) As Short End Function Base Hack Tamamdır.TUŞ:F1 ADIM3-DİĞER HİLELERİN KODLANMA ŞEKLİ Şimdi bu adımda herşeyi öğreneceksiniz.Örneğin sınırsız kurt topu,no recoil,çanta hack,Yeşil oda,öğretici,crosshair vb... MALZEMELER: 1 CHECKBOX 1 TİMER Özellikleri adı sınırsızkurttopu invertal:1 enabled:false Öncelikle Checkbox'a şunu yazıyoruz.(2. Checkbox dikkat) Kod: If Checkbox2.Checked= True Then sınırsızkurttopu.Start Else If Checkbox2.Checked= False Then sınırsızkurttopu.Stop End If End If Diğer Tüm Hileler Böyle Kodlanır.2'Sİ VE OFFSETLER HARİÇ! ADIM4-MOD VE KURT HACK! Bu da Son Adım.Mod ve Kurt Hack.VB.Net de kodlanması en sabırlı iş. Neyse MALZEMELER: 2 Combobox 4 Timer(2 Mod 2 Kurt Yapacağım.)(Özellikler aynı yukardakiler gibi) 2 Button Şimdi,Moddan Başlayalım. Olum oyunu ve kurt avı yapalım. OLUM OYUNU VALUE:4 KURT AVI D VALUE:20 timer1 in ismini olum,2 nin ismini kurtavi koyalım. Combobox1'e da seçenekler olarak; "OLUM OYUNU KURT AVI D" yazalım. Şimdi,Geliyoruz en zahmetli işe. Button 1 E Soyle yazın Kod: If Combobox1.Text= "OLUM OYUNU" Then olum.Start Else olum.stop End If Sonra onun altına soyle yazıyoruz: Kod: If Combobox1.Text= "KURT AVI D" Then kurtavi.start Else kurtavi.stop End If olum timerina yazacağımız: WriteInteger("wolftü.bin", &HMODPOİNT, "4") kurtavid timerina: WriteInteger("wolftü.bin" &HMODPOİNT, "20") MOD HACK TAMAM.Sırada Kurt Hack. Yapıcaklarım:Özel(M)(VAL15),Özel(K)(VAL16) timer isimleri:ozelm,ozelk Combobox2 ye yazıcaklarımız: Özel Mavi Özel Kırmızı Şimdi,butona şöyle yazıyoruz; Kod: If Combobox2.Text= "Özel Mavi" Then ozelm.start Else ozelm.stop Onun altına; Kod: If Combobox2.Text= "Özel Kırmızı" Then ozelk.start Else ozelk.stop sonra ozelm timerina WriteInteger("wolftü.bin", &HKURTPOİNT, "15") ozelk timerina WriteInteger("wolftü.bin", &HKURTPOİNT, "16")