4 Adet Label İle 2 Tane Timer Ekliyoruz Timerlerin Enabled leri True Yaplım.
Sonra Label 1 E İ Hilenin Adını Örn: İ WallHack: İ Sonra Label 2 YEEDE Aynı Şekilde 2. Hile Adını Yazıyoruz Label 3 Ve 4 ede [OFF] Yazıyoruz Ve Label 1 in Rengini " Orange " Yapıyoruz yani Fore Color a Orange Yazıp Enter Yapıyoruz Label 2 Ninkinide " White " Yapıyoruz Label 3 ve 4 Ünkünüde " Red " Yapıyoruz.
Ve Bu Kodları Direk Kopyalıyoruz Ve Projeye Dönüp Kod Yerindeki Herşeyi Silip Bunu Yapıştırıyoruz Hile Kodunuda Kodların En Altındaki
Label4.Text = "[OFF]"
'Buraya Hile Kodunu Yazın.
Exit Sub
Kodları Böyle Yapıyoruz.
Kod:
Public Class Form1
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Try
Interaction.AppActivate("Wolfteam.bin")
Me.TopMost = True
Catch
Me.TopMost = True
End Try
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
If GetAsyncKeyState(Keys.Down) = -32767 Then
If Label1.ForeColor = Color.Orange Then
Label1.ForeColor = Color.White
Label2.ForeColor = Color.Orange
Exit Sub
End If
If Label2.ForeColor = Color.Orange Then
Label2.ForeColor = Color.Orange
Exit Sub
End If
End If
If GetAsyncKeyState(Keys.Up) = -32767 Then
If Label2.ForeColor = Color.Orange Then
Label2.ForeColor = Color.White
Label1.ForeColor = Color.Orange
Exit Sub
End If
If Label1.ForeColor = Color.Orange Then
Label1.ForeColor = Color.Orange
End If
End If
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
End Sub
Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
If GetAsyncKeyState(Keys.Right) = -32767 Then
If Label1.ForeColor = Color.Orange Then
Label3.ForeColor = Color.White
Label3.Text = "[ON]"
Exit Sub
End If
If Label2.ForeColor = Color.Orange Then
Label4.ForeColor = Color.White
Label4.Text = "[ON]"
Exit Sub
End If
End If
If GetAsyncKeyState(Keys.Left) = -32767 Then
If Label1.ForeColor = Color.Orange Then
Label3.ForeColor = Color.Red
Label3.Text = "[OFF]"
Exit Sub
End If
If Label2.ForeColor = Color.Orange Then
Label4.ForeColor = Color.Red
Label4.Text = "[OFF]"
Exit Sub
End If