Discussion :

[jurassic pork]

Bonjour,

Pour récupérer les touches clavier enfoncées dans d'autres applications, il faut utiliser ce qu'on appelle un hook clavier et pour cela utiliser des API Windows. Voici un petit exemple d'exploitation en windev.
Dans un premier temps il faut déclarer quelques constantes et structures dans le code du projet (initialisation du projet) :

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
27
28
29
30
 
CONSTANTE
HC_ACTION=0//0
VK_SHIFT=16
WH_JOURNALRECORD = 0
WH_JOURNALPLAYBACK = 1
WH_KEYBOARD = 2
WH_GETMESSAGE = 3
WH_CALLWNDPROC = 4
WH_CBT = 5
WH_SYSMSGFILTER = 6
WH_MOUSE = 7
WH_HARDWARE = 8
WH_DEBUG = 9
WH_SHELL = 10
WH_FOREGROUNDIDLE = 11
WH_CALLWNDPROCRET = 12
WH_KEYBOARD_LL = 13
WH_MOUSE_LL = 14
WM_KEYDOWN=256//0x0100
 
FIN
KBDLLHOOKSTRUCT est une structure
vkCode est un entier
scanCode est un entier
flags est un entier
Time est un entier
dwExtraInfo est un entier
FIN
gnHandleHook est un entier // handle du hook

ensuite pour mettre en oeuvre le hook il faut un code du genre :

Code :

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

1
2
 
gnHandleHook = API("User32", "SetWindowsHookExA", WH_KEYBOARD_LL, &Procédure_Hookeuse, Instance(), 0)

pour terminer de hooker le clavier un code du type:

Code :

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

1
2
3
4
 
SI PAS API("user32","UnhookWindowsHookEx",gnHandleHook) ALORS
    Erreur("erreur de désinstallation du hook ")
    FIN

et voici pour terminer un exemple de procédure de hook qu'il faudra déclarer comme procédure globale

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
27
28
29
30
31
32
33
34
35
 
PROCEDURE Procédure_Hookeuse(ncode,wparam,lparam)
clavier est un KBDLLHOOKSTRUCT
KeyState est un tableau fixe de 256 entiers sans signe sur 1 octet
MonCharEx est un tableau fixe de 2 caractères
RetourFonction est un entier
vk est un entier sans signe
//MonChar est un caractère
keylayout est un entier 
tailleChar est un entier
x est un entier
 
SI ncode = HC_ACTION ALORS
// Sur touche enfoncé uniquement
	SI  wparam <> WM_KEYDOWN  ALORS
    	RENVOYER API("user32","CallNextHookEx",gnHandleHook, ncode, wparam, lparam) 
  FIN
Transfert(&clavier,lparam,Dimension(clavier)) // transfert de la structure ( méthode peu recommandable avez-vous mieux ? cast?)
keylayout=API("USER32","GetKeyboardLayout",0)
RetourFonction=API("USER32","GetKeyboardState",&KeyState)
vk = API("USER32","MapVirtualKeyExA",clavier:scanCode,1,keylayout)
// on place l'état de la touche Shift dans le tableau des états des touches
KeyState[VK_SHIFT +1]= ETBinaire((API("USER32","GetAsyncKeyState",VK_SHIFT)/256),255)
//RetourFonction=API("USER32","ToAscii",clavier:vkCode,clavier:scanCode,&KeyState,&MonChar,0)
// on appelle ToAsciiEx plus balaise que ToAscii
tailleChar =API("USER32","ToAsciiEx",vk, clavier:scanCode,&KeyState,&MonCharEx, 0, keylayout)
 
POUR x = 1 A tailleChar
	Fenêtre1.Memo += MonCharEx[x] // Memo est un champ de saisie qui affiche les caractères tapés	
FIN
 
FIN
 
// Renvoie la suite du hook afin de permettre le traitement de l'appui par la fenetre d'origine
RENVOYER API("user32","CallNextHookEx",gnHandleHook, ncode, wparam, lparam)

