Send Message Shift+EnterRésolu

Question

Salut,

Je souhaite envoyer a un control d'un autre programme la combinaison Shift+Enter, le probleme est que quand je fais
PostMessage 132670, WM_KEYDOWN, VK_SHIFT, 0
PostMessage 132670, WM_KEYDOWN, VK_RETURN, 0
PostMessage 132670, WM_KEYUP, VK_RETURN, 0
PostMessage 132670, WM_KEYUP, VK_SHIFT, 0
(136270 est le handle du control, comme je ne sais pas encore comment faire pour le r&#233;cup&#233;rer, je l'ai obtenu via un autre programme), &#231;a a le meme effet que
PostMessage 132670, WM_KEYDOWN, VK_RETURN, 0
PostMessage 132670, WM_KEYUP, VK_RETURN, 0
J'ai beau cherch&#233; partout (y compris sur msdn), je ne vois pas comment faire. J'ai observer les messages re&#231;u par le controle quand je fais cette action au clavier, et ils sont identiques a mon premier code, donc je ne vois pas ce qui ne va pas!!

LTourist

supermotaboy · Accepted Answer

La solution a finalement &#233;t&#233; trouv&#233;e (&#231;a fait un moment en fait mais je me suis dit qu'en faire profiter les autres serait une bonne chose)  :). Une des techniques essay&#233;e &#233;tait la bonne, seulement le probleme &#233;tait que le code &#233;tait trop "rapide" en quelque sorte, vous allez comprendre :

'keybd_event permet de simuler des evenements clavier, mais en g&#233;n&#233;ral, c'est a dire qu'on ne peut pas envoy&#233; cette evenment a un controle en particulier
Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
'GetAsyncKeyState permet elle de savoir si une touche du clavier est enfonc&#233;e ou non
Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
'Pour envoyer des messages a des controles ou applications precis
Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
   
    'On simule l'appui sur la touche Shift
    keybd_event VK_SHIFT, 0, 0, 0
    ' tant que cette touche n 'est pas enfonc&#233;e, on ne passe pas a la suite (pour eviter le probleme du code trop "rapide" et que juste Entr&#233;e soit envoy&#233;, et pas Shift+Entr&#233;e)
    Do Until GetAsyncKeyState(VK_SHIFT) = -32767
        DoEvents
    Loop
    'On envoie la pression de la touche entr&#233;e au controle concern&#233;e (j'utilise PostMesage car ce controle ne reagit pas avec SendMessage)
    PostMessage TreeHwnd, WM_KEYDOWN, VK_RETURN, 0
    'Comme PostMessage redonne la main imm&#233;diatement apres son execution, on laisse un peu de temps pour que celui-ci fasse "effet" (sisi, jvous jure que &#231;a change 'qqch)
    Sleep 100
    'On envoie le message pour "relever" la touche entr&#233;e
    PostMessage TreeHwnd, WM_KEYUP, VK_RETURN, 0
    Sleep 100
    'Idem mais en g&#233;n&#233;ral pour Shift
    keybd_event VK_SHIFT, 0, 2, 0
    'De cette fa&#231;on, et pour r&#233;sumer : Shift est actif pour tout windows, mais Entr&#233;e est envoy&#233; juste au controle souhait&#233;, donc Shift+Entr&#233;e ne prend effet que sur lui! :D

NB : Pour y voir plus clair, copiez-collez ce code dans une feuille, je n'arrive pas a trouver comment faire de la coloration synthaxique d&#233;sol&#233;
LTourist

PCPT · Answer

