Seite 1 von 2
Globaler Keyboard Hook (Win32)
Verfasst: 03.11.2004 16:52
von real
Hallo,
könnte mir von Euch jemand ein Sample zur Verfügung stellen, wie ich einen globalen Keyboard Hook (Hauptprogramm + shared Library) zu programmieren habe. Möchte ein Programm schreiben, dass (egal ob das dazugehörige Fenster aktiv ist oder nicht) die Windows-Sondertaste deaktiviert bzw. erstmal nur einen einfachen Ton (Beep_) bei Druck ausgibt. Alle meine Versuche scheiterten leider bis dato (trotz der Hook-Ansätze in diesem und im englischen Forum).
Dank & Gruß
René
Verfasst: 03.11.2004 18:42
von NicTheQuick
Hier ist genau das, was du suchst, bloß ohne [c]Beep_()[/c]. Der Originalquelltext kommt von Danilo. Ich habe ihn lediglich abgeändert.
Code: Alles auswählen
;
; by Danilo, 07.04.2003 - german forum
;
Global hWindow,msg,hook
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 wParam = #WM_KEYDOWN Or wParam = #WM_SYSKEYDOWN Or wParam = #WM_KeyUp Or wParam = #WM_SYSKEYUP
#LLKHF_ALTDOWN = $20
If *p\vkCode = #VK_LWIN Or *p\vkCode = #VK_RWIN
ProcedureReturn 1
EndIf
EndIf
EndIf
ProcedureReturn CallNextHookEx_(0, nCode, wParam, *p)
EndProcedure
Procedure AskForExit()
If MessageRequester("EXIT", "End the KeyboardHook ??",#MB_YESNO) = #IdYes
UnhookWindowsHookEx_(hook) : End
EndIf
EndProcedure
; Win NT
#WH_KEYBOARD_LL = 13
hook = SetWindowsHookEx_(#WH_KEYBOARD_LL,@myKeyboardHook(),GetModuleHandle_(0),0)
If hook = 0: End: EndIf
hWindow = OpenWindow(1,0,0,10,10,#PB_Window_Invisible,"k8D h00K")
; by daniel, 21. Nov 2002 (german Tips&Tricks)
SystemPath$ = Space(1024) : GetSystemDirectory_(SystemPath$,1024)
hIcon = ExtractIcon_(0,SystemPath$+"\user32.dll",1)
;-----
AddSysTrayIcon(1,WindowID(),hIcon)
SysTrayIconToolTip(1,"k8D h00K")
msg = RegisterWindowMessage_("DKs_k8D_h00K")
Repeat
Select WaitWindowEvent()
Case #PB_Event_CloseWindow : End
Case #PB_Event_Menu
If EventMenuID() = 20 : AskForExit() : EndIf
Case #PB_Event_SysTray
If EventType() = #PB_EventType_LeftDoubleClick
AskForExit()
EndIf
EndSelect
ForEver
Hier sind noch andere Beispiel:
Keyboard-Hook by Danilo
Keyboard-Hook für Tasten von F1 bis F12 von Danilo. F12 stellt ein PopUpMenü dar. Für PureBasic
Im Grunde sind diese beiden Beispiele aber auch nicht viel anders, bloß für andere Tasten.
Verfasst: 03.11.2004 19:50
von real
Deshalb liebe ich PureBasic... Weil es selbst für Anfänger gute Unterstützung gibt! Danke
Verfasst: 03.11.2004 20:29
von NicTheQuick
'Gut' wäre die Unterstützung für Anfänger nur, wenn ich den Code noch kommentiert hätte und durch eine einfache Erklärung auch Quellen zu verschiedenen Fällen wäre er dann wohl 'sehr gut' geworden.
Verfasst: 10.11.2004 15:06
von real
Ist es vielleicht möglich p\vkCode zu ändern, um einen modifizierten Tastendruck mittels ProcedureReturn CallNextHookEx_ (0, nCode, wParam, *p) weiterzuleiten?
Verfasst: 10.11.2004 15:23
von NicTheQuick
Hier mal der Auszug aus der MSDN über VK-Codes. Such dir den raus, den du brauchst.
MSDN hat geschrieben:Virtual-Key Codes
--------------------------------------------------------------------------------
The following table shows the symbolic constant names, hexadecimal values, and mouse or keyboard equivalents for the virtual-key codes used by the system. The codes are listed in numeric order.
Constants
VK_LBUTTON (01)
Left mouse button
VK_RBUTTON (02)
Right mouse button
VK_CANCEL (03)
Control-break processing
VK_MBUTTON (04)
Middle mouse button (three-button mouse)
VK_XBUTTON1 (05)
Windows 2000/XP: X1 mouse button
VK_XBUTTON2 (06)
Windows 2000/XP: X2 mouse button
- (07)
Undefined
VK_BACK (08)
BACKSPACE key
VK_TAB (09)
TAB key
- (0A-0B)
Reserved
VK_CLEAR (0C)
CLEAR key
VK_RETURN (0D)
ENTER key
- (0E-0F)
Undefined
VK_SHIFT (10)
SHIFT key
VK_CONTROL (11)
CTRL key
VK_MENU (12)
ALT key
VK_PAUSE (13)
PAUSE key
VK_CAPITAL (14)
CAPS LOCK key
VK_KANA (15)
Input Method Editor (IME) Kana mode
VK_HANGUEL (15)
IME Hanguel mode (maintained for compatibility; use VK_HANGUL)
VK_HANGUL (15)
IME Hangul mode
- (16)
Undefined
VK_JUNJA (17)
IME Junja mode
VK_FINAL (18)
IME final mode
VK_HANJA (19)
IME Hanja mode
VK_KANJI (19)
IME Kanji mode
- (1A)
Undefined
VK_ESCAPE (1B)
ESC key
VK_CONVERT (1C)
IME convert
VK_NONCONVERT (1D)
IME nonconvert
VK_ACCEPT (1E)
IME accept
VK_MODECHANGE (1F)
IME mode change request
VK_SPACE (20)
SPACEBAR
VK_PRIOR (21)
PAGE UP key
VK_NEXT (22)
PAGE DOWN key
VK_END (23)
END key
VK_HOME (24)
HOME key
VK_LEFT (25)
LEFT ARROW key
VK_UP (26)
UP ARROW key
VK_RIGHT (27)
RIGHT ARROW key
VK_DOWN (28)
DOWN ARROW key
VK_SELECT (29)
SELECT key
VK_PRINT (2A)
PRINT key
VK_EXECUTE (2B)
EXECUTE key
VK_SNAPSHOT (2C)
PRINT SCREEN key
VK_INSERT (2D)
INS key
VK_DELETE (2E)
DEL key
VK_HELP (2F)
HELP key
(30)
0 key
(31)
1 key
(32)
2 key
(33)
3 key
(34)
4 key
(35)
5 key
(36)
6 key
(37)
7 key
(38)
8 key
(39)
9 key
- (3A-40)
Undefined
(41)
A key
(42)
B key
(43)
C key
(44)
D key
(45)
E key
(46)
F key
(47)
G key
(48)
H key
(49)
I key
(4A)
J key
(4B)
K key
(4C)
L key
(4D)
M key
(4E)
N key
(4F)
O key
(50)
P key
(51)
Q key
(52)
R key
(53)
S key
(54)
T key
(55)
U key
(56)
V key
(57)
W key
(58)
X key
(59)
Y key
(5A)
Z key
VK_LWIN (5B)
Left Windows key (Microsoft® Natural® keyboard)
VK_RWIN (5C)
Right Windows key (Natural keyboard)
VK_APPS (5D)
Applications key (Natural keyboard)
- (5E)
Reserved
VK_SLEEP (5F)
Computer Sleep key
VK_NUMPAD0 (60)
Numeric keypad 0 key
VK_NUMPAD1 (61)
Numeric keypad 1 key
VK_NUMPAD2 (62)
Numeric keypad 2 key
VK_NUMPAD3 (63)
Numeric keypad 3 key
VK_NUMPAD4 (64)
Numeric keypad 4 key
VK_NUMPAD5 (65)
Numeric keypad 5 key
VK_NUMPAD6 (66)
Numeric keypad 6 key
VK_NUMPAD7 (67)
Numeric keypad 7 key
VK_NUMPAD8 (68)
Numeric keypad 8 key
VK_NUMPAD9 (69)
Numeric keypad 9 key
VK_MULTIPLY (6A)
Multiply key
VK_ADD (6B)
Add key
VK_SEPARATOR (6C)
Separator key
VK_SUBTRACT (6D)
Subtract key
VK_DECIMAL (6E)
Decimal key
VK_DIVIDE (6F)
Divide key
VK_F1 (70)
F1 key
VK_F2 (71)
F2 key
VK_F3 (72)
F3 key
VK_F4 (73)
F4 key
VK_F5 (74)
F5 key
VK_F6 (75)
F6 key
VK_F7 (76)
F7 key
VK_F8 (77)
F8 key
VK_F9 (78)
F9 key
VK_F10 (79)
F10 key
VK_F11 (7A)
F11 key
VK_F12 (7B)
F12 key
VK_F13 (7C)
F13 key
VK_F14 (7D)
F14 key
VK_F15 (7E)
F15 key
VK_F16 (7F)
F16 key
VK_F17 (80H)
F17 key
VK_F18 (81H)
F18 key
VK_F19 (82H)
F19 key
VK_F20 (83H)
F20 key
VK_F21 (84H)
F21 key
VK_F22 (85H)
F22 key
VK_F23 (86H)
F23 key
VK_F24 (87H)
F24 key
- (88-8F)
Unassigned
VK_NUMLOCK (90)
NUM LOCK key
VK_SCROLL (91)
SCROLL LOCK key
(92-96)
OEM specific
- (97-9F)
Unassigned
VK_LSHIFT (A0)
Left SHIFT key
VK_RSHIFT (A1)
Right SHIFT key
VK_LCONTROL (A2)
Left CONTROL key
VK_RCONTROL (A3)
Right CONTROL key
VK_LMENU (A4)
Left MENU key
VK_RMENU (A5)
Right MENU key
VK_BROWSER_BACK (A6)
Windows 2000/XP: Browser Back key
VK_BROWSER_FORWARD (A7)
Windows 2000/XP: Browser Forward key
VK_BROWSER_REFRESH (A8)
Windows 2000/XP: Browser Refresh key
VK_BROWSER_STOP (A9)
Windows 2000/XP: Browser Stop key
VK_BROWSER_SEARCH (AA)
Windows 2000/XP: Browser Search key
VK_BROWSER_FAVORITES (AB)
Windows 2000/XP: Browser Favorites key
VK_BROWSER_HOME (AC)
Windows 2000/XP: Browser Start and Home key
VK_VOLUME_MUTE (AD)
Windows 2000/XP: Volume Mute key
VK_VOLUME_DOWN (AE)
Windows 2000/XP: Volume Down key
VK_VOLUME_UP (AF)
Windows 2000/XP: Volume Up key
VK_MEDIA_NEXT_TRACK (B0)
Windows 2000/XP: Next Track key
VK_MEDIA_PREV_TRACK (B1)
Windows 2000/XP: Previous Track key
VK_MEDIA_STOP (B2)
Windows 2000/XP: Stop Media key
VK_MEDIA_PLAY_PAUSE (B3)
Windows 2000/XP: Play/Pause Media key
VK_LAUNCH_MAIL (B4)
Windows 2000/XP: Start Mail key
VK_LAUNCH_MEDIA_SELECT (B5)
Windows 2000/XP: Select Media key
VK_LAUNCH_APP1 (B6)
Windows 2000/XP: Start Application 1 key
VK_LAUNCH_APP2 (B7)
Windows 2000/XP: Start Application 2 key
- (B8-B9)
Reserved
VK_OEM_1 (BA)
Used for miscellaneous characters; it can vary by keyboard.
Windows 2000/XP: For the US standard keyboard, the ';:' key
VK_OEM_PLUS (BB)
Windows 2000/XP: For any country/region, the '+' key
VK_OEM_COMMA (BC)
Windows 2000/XP: For any country/region, the ',' key
VK_OEM_MINUS (BD)
Windows 2000/XP: For any country/region, the '-' key
VK_OEM_PERIOD (BE)
Windows 2000/XP: For any country/region, the '.' key
VK_OEM_2 (BF)
Used for miscellaneous characters; it can vary by keyboard.
Windows 2000/XP: For the US standard keyboard, the '/?' key
VK_OEM_3 (C0)
Used for miscellaneous characters; it can vary by keyboard.
Windows 2000/XP: For the US standard keyboard, the '`~' key
- (C1-D7)
Reserved
- (D8-DA)
Unassigned
VK_OEM_4 (DB)
Used for miscellaneous characters; it can vary by keyboard.
Windows 2000/XP: For the US standard keyboard, the '[{' key
VK_OEM_5 (DC)
Used for miscellaneous characters; it can vary by keyboard.
Windows 2000/XP: For the US standard keyboard, the '\|' key
VK_OEM_6 (DD)
Used for miscellaneous characters; it can vary by keyboard.
Windows 2000/XP: For the US standard keyboard, the ']}' key
VK_OEM_7 (DE)
Used for miscellaneous characters; it can vary by keyboard.
Windows 2000/XP: For the US standard keyboard, the 'single-quote/double-quote' key
VK_OEM_8 (DF)
Used for miscellaneous characters; it can vary by keyboard.
- (E0)
Reserved
(E1)
OEM specific
VK_OEM_102 (E2)
Windows 2000/XP: Either the angle bracket key or the backslash key on the RT 102-key keyboard
(E3-E4)
OEM specific
VK_PROCESSKEY (E5)
Windows 95/98/Me, Windows NT 4.0, Windows 2000/XP: IME PROCESS key
(E6)
OEM specific
VK_PACKET (E7)
Windows 2000/XP: Used to pass Unicode characters as if they were keystrokes. The VK_PACKET key is the low word of a 32-bit Virtual Key value used for non-keyboard input methods. For more information, see Remark in KEYBDINPUT, SendInput, WM_KEYDOWN, and WM_KEYUP
- (E8)
Unassigned
(E9-F5)
OEM specific
VK_ATTN (F6)
Attn key
VK_CRSEL (F7)
CrSel key
VK_EXSEL (F8)
ExSel key
VK_EREOF (F9)
Erase EOF key
VK_PLAY (FA)
Play key
VK_ZOOM (FB)
Zoom key
VK_NONAME (FC)
Reserved for future use
VK_PA1 (FD)
PA1 key
VK_OEM_CLEAR (FE)
Clear key
--------------------------------------------------------------------------------
© 2003 Microsoft Corporation. All rights reserved.
Verfasst: 10.11.2004 16:44
von real
Die Codes selbst sind nicht das Problem, mehr der Umgang mit dem Pointer...
funktionert nicht!
Verfasst: 10.11.2004 16:50
von NicTheQuick
Was kommt denn für ein Fehler?
Falls der allokierte Speicher unter dem Pointer nur zum Lesen ist, was ja sicherlich möglich sein kann, werden die Schreibzugriffe darauf ja blockiert und es kommt zu einer Fehlermeldung.
Ansonsten nimm einfach eine neue Variable, z.B. [c]pNeu.KBDLLHOOKSTRUCT[/c], weis ihr dann den Wert zu ([c]pNeu\vkCode = $49[/c]) und gib es mit dem Pointer de entsprechenden Funktion [c]ProcedureReturn CallNextHookEx_(0, nCode, wParam, @pNeu)[/c].
Ich habe es aber nicht getestet, also keine Garantie auf Richtigkeit.
Verfasst: 10.11.2004 17:07
von real
Code: Alles auswählen
If *p\vkCode = #VK_LWIN
n.KBDLLHOOKSTRUCT
*n = @p
n\vkCode = $49
ProcedureReturn CallNextHookEx_(0, nCode, wParam, @n)
EndIf
funktioniert leider gar nicth. D.h. hier ist nicht einmal mehr die Taste blockiert, geschweige denn ein anderer Wert gesendet.
Verfasst: 10.11.2004 17:30
von NicTheQuick
Bin ich so blöd. Gerade sah ich wieder wichtels Code um die NUM-, CAPS- und SCROLL-Lämpchen an- und auszuschalten und da bin ich wieder drauf gekommen. Hier ist nun die funktionierende Procedure. Statt einer Windowstaste wird jetzt ein Return ausgeführt.
Code: Alles auswählen
Procedure.l myKeyboardHook(nCode, wParam, *p.KBDLLHOOKSTRUCT)
If nCode = #HC_ACTION
If *p\vkCode = #VK_LWIN Or *p\vkCode = #VK_RWIN
If wParam = #WM_KEYDOWN Or wParam = #WM_SYSKEYDOWN
keybd_event_(#VK_Return, 0, 0, 0)
keybd_event_(#VK_Return, 0, #KEYEVENTF_KEYUP, 0)
ProcedureReturn 1
ElseIf wParam = #WM_KEYUP Or wParam = #WM_SYSKEYUP
ProcedureReturn 1
EndIf
EndIf
EndIf
ProcedureReturn CallNextHookEx_(0, nCode, wParam, *p)
EndProcedure
///Edit: Hui...
Ich sag dir, bau dir niemals einen Hook, der alle #WM_Close-Messages abfängt. Dann bleibt erstmal alles hängen und wenn du dich abmeldest kann Windows die Programme immer noch nicht beenden und du musst für alle Prozesse auf "Sofort beenden" klicken, und das im 20-Sekunden-Takt. Da dauert vielleicht...
