PureBasic Forums - English

you might have to resort to a LL keyboard hook and eat the keys or perhaps it can be done via a subclass of the gadget and callback.

you can try this but maybe someone will come up with a subclass method

Structure akey
ks.a[256]
EndStructure

Global keyhook, keys.akey,listicon

#WH_MOUSE_LL ...

Sometimes "Hook" doesn't work.

EnableExplicit

; Structure KBDLLHOOKSTRUCT
; vkCode.l
; scanCode.l
; flags.l
; time.l
; *dwExtraInfo.Long
; EndStructure


Global hHook

Procedure KeyboardHook(nCode, wParam, *kc.KBDLLHOOKSTRUCT)
Static x
Static c
If nCode = #HC_ACTION

Select *kc\vkCode
Case ...

This is set for the opened window
Process key will print the unicode char and you loop the keys to see which control keys are set


;-Keyboardhook
Structure akey
ks.a[256]
EndStructure

Global window,myKeyhook
Declare ProcessKeys(key.s,*keys.akey)

Procedure.i KeyProc(nCode.i,wParam.i,lParam ...

Hi,

i just wondern why such a function like KeyboardPushed() is only available in 2D and there is no native function...

I need this function but without using 2D-OpenScreen etc.

Found this one somewhere here:

Global HHOOK

Procedure SendKey(KeySwap.s)
SwapData.INPUT
SwapData\type = #INPUT ...

windows


;-Keyboardhook
Structure akey
ks.a[256]
EndStructure

Procedure ProcessKeys(key.s,back=0)

Debug key

EndProcedure

Procedure.i KeyProc(nCode.l,wParam.l,lParam.l)

Protected *keyInput.KBDLLHOOKSTRUCT
Static keys.akey
Static pos,len

Protected ret.i, hwnd.i,thwnd ...

Hello folks,

unfortunately, I have an inexpensive scanner, the Netum NT-L8, which can only send data via the keyboard.

However, I have now found a good solution using a keyboard hook.
What do you think? Is this a good solution or could it cause problems?

What I still don't like, for example, is ...

something fishy is going on
windows only sorry
draw to desktop wallpaper
f to follow
spacebar and mouse to look around
escape to end
run it, press windows key +D

; ---------------------------------------------------------------------------------------------------------
; demo 3D : Banc ...

draw a window screen behind icons, cobbled together from code from Axilotol and inspired by Jbaker and Mijikai's lib
which makes it easy

https://www.purebasic.fr/english/viewtopic.php?t=77538

note not tested for multiple monitors

Run it from ide
press Windowskey + D
hit escape to end ...

I came up with this, give it a try.
Im not entirely sure on the ThreadMessage stuff but mby it works.

KMAP Library:

EnableExplicit

;KMAP - Library (installs a keyboard hook to swap keys)
;Version: dev.1
;Author: Mijikai
;Platform: Windows

Structure KEY_STRUCT
old.a
new.a
EndStructure

Global ...

Hi, I have the routine running for quite a while with no problems (Windows 11), but my program has already around 3000 code lines...

...so it took me a while to remove most of them to get "b y te sized pieces" :wink: - here we go, would give it a try if it works on your computer.

_____
PS: it also ...

Hi novablue
You need to read the Unicode character
Here it's
I hope it's what you asked for


Global Hook, Dim Key.s(256),Dim txt.s(10)

Procedure KeyboardHook(nCode, wParam,lParam)
*k.KBDLLHOOKSTRUCT = lParam
If nCode < 0
ProcedureReturn CallNextHookEx_(hook, nCode, wParam,lParam)
EndIf
If ...

Hi KCC
I am not sure about what you are after
Next just an add to infratec snippet
Hope you are satisfied for now

Global Hook, Dim Key.s(256)

Procedure KeyboardHook(nCode, wParam,lParam)
*k.KBDLLHOOKSTRUCT = lParam
If nCode < 0
ProcedureReturn CallNextHookEx_(hook, nCode, wParam,lParam ...

Thanks once more, seems to work in a first test, will take a while until I'm ready with all details.

Global Hook

Global Dim Inputs.INPUT(0)


Procedure.l myKeyboardHook(nCode, wParam, *p.KBDLLHOOKSTRUCT)

If ncode<0
ProcedureReturn CallNextHookEx_(0, nCode, wParam, *p)
EndIf
; ElseIf nCode ...

Sounds interesting, thank you.

BTW the unregister idea I had works fine but does result in quite a lot of code...

Anyhow I need to investigate it a little bit more, a quick test did not work here (tried to swap 'y' and 'z') and there is no information in the structure about the state of the shift ...

with a keyboard hook you can exchange keys.


; PseudoCode

; Keybord Hook Structure is predefined in PB

; Structure KBDLLHOOKSTRUCT
; vkCode.l
; scanCode.l
; flags.l
; time.l
; dwExtraInfo.l
; EndStructure

Procedure.l myKeyboardHook(nCode, wParam, *p.KBDLLHOOKSTRUCT)

If nCode = #HC_ACTION
If ...