[VB.NET] API hook clavier

Version imprimable

Voici mon problème :
J'ai trouver ce hook sur internet (enfin ... presque, j'ai seulement modifier les debug.writeline() pour msgbox()) et je voulais savoir si quelqu'un peut me dire pourquoi lorsque je l'exécute, j'obtien un msgbox disant :
Keyboard hook failed: 0 le zéro corespond a un code d'erreur provenant de la dll user32.

Je ne connais pas très bien les hooks, c'est mo premier, alors ne soyez pas trop méchant :mrgreen:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51

PublicDeclareFunction UnhookWindowsHookEx Lib"user32" (ByVal hHook AsInteger) AsInteger
PublicDeclareFunction SetWindowsHookEx Lib"user32"Alias"SetWindowsHookExA" (ByVal idHook AsInteger, ByVal lpfn As KeyboardHookDelegate, ByVal hmod AsInteger, ByVal dwThreadId AsInteger) AsInteger
PrivateDeclareFunction GetAsyncKeyState Lib"user32" (ByVal vKey AsInteger) AsInteger
PrivateDeclareFunction CallNextHookEx Lib"user32" (ByVal hHook AsInteger, ByVal nCode AsInteger, ByVal wParam AsInteger, ByVal lParam As KBDLLHOOKSTRUCT) AsInteger
PublicStructure KBDLLHOOKSTRUCT
Public vkCode AsInteger
Public scanCode AsInteger
Public flags AsInteger
Public time AsInteger
Public dwExtraInfo AsInteger
EndStructure
' Low-Level Keyboard Constants
PrivateConst HC_ACTION AsInteger = 0
PrivateConst LLKHF_EXTENDED AsInteger = &H1
PrivateConst LLKHF_INJECTED AsInteger = &H10
PrivateConst LLKHF_ALTDOWN AsInteger = &H20
PrivateConst LLKHF_UP AsInteger = &H80
' Virtual Keys
PublicConst VK_TAB = &H9
PublicConst VK_CONTROL = &H11
PublicConst VK_ESCAPE = &H1B
PublicConst VK_DELETE = &H2E
PublicConst VK_LWIN = &H5B
PublicConst VK_RWIN = &H5C
 
PrivateConst WH_KEYBOARD_LL AsInteger = 13&
Public KeyboardHandle AsInteger
 
' Implement this function to block as many
' key combinations as you'd like
PublicFunction IsHooked(ByRef Hookstruct As KBDLLHOOKSTRUCT) AsBoolean
Debug.WriteLine("Hookstruct.vkCode: " & Hookstruct.vkCode)
Debug.WriteLine(Hookstruct.vkCode = VK_ESCAPE)
Debug.WriteLine(Hookstruct.vkCode = VK_TAB)
If (Hookstruct.vkCode = VK_ESCAPE) AndCBool(GetAsyncKeyState(VK_CONTROL) And&H8000) Then
Call HookedState("Ctrl + Esc blocked")
ReturnTrue
EndIf
If (Hookstruct.vkCode = VK_TAB) AndCBool(Hookstruct.flags And LLKHF_ALTDOWN) Then
Call HookedState("Alt + Tab blockd")
ReturnTrue
EndIf
If (Hookstruct.vkCode = VK_ESCAPE) AndCBool(Hookstruct.flags And LLKHF_ALTDOWN) Then
Call HookedState("Alt + Escape blocked")
ReturnTrue
EndIf
ReturnFalse
EndFunction

Suite du code au prochain message ^^

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
PrivateSub HookedState(ByVal Text AsString)
MsgBox(Text)
EndSub
PublicFunction KeyboardCallback(ByVal Code AsInteger, ByVal wParam AsInteger, ByRef lParam As KBDLLHOOKSTRUCT) AsInteger
If (Code = HC_ACTION) Then
MsgBox("Calling IsHooked")
If (IsHooked(lParam)) Then
Return1
EndIf
EndIf
Return CallNextHookEx(KeyboardHandle, Code, wParam, lParam)
EndFunction
 
