KODLARI İNDİR=
Bağlantıları görmek için lütfen
Giriş Yap
ReadWritingMemory.Vb=
Bağlantıları görmek için lütfen
Giriş Yap
WritePointerInteger.Vb=
Bağlantıları görmek için lütfen
Giriş Yap
WOLF YGN D3D HACK KODLAMA=
Bağlantıları görmek için lütfen
Giriş Yap
+1 REP'TEN NE ZARAR GELİRKİ
1.= 2 Tane Timer Açın
2.= 2 Timerinin Enabled'ini True Yapın
3.= Form 1 Black Olacak
4.= 6 Tane Label Açın
5.= Label1'İ Red Olacak
6.= Label2 ve Label6 White Olacak
7.= Label3,Label4 Ve Label5 Red Ve İsimleri [OFF] Olucak
8.= ReadWritingMemory Ve WritePointerInteger
Koymayı Unutmayın
Kod:
[Public Class Form1] Altına Gelecek Kod
--------------------------------------------------------------------------------------
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Kod:
Aşşağı Tuşun Çalışması İçin Kod Timer1'e Gelicek
------------------------------------------------
If GetAsyncKeyState(Keys.Down) = -32767 Then
If Label1.ForeColor = Color.Red Then
Label1.ForeColor = Color.White
Label2.ForeColor = Color.Red
Exit Sub
End If
If Label2.ForeColor = Color.Red Then
Label2.ForeColor = Color.White
Label6.ForeColor = Color.Red
Exit Sub
End If
If Label6.ForeColor = Color.Red Then
Label6.ForeColor = Color.White
Label1.ForeColor = Color.Red
Exit Sub
End If
End If
Kod:
Yukarı Tuşun Çalışması İçin Kod Timer1'e Gelicek
------------------------------------------------
If GetAsyncKeyState(Keys.Up) = -32767 Then
If Label1.ForeColor = Color.Red Then
Label1.ForeColor = Color.White
Label6.ForeColor = Color.Red
Exit Sub
End If
If Label2.ForeColor = Color.Red Then
Label2.ForeColor = Color.White
Label1.ForeColor = Color.Red
Exit Sub
End If
If Label1.ForeColor = Color.Red Then
Label1.ForeColor = Color.Red
Exit Sub
End If
If Label6.ForeColor = Color.Red Then
Label6.ForeColor = Color.White
Label2.ForeColor = Color.Red
Exit Sub
End If
If Label2.ForeColor = Color.Red Then
Label2.ForeColor = Color.Red
End If
End If
Kod:
Sağ Tuşa Basıp [ON] Olması İçin Kod Timer2'Ye Gelicek
-----------------------------------------------------
If GetAsyncKeyState(Keys.Right) = -32767 Then
If Label1.ForeColor = Color.Red Then
Label3.ForeColor = Color.White
Label3.Text = "[ON]"
Exit Sub
End If
If Label2.ForeColor = Color.Red Then
Label4.ForeColor = Color.White
Label4.Text = "[ON]"
Exit Sub
End If
If Label6.ForeColor = Color.Red Then
Label5.ForeColor = Color.White
Label5.Text = "[ON]"
Exit Sub
End If
End If
Kod:
Sol Tuşa Basıp [OFF] Olması İçin Kod Timer2'Ye Gelicek
-----------------------------------------------------
If GetAsyncKeyState(Keys.Left) = -32767 Then
If Label1.ForeColor = Color.Red Then
Label3.ForeColor = Color.Red
Label3.Text = "[OFF]"
Exit Sub
End If
If Label2.ForeColor = Color.Red Then
Label4.ForeColor = Color.Red
Label4.Text = "[OFF]"
Exit Sub
End If
If Label6.ForeColor = Color.Red Then
Label5.ForeColor = Color.Red
Label5.Text = "[OFF]"
Exit Sub
End If
End If
