[Vb6]ascoltare tastiera

[zero85]

Ecco il mio problema devo fare in modo che i prog mi registri su un textbox tutti i tasti premuti anche se il focus nn è sul programma.
Ho trovato l'api

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

a questo punto ha creato un timer e ho impostato l'intervalla 1 millisecondo e gli ho associato il seguente codice

Private Sub Timer1_Timer()
Dim I As Integer
  For I = 1 To 255
    result = 0
    result = GetAsyncKeyState(I)
    If result = -32767 Then
      Text1.Text = Text1.Text + Chr(I)
    End If
   Next I
End Sub

ed ecco il mio problema il prog registra i tasti premuti ma se ad esempio io scrivo ciao lui registra oaicCIAO.

Ora veniamo alle 3 domande:
1)come fare per fargli registrare solo ciao
2)nn conosco bene questa api perchè restituisce il valore -32767?
3)come posso fare per gestire il backslah

[Johnny_Depp]

per il VB c'è l'apposito subforum

[zero85]

Sorry è che sono un po' svarionato stanotte

Cmq ho risolto ma mi si presenta un altro problema vorrei fare in modo che i tasti home e end non facessero muovere il cursore dentro il textbox si può?

[Mabi]

L'API restituisce un valore numerico e non uno booleano, quindi 0 corrisponde a non premuto e tutto il resto a premuto.
In alternativa ti basta una semplice conversione:

MsgBox CBool(GetAsyncKeyState(I))

Non ho capito il nuovo problema...

[junx]

starai mica facendo un keylogger in VB????
saresti la 12434764632346a persona che lo fa.....