PublicDelegateFunction KeyboardHookDelegate(ByVal Code AsInteger, ByVal wParam AsInteger, ByRef lParam As KBDLLHOOKSTRUCT) AsInteger
<MarshalAs(UnmanagedType.FunctionPtr)> Private callback As KeyboardHookDelegate
PublicSub HookKeyboard()
callback = New KeyboardHookDelegate(AddressOf KeyboardCallback)
KeyboardHandle = SetWindowsHookEx(WH_KEYBOARD_LL, callback, Marshal.GetHINSTANCE([Assembly].GetExecutingAssembly.GetModules()(0)).ToInt32, 0)
Call CheckHooked()
EndSub
PublicSub CheckHooked()
If (Hooked()) Then
MsgBox("Keyboard hooked")
Else
MsgBox("Keyboard hook failed: " & Err.LastDllError)
EndIf
EndSub
PrivateFunction Hooked()
Hooked = KeyboardHandle <> 0
EndFunction
PublicSub UnhookKeyboard()
If (Hooked()) Then
Call UnhookWindowsHookEx(KeyboardHandle)
EndIf
EndSub

28/04/2006, 23h49
Torkan

:help:
02/05/2006, 22h22
Xno

Salut!

Euh...je ne suis pas spécialiste VB.NET, loin de là, car je fais plutôt du C#, mais j'ai déjà développé des hooks en C++.

Une question, où est ton programme principal? Je ne vois que des fonctions...
Est-ce que la fonction HookKeyboad() est bien appelée car, apparemment, la variable KeyboardHandle n'est pas initialisée par l'appel de la méthode SetWindowsHookEx (à moins que cet appel foire...).

:question:

Nouveautée !!!!! :mouarf:
J'ai réeussi a le débuger mais, j'ai un autre problème. Quand la fonction

Return CallNextHookEx(KeyboardHandle, _
Code, wParam, lParam)

est appeler, la pile est désiquilibré (eummm, sa veut dire quoi ??? :roll: ). Est-ce que quelqu'un pourait me donnné un petit coup de main ?

Je post le nouveau code.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70

PublicClass KeyboardHook
PublicDeclareFunction UnhookWindowsHookEx Lib"user32" _
(ByVal hHook AsInteger) AsInteger
PublicDeclareFunction SetWindowsHookEx Lib"user32" _
Alias"SetWindowsHookExA" (ByVal idHook AsInteger, _
ByVal lpfn As KeyboardHookDelegate, ByVal hmod AsInteger, _
ByVal dwThreadId AsInteger) AsInteger
PrivateDeclareFunction GetAsyncKeyState Lib"user32" _
(ByVal vKey AsInteger) AsInteger
PrivateDeclareFunction CallNextHookEx Lib"user32" _
(ByVal hHook AsInteger, _
ByVal nCode AsInteger, _
ByVal wParam AsInteger, _
ByVal lParam As KBDLLHOOKSTRUCT) AsInteger
PublicStructure KBDLLHOOKSTRUCT
Public vkCode AsInteger
Public scanCode AsInteger
Public flags AsInteger
Public time AsInteger
Public dwExtraInfo AsInteger
EndStructure
' Low-Level Keyboard Constants
PrivateConst HC_ACTION AsInteger = 0
PrivateConst LLKHF_EXTENDED AsInteger = &H1
PrivateConst LLKHF_INJECTED AsInteger = &H10
PrivateConst LLKHF_ALTDOWN AsInteger = &H20
PrivateConst LLKHF_UP AsInteger = &H80
' Virtual Keys
PublicConst VK_TAB = &H9
PublicConst VK_CONTROL = &H11
PublicConst VK_ESCAPE = &H1B
PublicConst VK_DELETE = &H2E
PrivateConst WH_KEYBOARD_LL AsInteger = 13&
PublicShared KeyboardHandle AsInteger
 
' Implement this function to block as many
' key combinations as you'd like
PublicSharedFunction IsHooked( _
ByRef Hookstruct As KBDLLHOOKSTRUCT) AsBoolean
Debug.WriteLine("Hookstruct.vkCode: " & Hookstruct.vkCode)
Debug.WriteLine(Hookstruct.vkCode = VK_ESCAPE)
Debug.WriteLine(Hookstruct.vkCode = VK_TAB)
If (Hookstruct.vkCode = VK_ESCAPE) And _
CBool(GetAsyncKeyState(VK_CONTROL) _
And&H8000) Then
Call HookedState("Ctrl + Esc blocked")
ReturnTrue
EndIf
If (Hookstruct.vkCode = VK_TAB) And _
CBool(Hookstruct.flags And _
LLKHF_ALTDOWN) Then
Call HookedState("Alt + Tab blockd")
ReturnTrue
EndIf
If (Hookstruct.vkCode = VK_ESCAPE) And _
CBool(Hookstruct.flags And _
LLKHF_ALTDOWN) Then
Call HookedState("Alt + Escape blocked")
ReturnTrue
EndIf
ReturnFalse
EndFunction
PrivateSharedSub HookedState(ByVal Text AsString)
Debug.WriteLine(Text)
EndSub
 
