OVH Cloud OVH Cloud

Utilisation de PostMessage

2 réponses
Avatar
Kiriasse
Bonjour,

J'ai trouvé sur Internet un bout de code qui m'intéresse et que j'aimerais
savoir compléter.
Qui pourrait y jeter un ½il et m'aider ?
Ce petit programme est téléchargeable en cliquant sur :
http://www.kiriasse.fr/documents_tmp/postmessage.zip

Merci d'avance.

2 réponses

Avatar
Picalausa François
Hello,

Les messages WM_COPY et WM_PASTE sont peut-être plus appropriés?
Sinon, WM_SETTEXT (ou SetWindowText) en fonction de la fenêtre de
destination.
Pour émuler l'emploi du clavier, tu peux aussi envoyer la fonction built-in
de VB SendKeys. Ou encore les API keybd_event ou SendInput

Si tu veux utiliser WM_KEYDOWN, tu peux essayer la fonction
OemKeyScan
qui renverra le scancode en fonction du caractère ascii et la touche
"supplémentaire" à appuyer (shift, ctrl, ...).

--
Picalausa François
"Kiriasse" a écrit dans le message de news:
42d8ffae$0$22306$
Bonjour,

J'ai trouvé sur Internet un bout de code qui m'intéresse et que j'aimerais
savoir compléter.
Qui pourrait y jeter un ½il et m'aider ?
Ce petit programme est téléchargeable en cliquant sur :
http://www.kiriasse.fr/documents_tmp/postmessage.zip

Merci d'avance.







Avatar
Kiriasse
Merci beaucoup, François, d'avoir pris cette peine de télécharger et de
regarder ce petit programme. Vous m'avez mis sur la bonne voie.
C'est vrai. Les constantes WM_COPY et WM_PASTE sont très simples à utiliser.
Pourquoi diable n'y ai-je pas pensé ?
Et on peut remplacer, dans le cas qui me préoccupe, WM_COPY par ces deux
lignes :
Clipboard Clear
Clipboard.SetText sCar

On peut même écrire (ce que je cherchais à obtenir, entre autres choses) :
If sCar = "«" Then sCar = "« " ' on prévoit l'espace insécable qui suit
toujours.
If sCar = "»" Then sCar = " »" ' on prévoit l'espace insécable qui précède
toujours.

Encore merci.
Jean-Claude

== "Picalausa François"
Hello,

Les messages WM_COPY et WM_PASTE sont peut-être plus appropriés?
Sinon, WM_SETTEXT (ou SetWindowText) en fonction de la fenêtre de
destination.
Pour émuler l'emploi du clavier, tu peux aussi envoyer la fonction
built-in de VB SendKeys. Ou encore les API keybd_event ou SendInput

Si tu veux utiliser WM_KEYDOWN, tu peux essayer la fonction
OemKeyScan
qui renverra le scancode en fonction du caractère ascii et la touche
"supplémentaire" à appuyer (shift, ctrl, ...).