Contrôle du clavier

Salut à tous.

Je cherche à simuler l'appui de touches sur le clavier. J'utilise donc le code suivant. Le problème, c'est que ça marche pas !

Code:

---

1 2	keybd_event(41, 0, 0, 0); keybd_event(41, 0, KEYEVENTF_KEYUP, 0);

---

Si quelqu'un sait pourquoi.....

Du coup, j'ai essayé en utilisant les PostMessage sur une application, mais, malheureusement pour moi, c'est l'application qui reçoit les évènements, et pas le contrôle actif.
Je m'explique.
Pour tester tout ça, j'ai créé une application avec un TMemo actif au lancement. J'ai fait une autre application avec le code suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10

var handle: HWND; begin handle := FindWindow('TForm2', nil); SetForegroundWindow(handle); sleep(500); PostMessage(handle, WM_KEYDOWN,41, 0); sleep(1000); PostMessage(handle, WM_KEYUP,41, 0); end;

---

Pour info TForm2 est la classe de l'application qui contient mon TMemo. A l'exécution de ce code, l'application TForm2 passe bien au premier plan, mais les évènements clavier sont reçus par la form mais pas par le TMemo.

Quelqu'un saurait-il comment envoyer les messages au contrôle actif ? [Que ce soit clair, dans l'absolu, je ne peux pas modifier l'application cible. J'ai essayé avec NotePad, à priori, même problème]

http://docvb.free.fr/apidetail.php?idapi=148

Essaie en récupérant le handle du mémo alors !
Mais c'est là qu'est le problème :) .
Fait un

Code:

---

1 2	handle := GetFocus;

---

Après SetForegroundWindow afin de prendre le Handle du memo.
bien sûr en espérant qu'il aie le focus :) (Valable pour Notepad avec keybd_event et non WM_KEYDOWN et WM_KEYUP)

Essaies de simuler l'utilisation de l'utilisation de la touche de Tabulation (constante VK_TAB) pour activer séquentiellement le focus des contrôles jusqu'a ce que tu tombes sur le TMemo

Ca marchera pitêtre :P

Citation:

---

Envoyé par waskol

Essaies de simuler l'utilisation de l'utilisation de la touche de Tabulation (constante VK_TAB) pour activer séquentiellement le focus des contrôles jusqu'a ce que tu tombes sur le TMemo

Ca marchera pitêtre :P

---

Oui ou alors selectionne avec ta souris le memo et tapes ce que tu veux :lol:

Citation:

---

Envoyé par edam

http://docvb.free.fr/apidetail.php?idapi=148

---

Citation:

---

Envoyé par portu

Oui ou alors selectionne avec ta souris le memo et tapes ce que tu veux :lol:

---

ça marche pas ça ! C'est mon problème, Le mémo a la focus. Si je tape au clavier, ça écrit dedans, mais si je simule l'appui des touches, ça marche pas.

Citation:

---

Envoyé par edam

http://docvb.free.fr/apidetail.php?idapi=148

---

Oui, mais si j'ai tout suivi, c'est le même système que moi, non ?

non sans handle, ta mhéthode envoit a un controlle,
keybd_event envoit a n'importe quel control pouvut qu'il as le focus

Citation:

---

Envoyé par edam

non sans handle, ta mhéthode envoit a un controlle,
keybd_event envoit a n'importe quel control pouvut qu'il as le focus

---

Ben non justement, et c'est mon problème.

alors faitun recherche récurssive sur tout les controle contenut dans la l'aplication syblé jusqu'a touvé selui que tu veux, tu peut utlisé directement sendmessage dans ce cas,
j'ai oubliée comment mais j'ai déjà posté cette question et lil_jim63 m'a donnée la réponse

Citation:

---

Envoyé par edam

alors faitun recherche récurssive sur tout les controle contenut dans la l'aplication syblé jusqu'a touvé selui que tu veux, tu peut utlisé directement sendmessage dans ce cas.

---

Attend, comment tu fais une recherche des contrôles dans une application. Prenons le cas de Notepad, comment je fais ?

Au llieu d'utiliser FindWindow, il te faudrait utiliser FindWindowEX, GettWindow etc... (voir SDK Micro$oft)

sinon, essaies ça

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

var handle: HWND; begin handle := FindWindow('TForm2', nil); SetForegroundWindow(handle); handle := FindWindow('TMemo1', nil); sleep(500); PostMessage(handle, WM_KEYDOWN,41, 0); sleep(1000); PostMessage(handle, WM_KEYUP,41, 0); end;

---

ou bien ça...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

