Discussion :

[sBoOb14]

Bonjour à tous,

J'ai déjà vu pas mal de poste à ce sujet, mais mon problème à la particularité que je ne peux pas passer de paramètre à ma procédure...

En gros, voici mon problème:

Mon contrôle utilisateur à pour but de générer un événement lors du changement de l'état des touches capslock, numlock et scrolllock, mais aussi de changer lui même leurs états via 3 propriétés.

Mon problème est que l'api windows pour placer un hook demande l'adresse de la procédure ou fonction à exécuter :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SetWindowsHookEx(WH_KEYBOARD, AddressOf keyboardproc, App.hInstance, App.ThreadID)

AddressOf nécessite apparemment que la procédure à appeler lors du hook soit dans un module.

Ma procédure (dans le module) est bien appelée par windows, mais je n'arrive pas à changer la valeur des propriétés de mon contrôle ou même d'appeler une procédure de celui-ci.

Si quelqu'un à une idée

[ThierryAIM]

L'application ToucheVerrou de ProgElecT est peut-être un début de solution

[Vld44]

mon problème à la particularité que je ne peux pas passer de paramètre à ma procédure...

Hmm il me semble que c'est bloquant, tu reçois les infos évements clavier comment ?

[sBoOb14]

Merci pour vos réponses, concernant l'appli toucheverrou, celle ci permet juste de changer l'état des touches, ce que je fait aussi sans problème même si je n'utilise pas la même méthode.

Concernant les événements clavier, je les reçois via un hook.

Via l'API SetWindowsHookEx je dis à windows que si il à un événement WH_KEYBOARD (c'est à dire changement d'état d'une touche du clavier) il doit appeler la procédure keyboardproc, celle-ci recevant en paramètre plein de truc dont la touche appuyée.

Le problème est que pour préciser à l'API la procédure (ou fonction) à appeler, je dois lui donner l'adresse de cette procédure (via AddressOf)

AddressOf retournant une erreur si la procédure n'est pas dans un module.

Comme le dit si bien l'aide :

AddressOf procedurename
L'argument procedurename indique la procédure dont l'adresse va être passée. Il doit désigner une procédure figurant dans un module standard du projet dans lequel l'appel est effectué.

[sBoOb14]

Bon, j'ai trouvé une solution mais je trouve ça "crade"

Je déclare dans le module une variable objet, que je défini au chargement de l'UC à "me" puis je l'utilise dans le module. Ça revient plus ou moins au même que de passer l'objet en paramètre...

Personne n'a une autre solution plus propre ?

[Vld44]

montre ta fonction hookée.

[sBoOb14]

Voila la fonction hooké

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Function keyboardproc(ByVal idHook As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
 
    'On ne traite pas en conception, sinon ca déconne
    If Obj_Ctrl.is_usermode = False Then
        Exit Function
    End If
 
    'si idhook < 0 : rien à faire
    If idHook >= 0 Then
 
        'Récupération de l'état du clavier
        GetKeyboardState kb_state
        Select Case wParam
            Case KBD_CAPSLOCK
                Obj_Ctrl.Call_Event_Caps (kb_state.key(wParam) = 1)
            Case KBD_NUMLOCK
                Obj_Ctrl.Call_Event_Num (kb_state.key(wParam) = 1)
            Case KBD_SCROLL
                Obj_Ctrl.Call_Event_Scroll (kb_state.key(wParam) = 1)
        End Select
 
    End If
 
    'Appel du prochain hook
    keyboardproc = CallNextHookEx(hHook, idHook, wParam, ByVal lParam)
End Function

Obj_Ctrl=me (mon usercontrol)
Obj_Ctrl.is_usermode=UserControl.ambient.usermode
GetKeyboardState Api renvoyant l'état de chaque touche du clavier
Obj_Ctrl.Call_Event_XXXXXX procédures déclenchant les événements de mon contrôle.

[Vld44]

ton projet c'est un controle ActiveX ou autre chose ?

[sBoOb14]

Oui tout à fait,

Pour la petite histoire, mon but premier était un tout petit programme devant désactiver le capslock au bout de X secondes. En faites, au boulot j'ai un collègue qui n'arrête pas de laisser le capslock activé et ça me sort par les yeux ... quand tu essayes de te loguer, de taper un truc etc ... c'est lourd.

Donc je me suis dis, ben je vais me faire un petit activeX de gestion du numlock, capslock, scrolllock que j'utiliserai dans mon appli.

L'activeX à 3 propriétés servant à changer/récupérer le statut de ces trois touches, et à trois événement se déclenchant lors du changement de statut de ces mêmes touches.
A savoir que l'événement doit se déclencher aussi lors d'un changement du statut des touches non générer par l'activex lui même. (Ex: j'appuis sur capslock quand je suis sous word ca déclenche l'événement CapsLockChg de mon activex)

[Vld44]

OK !!!

Bon, procédure :

1) créer un composant activex à part (ça, c'est fait)
2) ajouter la référence au dit composant dans un AUTRE exécutable, de ton groupe de projets
3) dans cette autre exé/DLL, qu'on appelera appli, tu mets un module avec ta fonction à hooker
4) dans ce même module tu déclares une variable publique :

Public m_objMonControle as MonControleActiveX

5) au lancement de ton appli :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Public sub Main()
    set objMonControle = new MonControleActiveX
    SetWindowsHookEx(WH_KEYBOARD, AddressOf keyboardproc, App.hInstance, App.ThreadID)
End sub

6) dans ta fonction hookée, tu utilises l'objet m_objMonControle.

[sBoOb14]

oui c'est sure, mais bon je préfère que tout le traitement se fasse dans l'ActiveX, ça marche actuellement mais c'est pas top.

Variable objet public + fonction public pour être appeler depuis le module. Je ne trouve pas ça cleen mais ça marche ...