problème avec SendKeysRésolu

Question

Salut à tous,

j'essaye de "contrôler" la fenêtre de code d'un module ("Projet1 - Module1 (Code)") depuis un autre programme..

pour celà, je récupère le handle de la fenêtre avec Spy++, puis son titre avec GetWindowText() pour pouvoir enfin la rendre active avec AppActivate et lui envoyer du texte avec SendKeys()..

    Dim h As Long
    h = CLng(Text1.Text)'je fais copier coller depuis Spy++ après conversion au décimal

    ' Je récupère le titre de la fenêtre
    Dim Titre As String, Longueur As Long
    Longueur = GetWindowTextLength(h) + 1
    Titre = Space(Longueur)
    GetWindowText h, Titre, Longueur
    
    AppActivate Titre
    SendKeys "%{F4}"

Sauf que ça marche pas : si j'envoie par exemple (Alt + F4) c'est mon exécutable qui se ferme, si j'envoie du texte ça passe pas 

Est-ce quelqu'un peut m'expliquer pourquoi ?

Merci d'avance

Julien237 · Accepted Answer

Salut,

(Excuse-moi je sais que tu as l'habitude de vouvoyer les gens sur le forum, mais je pense que j'en suis incapable )

Je ne connais pas bien le fonctionnement de SendKeys, mais tu peux aussi essayer keybd_event.
Ou encore plus simple, cette source de Renfield.

<hr size="2" width="100%" />Julien.

cs_Chatbour · Answer

Merci beaucoup Julien237

Problème avec SendKeys

2 réponses

Votre réponse

Discussions similaires