...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
...
 
PublicSharedFunction KeyboardCallback(ByVal Code AsInteger, _
ByVal wParam AsInteger, _
ByRef lParam As KBDLLHOOKSTRUCT) AsInteger
If (Code = HC_ACTION) Then
Debug.WriteLine("Calling IsHooked")
If (IsHooked(lParam)) Then
Return1
EndIf
EndIf
Return CallNextHookEx(KeyboardHandle, _
Code, wParam, lParam)
EndFunction
PublicDelegateFunction KeyboardHookDelegate( _
ByVal Code AsInteger, _
ByVal wParam AsInteger, ByRef lParam As KBDLLHOOKSTRUCT) _
AsInteger
<MarshalAs(UnmanagedType.FunctionPtr)> _
PrivateShared callback As KeyboardHookDelegate
PublicSharedSub HookKeyboard()
callback = New KeyboardHookDelegate(AddressOf KeyboardCallback)
KeyboardHandle = SetWindowsHookEx( _
WH_KEYBOARD_LL, callback, _
Marshal.GetHINSTANCE( _
[Assembly].GetExecutingAssembly.GetModules()(0)).ToInt32, 0)
Call CheckHooked()
EndSub
PublicSharedSub CheckHooked()
If (Hooked()) Then
Debug.WriteLine("Keyboard hooked")
Else
Debug.WriteLine("Keyboard hook failed: " & Err.LastDllError)
EndIf
EndSub
PrivateSharedFunction Hooked()
Hooked = KeyboardHandle <> 0
EndFunction
PublicSharedSub UnhookKeyboard()
If (Hooked()) Then
Call UnhookWindowsHookEx(KeyboardHandle)
EndIf
EndSub
EndClass

Voir post précédent.

Je ne sais pas si ça va résoudre ton problème, mais dans un hook clavier, il est nécessaire de faire appel à la fonction CallNextHookEx si la valeur de la variable Code est négative ou si la valeur de wParam est égale à PM_NOREMOVE, avant d'exécuter ton code (cf. ici pour plus d'infos): "If code is less than zero, the hook procedure must return the value returned by CallNextHookEx."

