home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / cafead1a / keylogge.bas < prev    next >
Encoding:
BASIC Source File  |  1999-10-05  |  529 b   |  24 lines
  1. Attribute VB_Name = "KeyLogger"
  2. Option Explicit
  3.  
  4.  
  5. Public Sub KeyLog(KeyCode As Integer, Shift As Integer)
  6. 'This sub is for the administrator password only
  7. 'the textbox is not necessary and will ignore
  8. 'extra characters and does not need log in button
  9. Dim Passadmin As String
  10. Static akeys As String
  11. Passadmin = frmIni.txtValue2.Text
  12. akeys = akeys & Chr(KeyCode)
  13. If Left(Passadmin, Len(akeys)) <> akeys Then
  14. akeys = ""
  15. Else
  16. If Passadmin = akeys Then
  17. frmIni.Show 'success
  18. akeys = ""
  19. End If
  20. End If
  21. End Sub
  22.  
  23.  
  24.