Pedro
Nombre de messages : 1595 Date d'inscription : 19/01/2014
| Sujet: Problème d'envoi de touches à une fenêtre. Mar 7 Juil 2015 - 15:20 | |
| @Klaus. Bonjour. J'essaye vainement d'envoyer des touches clavier à une fenêtre indépendante de Panoramic. Mais apparemment cela ne fonctionne pas correctement. Merci Klaus de ton aide. Voici l'adresse de l'application (à installer) vers laquelle je souhaiterais envoyer une séquence de touches. Ce qui me permettrait d'obtenir les traductions d'un mot en anglais. http://www.toucharger.com/fiches/windows/le-robert-collins/73910.htm - Code:
-
dim hnd%, res%, car$, txt$, titre$
dll_on "kgf"
titre$="Collins" hnd%=dll_call2("GetWindowByTitle",1,adr(titre$)) ' message str$(hnd%)
car$=chr$(9) : ' tab res%=dll_call2("SendSingleChar",hnd%,adr(car$)) car$=chr$(9) : ' tab res%=dll_call2("SendSingleChar",hnd%,adr(car$)) car$=chr$(9) : ' tab res%=dll_call2("SendSingleChar",hnd%,adr(car$))
txt$="manger" res%=dll_call2("SendString",hnd%,adr(txt$))
car$=chr$(13) : ' enter res%=dll_call2("SendSingleChar",hnd%,adr(car$))
res%=dll_call5("SendSingleKey",hnd%,67,1,0,0) : ' envoyer ctrl/C
dll_off | |
|
Klaus
Nombre de messages : 12331 Age : 75 Localisation : Ile de France Date d'inscription : 29/12/2009
| Sujet: Re: Problème d'envoi de touches à une fenêtre. Mar 7 Juil 2015 - 19:09 | |
| Essaie comme ça: - Code:
-
dim hnd%, res%, car$, txt$, titre$, i%, c%
dll_on "kgf"
titre$="Collins" hnd%=dll_call2("GetWindowByTitle",1,adr(titre$))
res%=dll_call5("SendSingleKey",hnd%,9,0,0,0) : ' envoyer TAB res%=dll_call5("SendSingleKey",hnd%,9,0,0,0) : ' envoyer TAB res%=dll_call5("SendSingleKey",hnd%,9,0,0,0) : ' envoyer TAB
txt$="manger" for i%=1 to len(txt$) res%=dll_call5("SendSingleKey",hnd%,asc(upper$(mid$(txt$,i%,1))),0,0,0) : ' envoyer ctrl/I next i%
res%=dll_call5("SendSingleKey",hnd%,77,1,0,0) : ' envoyer ctrl/M wait 50
res%=dll_call5("SendSingleKey",hnd%,65,1,0,0) : ' envoyer ctrl/A res%=dll_call5("SendSingleKey",hnd%,67,1,0,0) : ' envoyer ctrl/C
dll_off
Il y a d'autres techniques, mais celle-ci marche. J'ai installé le logiciel en question pour tester cela. | |
|