Dans ma fonction de callback, cela donne:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 LRESULT CALLBACK KeyboardProc( int nCode, WPARAM wParam, LPARAM lParam ) { if( nCode < 0 || wParam == PM_NOREMOVE ) return CallNextHookEx( g_hHookKeyboard, nCode, wParam, lParam ); if( nCode == HC_ACTION ) { // Je bloque les touches que je veux en retournant la valeur 1... } return CallNextHookEx( g_hHookKeyboard, nCode, wParam, lParam ); }
Cela ne devrait pas être trop difficile de traduire en VB.NET...

8-)

03/05/2006, 23h21
Torkan

:( marche pas, j'ai toujours le même problème.

voici l'erreur :

Citation:

Un appel à la fonction PInvoke 'setAPI!setAPI.KeyboardHook::CallNextHookEx' a déséquilibré la pile. Cela peut se produire, car la signature PInvoke managée ne correspond pas à la signature cible non managée. Vérifiez que la convention d'appel et les paramètres de la signature PInvoke correspondent à la signature non managée cible.

Depuis que je fais du vb.net, c'est la seule erreure que je n'arive pas coriger.

help ... :aie:

EDIT : en étudiant le code, j'ai découvert un petit truc. Le hook est bell et bien placer, et le code détecte effectivement la preuve est dans la debug window:

Citation:

Keyboard hooked //Pression du bouton Hook
Calling IsHooked //Touche Presser -> bug
Hookstruct.vkCode: 65 //Code touche
False //Si Escape
False //Si Tab
Calling IsHooked ////Touche Presser -> bug
Hookstruct.vkCode: 40
False
False
Calling IsHooked //Touche Presser -> bug
Hookstruct.vkCode: 38
False
False
Calling IsHooked //Touche Presser -> bug
Hookstruct.vkCode: 27
True
False
Calling IsHooked //Touche Presser -> bug
Hookstruct.vkCode: 91
False
False
Keyboard unhooked //Pression du bouton Unhook
03/05/2006, 23h44
Xno

D'après l'intitulé de l'erreur, il y a peut-être un problème dans la déclaration de la fonction CallNextHookEx qui est faite dans ton code.

Vérifie que la signature de cette fonction correspond à celle qui est donnée là: http://www.pinvoke.net/default.aspx/...extHookEx.html

En espérant que ça fasse avancer le schmilblick. 8-)
03/05/2006, 23h57
Torkan

Tien tien, si tu regarde le code (plus haut) tu remarquera que la stucture KBDLLHOOKSTRUCT est utiliser mais sur le site que tu as mentioner, c'est intPtr. Les 2 n'on pas du tout le même contenu. Le problème vien surment de la mais ... je n'ai aucune idée comment l'adapter
04/05/2006, 00h28
Xno

Non, non, la structure KBDLLHOOKSTRUCT de ton prog à l'air bonne. Le type IntPtr est utilisé pour la déclaration en C#. Bizarre que ça reste un Integer en VB.NET.

Par contre, en étudiant un peu ton code (je suis une vraie bille en VB.NET dsl!), j'ai remarqué une anomalie dans une déclaration entre:

Code:

PublicDelegateFunction KeyboardHookDelegate(ByVal Code AsInteger, ByVal wParam AsInteger, ByRef lParam As KBDLLHOOKSTRUCT) AsInteger

et

Code:

PrivateDeclareFunction CallNextHookEx Lib"user32" (ByVal hHook AsInteger, ByVal nCode AsInteger, ByVal wParam AsInteger, ByVal lParam As KBDLLHOOKSTRUCT) AsInteger

Essaie voir de changer le ByVal par ByRef pour la fonction CallNextHookEx comme pour le delegate.

A tester... :bug:
04/05/2006, 04h28
Torkan
Bonne idée mais, si je le met en mode ByVal, la ligne
Code:

1 2 3 callback = New KeyboardHookDelegate(AddressOf KeyboardCallback)
affiche une erreur de compilation :?

Je pensse que nous avons besoin de petit coup de main d'un pro en vb.net :mrgreen:

Je vais le dire plus fort en espérant que quelqu'un m'entende ...

HEY HO ! SA FAIT 3 JOURS QUE SA MARCHE PAS FAQUE SIOUPLAIS !!!!!!!!!!!!!!!!!!!! HELP !!!!!!!!!!!!!!! ON VEUX KEKUN QUI SI CONNAIS EN VB.NET !!!!!!!!!!!!!! PLZ :mouarf:
04/05/2006, 09h20
Xno

Non, je pense qu'il faudrait plutôt le mettre en mode ByRef:

Code:

PublicDelegateFunction KeyboardHookDelegate(ByVal Code AsInteger, ByVal wParam AsInteger, ByRef lParam As KBDLLHOOKSTRUCT) AsInteger

et

Code:

PrivateDeclareFunction CallNextHookEx Lib"user32" (ByVal hHook AsInteger, ByVal nCode AsInteger, ByVal wParam AsInteger, byRef lParam As KBDLLHOOKSTRUCT) AsInteger

As-tu essayé?
04/05/2006, 13h39
Torkan

:D Nouveau bug :aie:

J'ai eu une erreur étrange. Une histoire de garbage colector. Sa m'est ariver une fois :? MAIS SA MARCHE :D

EN FIN :aie:

merci BEAUCOUP xno 8-)

EDIT : Petite question. Connais-tu un site web ou je peux trouver la liste des code pour blocker les touche ? J'ai pas envie de les chercher moi même.

J'ai chercher et j'ai trouver quelque chose mais .... la touche que je veux blocker n'est as dans la liste (touche windows)
04/05/2006, 14h25
Xno

Généralement, je me sers de la liste des virtual key codes de MSDN:

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/winui/WinUI/WindowsUserInterface/UserInput/VirtualKeyCodes.asp

;)

EDIT: Tu veux bloquer les deux touches Windows (situé entre le Control et le Alt pour celle de gauche)? Si c'est le cas, alors cette touche est dans la liste:
VK_LWIN (5B) et VK_RWIN (5C). Sinon, il y a un autre moyen, tu traces le keycode des touches qui sont appuyées et tu repères le code de celle que tu veux bloquer.
05/05/2006, 03h01
Torkan

Merci !!!!!!

À que c'est bien quand sa marche ^^