salut. bah Post ou Send, çà fonctionne chez moi.... [VB6] 2 boutons 1 txtbox Option Explicit ' ' Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" _ (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _ ByVal lParam As Long) As Long ' Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _ (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _ lParam As Any) As Long ' Private Const VK_SHIFT = &H10 Private Const VK_RETURN = &HD ' Private Const WM_KEYDOWN = &H100 Private Const WM_KEYUP = &H101 ' ' Private Sub Command1_Click() PostMessage Text1.hwnd, WM_KEYDOWN, VK_SHIFT Or VK_RETURN, 0& PostMessage Text1.hwnd, WM_KEYUP, VK_SHIFT Or VK_RETURN, 0& End Sub ' ' Private Sub Command2_Click() SendMessage Text1.hwnd, WM_KEYDOWN, VK_SHIFT Or VK_RETURN, 0& SendMessage Text1.hwnd, WM_KEYUP, VK_SHIFT Or VK_RETURN, 0& End Sub ' ' Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer) If (KeyCode Or Shift) = 29 Then MsgBox "Shift + Entrée", 32 End Sub Coloration syntaxique automatique [AFCK] ps : prochaine fois, donne les constantes et déclarations, çà fait gagner du temps à tout le monde ;) PCPT [AFCK]

supermotaboy · Answer

D&#233;sol&#233; :)

Alors j'ai test&#233; avec ton exemple et la plus d'effet du tout, j'ai juste modifi&#233; le handle pour qu'il corresponde au controle sur lequel je souhaite intervenir. En espionnant le message envoy&#233;, le code de la touche est 0 ??? Par contre en espionnant le code de la touche envoy&#233; au textbox, la c'est VK_NONCONVERT (29). C'est ce que tu as mis mais j'ai plus l'impression que c'est une sorte de constante d'erreur non?
En fin c'est bizarre que le code envoy&#233; change entre si je l'envoie au textbox ou a mon controle, un lien avec le fait qu'il s'agit d'un autre probleme peut etre???

LTourist

supermotaboy · Answer

J'ai trouv&#233; quelqu'un qui avait sensiblement le meme probleme que moi, mais il n'as pas dis si il l'avait r&#233;solu. Un autre utilisateur lui propose d'aller voir sur MSDN MapVirtualKey ( la fonction n'est pas dans api guide, mais dans win32api.txt oui) et OEMKeyScan. Je suis aller voir mais je ne comprends pas grand chose, si quelqu'un pouvait aller voir et m'expliquer si a peut m'aider et si oui comment???
[URL]http://www.yaronet.com/posts.php?s=63417/URL

LTourist

PCPT · Answer

salut,
bah ce qui est encore plus bizarre, c'est qu'en recopiant le code dans une nouvelle Form, la manipulation manuelle (shift enter) ne d&#233;clanche plus le MsgBox.

cela dit, mon PC n'est pas des plus fiables....
29 est le code que j'avais en le faisant manuellement. donc le vrai code de combinaison renvoy&#233; par la TxtBox.

PCPT · Answer

bah dans ce cas (suite au lien), une piste de recherche serait :

'-> retourne le statue de la touche sp&#233;cifi&#233;e
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
'
'-> retourne les bits de poids faible
Private Declare Function loword Lib "TLBINF32" (ByVal DWord As Long) As Integer
'
'-> retourne les bits de poids fort
Private Declare Function hiword Lib "TLBINF32" (ByVal DWord As Long) As Integer

PCPT  [AFCK]

supermotaboy · Answer

est ce que tu pourrais expliquer les bits de poids faible et point fort, je connais de nom mais c'est tout.Pourquoi voudrais tu utilis&#233; GetKeyState, celui ci renvoie les touches enfonc&#233;s, mais une seule a la fois, pas de combinaison???

LTourist

supermotaboy · Answer

je viens de voir une id&#233;e interessant mais malheureusement &#231;a ne marche pas:
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long,ByVal wMsg As Long,ByVal wParam As Long,lParam As Any) As Long
Public Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte,ByVal bScan As Byte,ByVal dwFlags As Long,ByVal dwExtraInfo As Long)

Public Const KEYEVENTF_KEYUP = 2

