Discussion :

[devoluti0n]

Bonjour, j'aimerai savoir si quelqu'un ici sait comment fonctionnent les keyboard hooks.

Je veux pouvoir capter la préssion d'une touche afin d'y assigner une action à faire.

je pourai utiliser getasynckeystate mais je dois le faire avec des keyhooks .

Donc quelqu'un saurai clairement m'éxpliquer le fonctionnement de ces hooks clavier ?

Merci d'avance, car je sature en voyant des keyloggers avec trop de choses dont je n'ai pas besoin et qui empeche de comprendre son fonctionnement.

[Fabrice ROUXEL 1]

Pour intercepter les messages "clavier" il faut:
1) appeler SetWindowsHookEx de l'api Win32 avec le parametre WH_KEYBOARD.
2)Définir une procedure de callback au sein de laquelle tu testes les touches et effectues le traitement spécifique.
3)Puis libérer le hook avec UnhookWindowsHookEx();

Consultes l'aide Win32, ce n'est pas très compliqué à mettre en place.

[ShaiLeTroll]

Euh, si c'est pour VK_RMENU, tu seras déçu, le hook, je ne suis pas persuadé qu'il l'a renvoie puisque :

The KeyboardProc hook procedure is an application-defined or library-defined callback function the system calls whenever an application calls the GetMessage or PeekMessage function and there is a keyboard message (WM_KEYUP or WM_KEYDOWN) to be processed.