Bien sûr, tout ceci n'est pas parfait, ce n'est qu'un début. Dans la procédure hookeuse il manque la gestion du AltGR, du CapsLock, du Return, du pavé numérique, etc...
Si quelqu'un rajoute des améliorations qu'il en fasse profiter tout le monde !

Ami calmant, J.P

[jurassic pork]

bonjour,
voici une amélioration du code précédent :
affichage titre application active.
gestion du return
gestion du pavé numérique
gestion du altgr ( sauf touches mortes)
code modifié 1 - dans le code du projet (initialisation du projet) :

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
 
CONSTANTE
HC_ACTION=0//0
WH_JOURNALRECORD = 0
WH_JOURNALPLAYBACK = 1
WH_KEYBOARD = 2
WH_GETMESSAGE = 3
WH_CALLWNDPROC = 4
WH_CBT = 5
WH_SYSMSGFILTER = 6
WH_MOUSE = 7
WH_HARDWARE = 8
WH_DEBUG = 9
WH_SHELL = 10
WH_FOREGROUNDIDLE = 11
WH_CALLWNDPROCRET = 12
WH_KEYBOARD_LL = 13
WH_MOUSE_LL = 14
WM_KEYDOWN=256//0x0100
WM_SYSKEYDOWN=260//0x0104
VK_RETURN=13	
VK_SHIFT=16
VK_CONTROL=17
VK_MENU=18
VK_NUMPAD0=96
VK_NUMPAD1=97
VK_NUMPAD2=98
VK_NUMPAD3=99
VK_NUMPAD4=100
VK_NUMPAD5=101
VK_NUMPAD6=102
VK_NUMPAD7=103
VK_NUMPAD8=104
VK_NUMPAD9=105
VK_NUMLOCK=144
VK_LMENU=164
VK_RMENU=165
FIN
KBDLLHOOKSTRUCT est une structure
vkCode     est un entier 
scanCode   est un entier
flags      est un entier
time       est un entier
dwExtraInfo est un entier
FIN
gnHandleHook est un entier // handle de la procédure de hook
FenêtreMémorisée est une chaîne

2 - dans la Procédure_Hookeuse

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
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
 
PROCEDURE Procédure_Hookeuse(ncode,wparam,lparam)
clavier est un KBDLLHOOKSTRUCT
KeyState est un tableau fixe de 256 entiers sans signe sur 1 octet
MonCharEx est un tableau fixe de 2 caractères
RetourFonction est un entier
vk est un entier sans signe
keylayout est un entier 
tailleChar est un entier
x est un entier
FenêtreCourante est une chaîne
Machaine est une chaîne
 
 
SI ncode = HC_ACTION ALORS
// Sur touche enfoncé uniquement
	SI  wparam <> WM_KEYDOWN  ET wparam <> WM_SYSKEYDOWN  ALORS
    	RENVOYER API("user32","CallNextHookEx",gnHandleHook, ncode, wparam, lparam) 
  FIN
	Transfert(&clavier,lparam,Dimension(clavier)) // transfert de la structure ( méthode peu recommandable avez-vous mieux ? cast?)
	FenêtreCourante = SysFenTitre (SysFenActive ())
 
	SI FenêtreCourante <> FenêtreMémorisée  ALORS
		FenêtreMémorisée = FenêtreCourante	
		Fenêtre1.Memo += RC + FenêtreMémorisée + "++++++++++++++++++++++++++" + RC
	FIN
keylayout=API("USER32","GetKeyboardLayout",0)
RetourFonction=API("USER32","GetKeyboardState",&KeyState)
vk = API("USER32","MapVirtualKeyExA",clavier:scanCode,3,keylayout)
KeyState[VK_SHIFT +1]= ETBinaire((API("USER32","GetAsyncKeyState",VK_SHIFT)/256),255)
KeyState[VK_MENU +1]= ETBinaire((API("USER32","GetAsyncKeyState",VK_CONTROL)/256),255)
KeyState[VK_CONTROL +1]= ETBinaire((API("USER32","GetAsyncKeyState",VK_CONTROL)/256),255)
// on appelle ToAsciiEx plus balaise de ToAscii
tailleChar =API("USER32","ToAsciiEx",vk, clavier:scanCode,&KeyState,&MonCharEx, 0, keylayout)
// gestion du return
	SI 	clavier:vkCode = VK_RETURN ALORS  	Fenêtre1.Memo += RC