keybd_event(VK_SHIFT,0,0,0);
SendMessage(hMediaPlayer,WM_CHAR,VK_RETURN,0);
keybd_event(VK_SHIFT,0,KEYEVENTF_KEYUP,0);
(j'ai remis en VB hein). L'id&#233;e du concepteur vient du fait qu'avec sendmessage on ne peut pas faire de raccourcis complexe, comme je le cherhe.
Son truc est donc de melanger les deux fonctions. J'ai aussi essay&#233; avec keydown et up, aucun effet...
Source : http://tcharles.developpez.com/simul/

LTourist

supermotaboy · Answer

D&#233;sol&#233; pour le doublon, mais lien direct vers la partie concern&#233;e : http://tcharles.developpez.com/simul/#pbciblage

LTourist

PCPT · Answer

re,
LParam contient la combinaison des touches

supermotaboy · Answer

pour l'exemple au dessus non justement, on peut pas envoy&#233; de combinaison complexe avec send ou postmessage apparement, son id&#233;e &#233;tait de simuler shift enfonc&#233;, et ensuite d'envoy&#233; la touche entr&#233;e, simulant en fait le shift+enter. donc lparam contient juste VK_RETURN non? (je peux me tromper hein ^^) Sinon sur msdn, ya la fonction TranslateAccelerator qui semble interressante : http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wceshellui5/html/wce50lrfTranslateAccelerator.asp
les keyboardaccelerator, c'est des raccourcis, mais le probleme c'est que je ne vois pas du tout comment utilis&#233; cette fonction!

LTourist

PCPT · Answer

et un bon vieux SendKeys?

supermotaboy · Answer

bah sendkeys &#231;a marche pas pour une application externe non? en plus il faut l'envoyer a un controle et pas a une fenetre donc si sendkeys marche en mettant la fenetre au premier plan, je vois pas comment faire pour que les touches agissent sur ce controle et pas un autre.

LTourist

supermotaboy · Answer

Le sendKeys ne marche pas :( En plus c'est la derniere difficult&#233; dans mon prog, le reste c'est relativement facile, &#231;a me saoule.Et en meme temps, sans &#231;a je doute de pouvoir le finir, c'est assez essentiel comme truc!

LTourist

PCPT · Answer

je ne vois pas le probl&#232;me avec SendKeys (mis &#224; part que c'est une solution que je n'aime pas trop).
par contre, il faut d'abord donner le focus &#224; cette zone. et comme tu as le handle, un SetForegroundWindows ira sans mal.
suivi d'un DoEvents pour laisser l'affichage, et enfin le sendkeys de ta combinaison...

supermotaboy · Answer

bah pour tester, j'avais fait un timer qui au bout de 5 sec executer le sendkeys, &#231;a me laissait le temps de donner le focus au controle, juste pour tester, je vias retenter, merci

LTourist

supermotaboy · Answer

non bah &#231;a marche pas...

LTourist

PCPT · Answer

slt,

beh c'est gentil de ta part. 

le code n'est bien s&#251;r pas testable directement puisque les d&#233;clarations sont d'un module, qu'il manque les constantes, etc...

et pour la coloration, c'est normal, c'est chez moi^^



je reste septique quand m&#234;me, un tel d&#233;ploiement juste pour 2 touches... j'suis perplexe.

++

[AFCK]

supermotaboy · Answer

Pardon pour les constantes je les ais oublier. Sinon tu as beau etre sceptique, c'est la seule solution existante apparement si on veut envoyer ce type de combinaison a un controle precis ou appli en connaissant son Handle. Sinon on peut tres bien juste utilis&#233; keyb_event pour Shift et Entr&#233;e, mais dans ce cas, il faut faire un SetForegroungWindow (je sais plus le nom exact dsl) avant pour etre sur que c'est bien le controle qui t'int&#233;resse qui recoivent les touches, et dans ce cas si l'utilisateur intervient entre les deux, c'est foutu!! ;) C'est la seule solution qui fonctionne (tu peux me croire, j'ai cherch&#233; sur internet pendant des heures, et c'est la seule que j'ai trouv&#233;, elle vient de developpez.net (sur un cours sur du C++).
++, et merci de m'avoir aid&#233; pendant tout le long

LTourist

Send Message Shift+Enter

19 réponses

Discussions similaires