var handle: HWND; begin handle := FindWindow('TForm2', nil); SetForegroundWindow(handle); handle := handle:=GetActiveWindow; sleep(500); PostMessage(handle, WM_KEYDOWN,41, 0); sleep(1000); PostMessage(handle, WM_KEYUP,41, 0); end;

---

Bon courage

Citation:

---

Envoyé par waskol

Au llieu d'utiliser FindWindow, il te faudrait utiliser FindWindowEX, GettWindow etc...

---

Je vais essayer ton code, mais je n'ai pas de problème pour trouver l'application [elle passe bien au premier plan], mais plutôt pour taper dans le bon contrôle dedans [celui qui a le focus]

voir:
http://docvb.free.fr/apidetail.php?idapi=79
et
http://docvb.free.fr/apidetail.php?idapi=78
bon dev

ou http://66.102.9.104/custom?q=cache:3...hl=fr&ie=UTF-8

Citation:

---

Envoyé par edam

voir:
http://docvb.free.fr/apidetail.php?idapi=79
et
http://docvb.free.fr/apidetail.php?idapi=78
bon dev

---

Merci edam, mais je n'ai pas de problème pour trouver la fenêtre. La recherche de la fenêtre fonctionne bien, le problème, c'est que les messages du claviers n'arrivent pas au contrôle actif.

Citation:

---

Envoyé par edam

ou http://66.102.9.104/custom?q=cache:3...hl=fr&ie=UTF-8

---

Citation:

---

Envoyé par edam

ou http://66.102.9.104/custom?q=cache:3...hl=fr&ie=UTF-8

---

Ben voilà, chez lui ça marche et pas chez moi !
Pour keybd_event() ne marche pas, c'est Delphi qui pose problème ?

????
attent tu veux pas utilisé keybd_event,oui ou non??
comment tu fait toi?

Citation:

---

Envoyé par edam

????
attent tu veux pas utilisé keybd_event,oui ou non??
comment tu fait toi?

---

Je l'utilise, mais ça ne marche pas !

Voici mon test avec NotePad :

Code:

---

1 2 3 4 5 6 7 8 9

procedure TForm1.Button1Click(Sender: TObject); var hPad : HWND; begin hPad := FindWindow('Notepad', nil); SetForegroundWindow(hPad); sleep(500); keybd_event(41, 0, 0, 0); keybd_event(41, 0, KEYEVENTF_KEYUP, 0); end;

---

comment
si avec keybd_even il doit surement etre utlisé avec une application en arriére plant pour que sa marche sur celle qui détien le focus
essaye de l'utilisé sur lamem application dans un clik de (forum,boutton,..)

Citation:

---

Envoyé par edam

comment
si avec keybd_even il doit surement etre utlisé avec une application en arriére plant pour que sa marche sur celle qui détien le focus
essaye de l'utilisé sur lamem application dans un clik de (forum,boutton,..)

---

Ben oui, NotePad passe au premier plan là.

quent envoit tu votre keybev avant ou aprés le notpad.show( :lol: )
ok, essye d'utlisé les touche system, menu, exlorateur et voir
ou meme (alt+f4) :lol:

Citation:

---

Envoyé par edam

quent envoit tu votre keybev avant ou aprés le notpad.show( :lol: )
ok, essye d'utlisé les touche system, menu, exlorateur et voir
ou meme (alt+f4) :lol:

---

Les touches sépciales, ça marche. Si je fait Alt, par exemple, le menu s'affiche, mais ça marche pas pour les touches.

Citation:

---

Envoyé par MD Software

Citation:

---

Envoyé par edam

voir:
http://docvb.free.fr/apidetail.php?idapi=79
et
http://docvb.free.fr/apidetail.php?idapi=78
bon dev

---

Merci edam, mais je n'ai pas de problème pour trouver la fenêtre. La recherche de la fenêtre fonctionne bien, le problème, c'est que les messages du claviers n'arrivent pas au contrôle actif.

---

voir le 2éme lien il vous donne le handle des composant contenut dans l'application (je pense que seulement les composant fenétré) avec sa tu peut envoyé des message direct mem si la fenétre non activé

tu peut donnée votre bou de code,,,merci

:trouve:
C'est bon, c'est plus la peine de chercher.
En fait, il faut passer le code ASCII à keybd_event

C'est bon, ça marche, j'arrive à écrire dans Word !

Merci à tous

:chin:

Désolé j'arrive un peu en retard. Mais il n'y a pas longtemps il y a eu un article sur une DLL AutoItDll qui permet de commander un autre programme. Donc ça peut peut être t'intéresser.

http://christopher-pecaud.developpez.com/AutoItDll/

C'était juste pour amener une info en plus.

Bon dev.

Je recommence, ZUT !

Voilà mon pb :