POUR x = 1 A tailleChar
	Fenêtre1.Memo += MonCharEx[x] // Memo est un champ de saisie qui affiche les caractères tapés	
FIN
	SI tailleChar = 0 ALORS
		 Machaine = ""
		 SELON clavier:vkCode
			CAS	VK_NUMPAD0 : Machaine = "0"
			CAS	VK_NUMPAD1 : Machaine = "1"				
			CAS	VK_NUMPAD2 : Machaine = "2"
			CAS	VK_NUMPAD3 : Machaine = "3"
			CAS	VK_NUMPAD4 : Machaine = "4"
			CAS	VK_NUMPAD5 : Machaine = "5"
			CAS	VK_NUMPAD6 : Machaine = "6"
			CAS	VK_NUMPAD7 : Machaine = "7"
			CAS	VK_NUMPAD8 : Machaine = "8"
			CAS	VK_NUMPAD9 : Machaine = "9"		
		 FIN
		SI Machaine <> "" ALORS 	Fenêtre1.Memo += Machaine
	FIN
 
FIN
// Renvoie la suite du hook afin de permettre le traitement de l'appui par la fenetre d'origine
RENVOYER API("user32","CallNextHookEx",gnHandleHook, ncode, wparam, lparam)

Ami calmant, J.P

[pixel016]

Généralissime.

Mon sauveur

Merci beaucoup, très beau travail et belle contribution

Par contre dans ces modification la touche "Efface" n'efface pas réellement le caractère je crois.

[alphabe2000]

Tout est cool mais la variable Fenêtre1 génère des erreurs dans la prcédure_Hookeuse !

[david--vincent]

Bonjour
je déterre le sujet car je voudrais me servir de ce bout de code
mais voila je ne trouve pas qu'elle valeur mettre

Procédure_Hookeuse(ncode,wparam,lparam)

pour l'appel a la procédure je coince :

Code :

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

gnHandleHook = API("User32", "SetWindowsHookExA", WH_KEYBOARD_LL, &Procédure_Hookeuse, Instance(), 0)

ncode = ?
wparam = ?
lparam = ?

si une âme charitable pouvais m'aider

Merci par avance

[Ovedelymn]

Bonjour, personnellement je cherchais a récupérer quand mon utilisateur faisait la combinaison CTRL+Click Droit afin de copier le presse papier dans une zone particulière, j'ai fini par trouver, cela devrait t'aider et surtout est beaucoup plus court que le code de notre ami Jurrasik :

Dans l'initialisation du programme :

Code :

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

1
2
3
4
CONSTANTE
	VK_RBUTTON = 2 //hexa 02
	VK_CONTROL = 17 // hexa 11
FIN

Tu trouvera les valeur que tu cherche sur ce lien : http://lesouriciergris.free.fr/winprog/virtualkey.pdf

dans une procédure (chez moi Touche) :

Code :

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

1
2
3
4
5
6
7
PROCEDURE touche()
nTouche1,nTouche2 est un entier
nTouche1=API("USER32","GetAsyncKeyState",VK_CONTROL)
nTouche2=API("USER32","GetAsyncKeyState",VK_RBUTTON)
SI nTouche1=32768 AND nTouche2=32768 ALORS //32768 corresponds à touche appuyée (ou activée)
	// mettre ici le traitement a faire si les touche ont été appuyées.
FIN

Puis dans l'initialisation de la fenêtre principale du programme, j'ai rajouté un timer qui appelle la procédure :

Code :

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

Timer(touche,5)

Voila en espérant que cela puisse t'aider.