tient, j'ai pondu ça, alors normalement un Hook faut le faire dans une DLL car sinon ça détourne les messages clavier de l'Application (en gros ça fout le bordel), ... tu vois faut juste l'encapsuler, c'est ultra facile, et tu fais un message perso WM_USER + 100, tu te transfère WPARAM et LPARAM dans ce message (faut fournir son handle à la DLL pour quelle sache ou l'envoyer)

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
var
  HookKeyboardHandle: HHook = 0;
 
function HookKeyboardProc(Code: Integer; Msg: WPARAM; MouseHook: LPARAM): LRESULT; stdcall;
begin
  FrmTestDivers.MemoHook.Text := FrmTestDivers.MemoHook.Text + IntToStr(Msg);
end;
 
procedure TFrmTestDivers.BtnHookStartClick(Sender: TObject);
begin
  HookKeyboardHandle := SetWindowsHookEx(WH_KEYBOARD, HookKeyboardProc, HInstance, 0);
end;
 
procedure TFrmTestDivers.BtnHookStopClick(Sender: TObject);
begin
  if HookKeyboardHandle <> 0 then
    UnhookWindowsHookEx(HookKeyboardHandle);
  HookKeyboardHandle := 0;
end;

[Fabrice ROUXEL 1]

Un second exemple

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
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
 
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
  KeybdHook: HHook;
 
implementation
 
{$R *.DFM}
function KeyboardProc(code: Integer; wParam: Word; lParam: LongInt):LResult;Stdcall;
begin
  if wParam = VK_RETURN then Form1.Color := clYellow;
  Result := 1;   // Tester Result := 0;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  KeybdHook := SetWindowsHookEx(WH_KEYBOARD, @KeyboardProc, HInstance, 0);
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
  UnhookWindowsHookEx(KeybdHook);
end;
 
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_RETURN then ShowMessage('OnKeyDown');
end;
 
end.

Dans la fonction KeyboardProc, mettre Result :=0 pour propager le message.
-> FormKeyDown s'execute.

[devoluti0n]

Merci pour vos réponses !!
Je retiens particulierement celle de notre ami Fabrice.
Cependant il y a quelque chose que je ne comprends pas :

Mettre result à 0 ne fait pas se propager le méssage.
et donc formkeydown ne s'éxécute pas, mais en meme temps je ne vois pas d'appel de procédure.

[Fabrice ROUXEL 1]

C'est le contraire.

Si tu mets Result à 0, le message est propagé, c'est à dire que la procédure de fenêtre traitera le message clavier.
FormKeyDown est là pour illustrer le principe.

Avec Result <> 0, on dit à Windows de ne pas envoyer le message dans la file de message associée à la fenêtre.

En fait Windows gere tous les evenements du systeme. Quand tu appuyes sur une touche du clavier, windows va identifier la fenetre concernée et envoyer un message clavier dans sa file de message. Ensuite une procedure de fenetre boucle en permanence en lisant la file de message puis dispatche les messages.
Le hook intercepte le message destiné à la fenetre.dans la procedure de hook tu as l'opportuné via la valeur de retour d'indiquer à windows si le message doit etre posté dans la file de message de la fenetre cible ou bien s'il ne doit pas etre posté.

Cet exemple de code illustre ce principe.

Voila.

[Fabrice ROUXEL 1]

Penses au tag

[devoluti0n]

Penses au tag

Merci beaucoup !!!
Ton votre m'a été trés précieuse !

Edit: petite question encore, pourquoi si je met

Code :

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

1
2
3
4
5
6
7
8
function KeyboardProc(code: Integer; wParam: Word; lParam: LongInt):LResult;StdCall;
begin
  if wParam = VK_RMENU
  Then   keybd_event(VK_SPACE,0,0,0); //Préssion
  keybd_event(VK_SPACE,0,KEYEVENTF_KEYUP,0); //Relachement
 
  result := 1;
end;

l'envoi de touche ne marche pas ? :s

[ShaiLeTroll]

Faut lire ce que l'on répond !

Euh, si c'est pour VK_RMENU, tu seras déçu, le hook, je ne suis pas persuadé qu'il l'a renvoie puisque :

Citation:
The KeyboardProc hook procedure is an application-defined or library-defined callback function the system calls whenever an application calls the GetMessage or PeekMessage function and there is a keyboard message (WM_KEYUP or WM_KEYDOWN) to be processed.

Toujours le même problème VK_RMENU est une constante uniquement pour GetASyncKeyState et donc les Messages WM_KEY* ne l'intercepte que en 17+18 (ALT + CTRL), ... et les Hooks c'est juste des "Sniffers bas niveaux" des messages, pour le Clavier c'est WM_KEY*

[devoluti0n]

Faut lire ce que l'on répond !



Toujours le même problème VK_RMENU est une constante uniquement pour GetASyncKeyState et donc les Messages WM_KEY* ne l'intercepte que en 17+18 (ALT + CTRL), ... et les Hooks c'est juste des "Sniffers bas niveaux" des messages, pour le Clavier c'est WM_KEY*

Oops, dans mon méssage j'ai écrit RMENU, hors c'est pareil avec toutes les vk :s, oublié de le préciser

WM_Key, euh ok, je vais éssayer de voir comment cela fonctionne.

[ShaiLeTroll]

Je crois que tu n'as toujours pas compris en fait

WM_KEYUP or WM_KEYDOWN
tu les as dans Events Delphi, dans les Hook, dans les PeekMessage ... ça fourni 17 (VK_CONTROL ) +18 (VK_MENU ) pour un ALT GR

VK_RMENU est une constante SPECIALE uniquement disponible pour GetASyncKeyState

Donc, si tu veux "capturer" les ALT GR sans passer par GetASyncKeyState, tu dois gérer la présence successive de 17 +18 ...

[devoluti0n]

Je crois que tu n'as toujours pas compris en fait

WM_KEYUP or WM_KEYDOWN
tu les as dans Events Delphi, dans les Hook, dans les PeekMessage ... ça fourni 17 (VK_CONTROL ) +18 (VK_MENU ) pour un ALT GR

VK_RMENU est une constante SPECIALE uniquement disponible pour GetASyncKeyState

Ok trés bien !
En effet, j'avais cru que WM_ remplacait VK_...

Donc WM_ sert à indiquer l'état de la touche !
C'est trés clair ! et quand à altgr, je voulais déjâ voir comment sa fonctionner avec n'importe quelle touche.

Sa réponds trés bien à mes questions !!
Merci beaucoup !!