Send Message Shift+Enter

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écupérer, je l'ai obtenu via un autre programme), ça a le meme effet que
PostMessage 132670, WM_KEYDOWN, VK_RETURN, 0
PostMessage 132670, WM_KEYUP, VK_RETURN, 0
J'ai beau cherché partout (y compris sur msdn), je ne vois pas comment faire. J'ai observer les messages reç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

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]

Désolé :)

Alors j'ai testé avec ton exemple et la plus d'effet du tout, j'ai juste modifié le handle pour qu'il corresponde au controle sur lequel je souhaite intervenir. En espionnant le message envoyé, le code de la touche est 0 ??? Par contre en espionnant le code de la touche envoyé 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é 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

J'ai trouvé quelqu'un qui avait sensiblement le meme probleme que moi, mais il n'as pas dis si il l'avait ré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

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é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é par la TxtBox.

bah dans ce cas (suite au lien), une piste de recherche serait :




'-> retourne le statue de la touche spécifié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]

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é GetKeyState, celui ci renvoie les touches enfoncés, mais une seule a la fois, pas de combinaison???

LTourist

je viens de voir une idée interessant mais malheureusement ç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é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é avec keydown et up, aucun effet...
Source : http://tcharles.developpez.com/simul/

LTourist

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

LTourist

re,
LParam contient la combinaison des touches