Appui d'un touche par programme

Version imprimable

10/09/2005, 15h56
Gilles Louïse

Appui d'un touche par programme

L'instruction mouse_event(MOUSEEVENTF_ABSOLUTE | MOUSEEVENTF_LEFTDOWN,x,y,dwData,0) permet de simuler l'appui du bouton de la souris comme si un utilisateur avait appuyé sur le bouton de la souris.

Je n'ai pas trouvé l'équivalent pour le clavier. J'aimerais une instruction qui simule l'appui d'une touche du clavier (par exemple une lettre). Si donc je suis sous Word et que l'instruction s'exécute, la lettre appuyée apparaîtra sous Word.

Merci et à bientôt
Gilles
10/09/2005, 16h17
mic.29

Bonjour,

j'ai utilisé cette fonction

Code:

keybd_event(0,0,0,0);

j’espère que c'est cela que tu cherche

Cordialement

Mickael
10/09/2005, 16h38
Gilles Louïse

Merci bien.

Je veux bien un petit exemple pour par exemple simuler l'appui de la lettre A (e.g. dans un TEdit) car je n'ai pas réussi à trouver une syntaxe qui marche, la doc ne donne aucun exempe.

À bientôt
Gilles

Voici l'exemple

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
 
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
   keybd_event('A',0,0,0);
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1KeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
   Edit1->Text = (char)( Key) ;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
   BYTE keyState[256];
   bool bState = true;
   GetKeyboardState((LPBYTE)&keyState);
   if( (bState && !(keyState[VK_NUMLOCK] & 1)) ||
      (!bState && (keyState[VK_NUMLOCK] & 1)) )
   {
      // Simulate a key press
      keybd_event( VK_NUMLOCK,
                      0x45,
                      KEYEVENTF_EXTENDEDKEY | 0,
                      0 );
 
      // Simulate a key release
         keybd_event( VK_NUMLOCK,
                      0x45,
                      KEYEVENTF_EXTENDEDKEY | KEYEVENTF_KEYUP,
                      0);
   }
}
//---------------------------------------------------------------------------

Mickael

10/09/2005, 19h45
Gilles Louïse

J'avoue ne pas comprendre.

Normalement, keybd_event('A',0,0,0) simule l'appui de la lettre A par l'utilisateur, donc si le curseur est dans le TEdit, un A doit s'afficher.

Ici vous trichez puisque sur l'événement KeyDown du bouton, vous écrivez Edit1->Text=(char)Key, ce qui a bien sûr pour effet d'afficher la lettre A. Mais cette affectation devrait être inutile si keybd_event('A',0,0,0) simulait vraiment l'appui de la lettre A. (quand un utilisateur appuie sur A, la lettre A s'affiche dans le TEdit et il n'y a aucun code supplémentaire)

J'ai essayé de rajouter Application->ProcessMessages() juste après keybd_event('A',0,0,0) mais ça ne marche pas non plus.

Merci quand même de votre aide.

À bientôt
Gilles
10/09/2005, 20h44
mic.29
j'ai essayé avec un Timer et cela fonctionne

quand on appuie sur le bouton pour simuler l’appuie de la lettre 'A 'sur le clavier le Focus passe du TEdit au TBouton donc le programme n’envoie pas la lettre 'A' au TEdit

exemple avec le bouton
Code:

1 2 3 4 5 6 7 void __fastcall TForm1::Button1Click(TObject *Sender) { Form1->FocusControl(Edit1); keybd_event('A',0,0,0); }
Mickael
10/09/2005, 20h57
Gilles Louïse

Merci.

En rajoutant Form1->FocusControl(Edit1), ça marche effectivement mais si j'enlève cette instruction et si je positionne le curseur dans le TEdit, là ça ne marche pas alors que le curseur est prêt a accueillir un caractère dans le TEdit. C'est ainsi que j'ai testé jusqu'à présent.

Or, le curseur pourra à terme être n'importe où, par exemple sous Word et ce que j'aimerais, c'est que la lettre s'affiche quelle que soit la place du curseur comme si un utilisateur avait appuyé sur la touche.

Merci encore et à bientôt
Gilles
11/09/2005, 00h28
henderson
Salut !

Je me demande s'il ne faut pas rajouter un "key up" :
Code:

1 2 keybd_event(VkKeyScan('A'), 0, 0, 0); keybd_event(VkKeyScan('A'), 0, KEYEVENTF_KEYUP, 0);
A noter que je n'ai pas réussi à simuler des majuscules... ???

A plus !
11/09/2005, 09h41
Gilles Louïse

Merci mais ça ne marche pas.

À bientôt
Gilles

Bonjour,

pour simuler la majuscule il faut appuyer sur la touche MAJ

1er fois Majuscule 2eme fois Minuscule

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
      keybd_event( VK_CAPITAL ,
                      0x45,
                      KEYEVENTF_EXTENDEDKEY | 0,
                      0 );
 
      // Simulate a key release
         keybd_event( VK_CAPITAL ,
                      0x45,
                      KEYEVENTF_EXTENDEDKEY | KEYEVENTF_KEYUP,
                      0);
       keybd_event( 'A' ,
                      0x45,
                      KEYEVENTF_EXTENDEDKEY | 0,
                      0 );
 
      // Simulate a key release
         keybd_event( 'A' ,
                      0x45,
                      KEYEVENTF_EXTENDEDKEY | KEYEVENTF_KEYUP,
                      0);

Sinon pour moi cette fonction corespond à l'appui sur le clavier, si tu mets un document Word en premier plan on arrive à remplir le document avec des lettre "AaAaA"

je ne comprends pas bien ce qui te manque dans cette fonction

A+
Mickael

11/09/2005, 10h29
Orangina

Bonjour

Sur un TEdit il faut mettre AutoSelect à false pour que ça marche, ça met les caractères demandés au niveau du curseur.
11/09/2005, 10h39
henderson

Salut !

Sinon il y a aussi la possibilité d'envoyer un WM_CHAR :

Code:

PostMessage(Form1->ActiveControl->Handle, WM_CHAR, 'a' ,0);

A plus !
11/09/2005, 12h18
Gilles Louïse

Merci mais ça ne marche que si j'ajoute juste avant Form1->FocusControl(Edit1), s'il n'y a que votre instruction et si je positionne le curseur sur le TEdit, ce qui normalement devrait lui donner le focus, ça ne marche pas.

Cela dit, cette syntaxe ne me convient pas car il me faut connaître un Handle et ça m'ennuie. Si je mets mon curseur dans Word, je n'ai pas envie d'aller chercher un Handle, le curseur étant positionné n'importe où, je voudrais simplement simuler un utilisateur qui appuie sur une touche et afficher la lettre correspondante dans le logiciel actif à ce moment-là.

Merci quand même de votre aide.

À bientôt
Gilles
11/09/2005, 14h35
Neilos

Regarde du côté des hooks clavier..je sais qu'ils permettent de capturer toutes les saisies mais je crois qu'ils te permettent aussi de simuler des saisies.

Une petite recherche sur MSDN et tu devrais trouve, je n'ai plus le liens dans mes favoris désolé.