İnsert ile hile nasıl açılır yardım pls .?

Arkadaşlar öncelikle selamun aleyküm dword hack gibi inserte basarak nasıl hile kodlanılıyor söylermisiniz?

Form1"'in Özellikleri ;
ShowIcon = False
FormBorderStyle = None
BackColor = Black
Sıralaması olsun
[CrossHair] - > Label 1
[Sınırsız Kurt Topu - > Label 2
[Combo Hilesi] - > Label 3
Üç tanede bunkarın yanına durumunu belirtmek için lazım yani ;
[OFF] - > Label 4
[OFF] - > Label 5
[OFF] - > Label 6
gibi. Şimdi 1. Label "ForeColor"' u "Blue" olsun 2 ve 3 ki ise "Yellow" olsun. Label 4, 5 ve 6 nın ki ise "red" olsun.
Şimdi menümüzün tasarımı tamam sıra da Timer lar var. Toplamda 6 Timer'e ihtiyacımız var. Açıklaması;
Timer1 - > Menüde aşağı ve yukarı hareket etmemizi sağlaması için lazım.
Timer2 - > Yine menüde sağa ve sola yani özelliklerimizi açmamıza ve kapamamıza yarayacak.
Timer3 - > Oyun içi "CrossHair" hilesinin kodları yazılacak.
Timer4 - > Bunada "Sınırsız Kurt Topu" hilesinin kodları yazılacak.
Timer5 - > Tabiki buna da "Combo Hilesi" nin kodları yazılacak.
Timer6 - > Oyunda hilemizin gözükmesini sağlayacak.
Timer 3, 4 ve 5'in "Enabled" leri "False" olacak. 1, 2 ve 6'nın ise "True" olması lazım.
------------------------- Bölüm - 2 ---------------------------
Fazla söze gerek yok. Hemen "ReadWritingMemory.vb" dosyasını hilemize okutmalıyız.
Sol Yukarıdan "Project" > "Add Exiting Item..." > "ReadWritingMemory.vb" dosyasını gösteriniz ve "add"
butonuna tıklayınız.
Güncel wolftü Adresleri ;
CrossHair : 3463F348 Valuesi = 99 , 20 ... İstediğinizi yapabilirsiniz.
Sınırsız Kurt Topu : 346ECB0 Valuesi = 1
Combo Hilesi : 3463EB24 Valuesi = Siz kaçlı yapmak isterseniz bence 99
Şimdi 3, 4 ve 5. Timerlardan başlayalım.
Timer3 (CrossHair) Kodları =Kod:

WriteInteger("wolftü.bin", &H3453F348, 20)

Timer4 (Sınırsız Kurt Topu) Kodları =Kod:

WriteInteger("wolftü.bin", &H3463ECB0, 1)

Timer5 (Combo Hilesi) Kodları =Kod:

WriteInteger("wolftü.bin", &H3463EB24, 99)

Siz isterseniz başka hileler hatta başka oyunlarda yapabilirsiniz tanımını yapmak gerekirse ;
WriteInteger("Oyun Pencere İsmi", &H Adres Yeri , Valuesi, Mesela Scor: 99999999 Olsun gibi)
Yavaşça Menünün kodlamasına başlayalım
Timer6'nın kodları : Elle yazmanızı tavsiye ederim.
Kod:

Try
Interaction.AppActivate("Wolft eam.bin")
Me.TopMost = True
Catch
Me.TopMost = True
End Try
System.Windows.Forms.Cursor.Hi de()

ve "Public Class Form1" in altına:
Private Declare Function GetAsyncKeyState Lib "user32 (ByVal vKey As Long) As Integer
yapıştıralım.
Timer1 ' nın kodları :
Kod:

' aşağı tuşunun çalışması için
'-------------------başla-------------------
If GetAsyncKeyState(Keys.Down) = -32767 Then
If Label1.ForeColor = Color.Blue Then
Label1.ForeColor = Color.Yellow
Label2.ForeColor = Color.Blue
Exit Sub
EndIf
If Label2.ForeColor = Color.Blue Then
Label2.ForeColor = Color.Yellow
Label3.ForeColor = Color.Blue
Exit Sub
End If
If Label3.ForeColor = Color.Blue Then
Label3.ForeColor = Color.Blue
Label1.ForeColor = Color.Yellow
End If
End If
'----------------------bitiş-------------------
' yukarı tuşunun çalışması için
'-------------------başla-------------------
If Label1.ForeColor = Color.Blue Then
Label1.ForeColor = Color.Yellow
Label3.ForeColor = Color.Blue
End If
If Label2.ForeColor = Color.Blue Then
Label2.ForeColor = Color.Yellow
Label1.ForeColor = Color.Blue
End If
If GetAsyncKeyState(Keys.Up) = -32767 Then
If Label3.ForeColor = Color.Blue Then
Label3.ForeColor = Color.Yellow
Label2.ForeColor = Color.Blue
Exit Sub
End If
End If
'----------------------bitiş-------------------

bu kodlarda bu kadar. Şimdi Timer2'ye geçmeden önce hilemizi
kapatma ve gizleme tuşlarının olmasını istiyorsanız hemen yeni bir Timer ekleyin. Kodları da şöyle olacak ;
Timer7'nin kodları
Kod:

If GetAsyncKeyState(Keys.Insert) = -32767 Then
If Label1.Visible = False Then
Label1.Visible = True
Me.Show()
Exit Sub
End If
If Label1.Visible = True Then
Label1.Visible = False
Me.Hide()
Exit Sub
End If
End If
If GetAsyncKeyState(Keys.Delete) = -32767 Then
Application.Exit()
Exit Sub
End If

----->
Burada [DELETE] tuşu hileyi kapatırken [INSERT] tuşu ise gizlemenizi ve yeniden açmanızı sağlar şimdi Timer2'nin kodlarına geçebiliriz.
Timer2' nin kodları :
Kod:

' sağ tuşunun çalışması için
'-------------------başla-------------------
If GetAsyncKeyState(Keys.Right) = -32767 Then
If Label1.ForeColor = Color.Blue Then
Label4.ForeColor = Color.Green
Label4.Text = "[ON]"
Timer3.Enabled = True
Exit Sub
End If
If Label2.ForeColor = Color.Blue Then
Label5.ForeColor = Color.Green
Label5.Text = "[ON]"
Timer4.Enabled = True
Exit Sub
End If
If Label3.ForeColor = Color.Blue Then
Label6.ForeColor = Color.Green
Label6.Text = "[ON]"
End If
End If
'----------------------bitiş-------------------
' sol tuşunun çalışması için
'-------------------başla-------------------
If GetAsyncKeyState(Keys.Left) = -32767 Then
If Label1.ForeColor = Color.Blue Then
Label4.ForeColor = Color.Red
Label4.Text = "[OFF]"
Timer3.Enabled = False
Exit Sub
End If
If Label2.ForeColor = Color.Blue Then
Label5.ForeColor = Color.Red
Label5.Text = "[OFF]"
Timer4.Enabled = False
Exit Sub
End If
If Label3.ForeColor = Color.Blue Then
Label6.ForeColor = Color.Red
Label6.Text = "[OFF]"
Timer5.Enabled = False
End If
'----------------------bitiş-------------------
End If

[font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif]If GetAsyncKeyState(Keys.Insert) = -32767 Then[/FONT]
[font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif]If Label1.Visible = False Then[/FONT]
[font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif]Label1.Visible = True[/FONT]
[font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif]Me.Show()[/FONT]
[font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif]Exit Sub[/FONT]
[font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif]End If[/FONT]
[font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif]If Label1.Visible = True Then[/FONT]
[font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif]Label1.Visible = False[/FONT]
[font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif]Me.Hide()[/FONT]
[font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif]Exit Sub[/FONT]
[font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif]End If[/FONT]
[font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif]End If[/FONT]
[font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif]If GetAsyncKeyState(Keys.Delete) = -32767 Then[/FONT]
[font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif]Application.Exit()[/FONT]
[font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif]Exit Sub[/FONT]
[font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif]End If[/FONT]