A1VBCode Forums / Classic Visual Basic (VB 6 or earlier) / General Visual Basic / Keyboard Hook / Latest Posts

RE: Keyboard Hook

DigiRev — Mon, 23 Aug 2004 20:35:18 GMT

I've never tried to hook the keyboard, I just used the GetAsyncKeyState() API function:

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

http://www.mentalis.org/apilist/GetAsyncKeyState.shtml for more info.

RE: Keyboard Hook

pso — Mon, 23 Aug 2004 17:21:47 GMT

I've tried to Impliment the Keyboard hook (class, form, module - oh my), into my own project, but get same results. I wonder if that Kimmel guy just gave enough info for an empty wrapper....

Here is the next best example I found on net:
+ = Keyboard Hook example that works.

RE: Keyboard Hook

DigiRev — Mon, 23 Aug 2004 05:48:34 GMT

This might be able to help you out a little.

http://www.mentalis.org/apilist/SetWindowsHookEx.shtml#

RE: Keyboard Hook

pso — Sun, 22 Aug 2004 23:54:56 GMT

From that link you gave at start thread...
"If the Code is 0 then we want to convert the lParam to the type we know it is, a KBDLLHOOKSTRUCT, handle the keyboard input, and return 1 to indicate that the input was handled."
try looking in that area.

Returning zero is 'good' using his special wrapper, but I think the problem is coming into how it is handled.
I'll check back here later.

Post back with resolve if/when it comes please.
I think you can get! Yes I do!

RE: Keyboard Hook

TallOne — Fri, 20 Aug 2004 21:02:36 GMT

Thanks but that didn't work either. It did get me a little excited for a couple of minutes though!

RE: Keyboard Hook

DigiRev — Fri, 20 Aug 2004 17:10:37 GMT

I think I know the problem.

You're not passing the ThreadID...like this:

Public Sub HookKeyboard()
KeyboardHandle = SetWindowsHookEx( _
WH_KEYBOARD_LL, AddressOf KeyboardCallback, _
App.hInstance, App.ThreadID

RE: Keyboard Hook

TallOne — Fri, 20 Aug 2004 14:56:12 GMT

Hey DigiRev,

Thanks for replying! This has been racking my brain for two days now! I shouldn't spend so much time on it, but if I could get this working I believe I could trap about any type of message. This code just happens to test for keyboard message

If (Code = HC_ACTION) Then 'Its a keyboard message

After it's trapped it's then passed on to windows or the next hook that's doing the same thing. Seems like a powerful technique to know!

All parameters in the function SetWindowsHookEx IS declared ByVal so I was doubtful.

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

But I tried it anyways like so..

Public Sub HookKeyboard()
KeyboardHandle = SetWindowsHookEx( _
WH_KEYBOARD_LL, AddressOf KeyboardCallback, _
App.hInstance, ByVal 0&......

And still NoGo! But thanks for trying.

RE: Keyboard Hook

DigiRev — Fri, 20 Aug 2004 03:16:14 GMT

Public Sub HookKeyboard()
KeyboardHandle = SetWindowsHookEx( _
WH_KEYBOARD_LL, AddressOf KeyboardCallback, _
App.hInstance, 0&

Try adding a "ByVal" before that "0&".

Keyboard Hook

TallOne — Thu, 19 Aug 2004 11:58:30 GMT

Hi Everybody,

I was reading an earlier thread about the start button being disabled. That sparked my interest, 'cause as a programmer I sure would like to be able to control the keyboard at any point in my application. The solution lead to an API(which from lack of knowledge makes me ill:sick So I go on my search to learn more about API and to create some reusable code to do the job. I found an article describing such code. But it doesn't seem to be working for me. I'm sure the problem rests between the keyboard and the back of my chair! If someone has the time would you go to this site and see if you can get this to work? Here's the site:

http://www.codeguru.com/vb/gen/vb_system/keyboard/article.php/c4829

It seems that SetWindowsHookEx in the following sub returns 0 for me every time

Public Sub HookKeyboard()
KeyboardHandle = SetWindowsHookEx( _
WH_KEYBOARD_LL, AddressOf KeyboardCallback, _
App.hInstance, 0&

Thus the following code is executed.

Debug.Print "Keyboard hook failed: " & Err.LastDllError

Also, as I'm a noobe in this area:

Can I Debug and StepInto such code?

In code listing at the end of the article, is ControlEscape the only key combination being blocked?

Is ControlEscape the same as the Windows Key(ya know the one between Ctrl and Alt)?

If someone's got the time I would be estatic!

TIA