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")