Code:

---

1 2 3 4 5 6 7 8

keybd_event(Ord('B'), 0, 0, 0); keybd_event(Ord('B'), 0, KEYEVENTF_KEYUP, 0); Sleep(500); keybd_event(Ord('o'), 0, 0, 0); keybd_event(Ord('o'), 0, KEYEVENTF_KEYUP, 0); Sleep(500); keybd_event(Ord('n'), 0, 0, 0); keybd_event(Ord('n'), 0, KEYEVENTF_KEYUP, 0);

---

Ce code affiche : "b/." que je mette le keyup ou pas.
Pourquoi ça ne marche que sur la première lettre, vous avez une idée ?

Citation:

---

Envoyé par edam

Citation:

---

Envoyé par MD Software

Citation:

---

Envoyé par edam

voir:
http://docvb.free.fr/apidetail.php?idapi=79
et
http://docvb.free.fr/apidetail.php?idapi=78
bon dev

---

Merci edam, mais je n'ai pas de problème pour trouver la fenêtre. La recherche de la fenêtre fonctionne bien, le problème, c'est que les messages du claviers n'arrivent pas au contrôle actif.

---

voir le 2éme lien il vous donne le handle des composant contenut dans l'application (je pense que seulement les composant fenétré) avec sa tu peut envoyé des message direct mem si la fenétre non activé

---

Oui, mais en fait, ce code ne donne pas le composant, mais des fenêtres MDI.

si,

Citation:

---

Envoyé par MD Software

Je recommence, ZUT !

Voilà mon pb :

Code:

---

1 2 3 4 5 6 7 8

keybd_event(Ord('B'), 0, 0, 0); keybd_event(Ord('B'), 0, KEYEVENTF_KEYUP, 0); Sleep(500); keybd_event(Ord('o'), 0, 0, 0); keybd_event(Ord('o'), 0, KEYEVENTF_KEYUP, 0); Sleep(500); keybd_event(Ord('n'), 0, 0, 0); keybd_event(Ord('n'), 0, KEYEVENTF_KEYUP, 0);

---

Ce code affiche : "b/." que je mette le keyup ou pas.
Pourquoi ça ne marche que sur la première lettre, vous avez une idée ?

---

ça va m'aider pour ça ?

non, c'est totalemnt différent c'est comme si tu va crée une prtie de ctte DLL:http://christopher-pecaud.developpez.com/AutoItDll/
avec le handle de fenétre (composant) tu lui envoit directement un message de wmkeydown ou meme avec SetWindowText
http://docvb.free.fr/apidetail.php?idapi=26

Bon ça va allez, zou !

C'est terminé, j'ai trouvé mon problème !

Il faut le code ascii de la lettre en MAJUSCULE !

:zzz:

Citation:

---

Envoyé par MD Software

Bon ça va allez, zou !

C'est terminé, j'ai trouvé mon problème !

Il faut le code ascii de la lettre en MAJUSCULE !

---

Pour Info dans l'aide Delphi, il y a ça d'écit :

Citation:

---

Pour les touches alphabétiques,vous devez utiliser ord avec un caractère majuscule,par exemple,ord('M').

---

Au milieu de tout ça (Rubrique Codes touche virtuelle qui peut servir :

Citation:

---

Les codes touche virtuelle fournissent une représentation symbolique des appuis utilisateur sur les touches.

Unité

Windows

Description

Les codes touche virtuelle vous permettent de représenter les valeurs clavier pour les touches non-alphanumériques.Windows définit des constantes spéciales pour chaque touche pouvant être enfoncée par l'utilisateur.Ces constantes peuvent alors être utilisées pour faire référence àla frappe de touche dans des appels API Windows ou dans un gestionnaire d'événement OnKeyUp ou OnKeyDown.

La plupart des codes touche virtuelle sont définies dans l'unitéWindows.Des codes touche supplémentaires peuvent être définis dans des enveloppes Windows àbut spécifique comme l'unitéimm.Pour les touches alphabétiques,vous devez utiliser ord avec un caractère majuscule,par exemple,ord('M').

Utilisez la méthode Ord afin de créer un code touche virtuelle pour une valeur alphanumérique.Par exemple,le code touche virtuelle de '7'est Ord('7').

Le tableau suivant énumère les codes touche virtuelle définis dans l'unitéWindows :

Code touche virtuelle Touche correspondante

VK_LBUTTON Bouton gauche de la souris
VK_RBUTTON Bouton droit de la souris
VK_CANCEL Ctrl+Pause
VK_MBUTTON Bouton central de la souris
VK_BACK Touche Retour arrière
VK_TAB Touche Tabulation
VK_CLEAR Touche Effacer
VK_RETURN Touche Entrée
VK_SHIFT Touche Maj
VK_CONTROL Touche Ctrl
VK_MENU Touche Alt
VK_PAUSE Touche Pause
VK_CAPITAL Touche Verrouillage majuscule
VK_KANA Utilisée avec l'IME
VK_HANGUL Utilisée avec l'IME
VK_JUNJA Utilisée avec l'IME

VK_FINAL Utilisée avec l'IME
VK_HANJA Utilisée avec l'IME
VK_KANJI Utilisée avec l'IME
VK_CONVERT Utilisée avec l'IME
VK_NONCONVERT Utilisée avec l'IME
VK_ACCEPT Utilisée avec l'IME
VK_MODECHANGE Utilisée avec l'IME
VK_ESCAPE Touche Echap
VK_SPACE Barre d'espace
VK_PRIOR Touche Page précédente
VK_NEXT Touche Page suivante
VK_END Touche Fin
VK_HOME Touche Début
VK_LEFT Touche flèche vers la gauche
VK_UP Touche flèche vers le haut
VK_RIGHT Touche flèche vers la droite

VK_DOWN Touche flèche vers le bas
VK_SELECT Touche de sélection
VK_PRINT Touche Impression (spécifique au clavier)
VK_EXECUTE Touche d'exécution
VK_SNAPSHOT Touche Impression écran
VK_INSERT Touche Insertion
VK_DELETE Touche Suppression
VK_HELP Touche d'aide
VK_LWIN Touche gauche Windows (clavier Microsoft)
VK_RWIN Touche droite Windows (clavier Microsoft)
VK_APPS Touche Applications (clavier Microsoft)
VK_NUMPAD0 Touche 0 (pavénumérique)
VK_NUMPAD1 Touche 1 (pavénumérique)

VK_NUMPAD2 Touche 2 (pavénumérique)
VK_NUMPAD3 Touche 3 (pavénumérique)
VK_NUMPAD4 Touche 4 (pavénumérique)
VK_NUMPAD5 Touche 5 (pavénumérique)
VK_NUMPAD6 Touche 6 (pavénumérique)
VK_NUMPAD7 Touche 7 (pavénumérique)
VK_NUMPAD8 Touche 8 (pavénumérique)
VK_NUMPAD9 Touche 9 (pavénumérique)
VK_MULTIPLY Touche Multiplication (pavénumérique)
VK_ADD Touche Plus (pavénumérique)
VK_SEPARATOR Touche Séparateur (pavénumérique)
VK_SUBTRACT Touche Moins (pavénumérique)

VK_DECIMAL Touche décimale (pavénumérique)
VK_DIVIDE Touche Division (pavénumérique)
VK_F1 Touche F1
VK_F2 Touche F2
VK_F3 Touche F3
VK_F4 Touche F4
VK_F5 Touche F5
VK_F6 Touche F6
VK_F7 Touche F7
VK_F8 Touche F8
VK_F9 Touche F9
VK_F10 Touche F10
VK_F11 Touche F11
VK_F12 Touche F12
VK_F13 Touche F13
VK_F14 Touche F14
VK_F15 Touche F15
VK_F16 Touche F16
VK_F17 Touche F17
VK_F18 Touche F18
VK_F19 Touche F19
VK_F20 Touche F20
VK_F21 Touche F21

VK_F22 Touche F22
VK_F23 Touche F23
VK_F24 Touche F24
VK_NUMLOCK Touche Verr Num
VK_SCROLL Touche Arrêt défilement
VK_LSHIFT Touche Maj gauche (utilisée uniquement avec GetAsyncKeyState et GetKeyState)
VK_RSHIFT Touche Maj droite (utilisée uniquement avec GetAsyncKeyState et GetKeyState)
VK_LCONTROL Touche Ctrl gauche (utilisée uniquement avec GetAsyncKeyState et GetKeyState)
VK_RCONTROL Touche Ctrl droite (utilisée uniquement avec GetAsyncKeyState et GetKeyState)

VK_LMENU Touche Alt gauche (utilisée uniquement avec GetAsyncKeyState et GetKeyState)
VK_RMENU Touche Alt droite (utilisée uniquement avec GetAsyncKeyState et GetKeyState)
VK_PROCESSKEY Touche de processus
VK_ATTN Touche Attn
VK_CRSEL Touche CrSel
VK_EXSEL Touche ExSel
VK_EREOF Touche Erase EOF
VK_PLAY Touche Lecture
VK_ZOOM Touche Zoom
VK_NONAME Réservée àun usage futur
VK_PA1 Touche PA1
VK_OEM_CLEAR Touche Effacer

---

:D