Pedro
Nombre de messages : 1555
Date d'inscription : 19/01/2014
 | | Sujet: Lecture d'un objet externe à Panoramic. Mer 14 Juin 2017 - 18:09 | |
| Bonjour. @Klaus. Je tente vainement de lire les éléments d'un objet externe. J'obtiens le message ' List1', lors de la lecture du presse-papiers, et non l'élément sélectionné par programme. Qu'en penses-tu ? Merci de ton aide. - Code:
-
dim a$, hnd%, res%, txt$, i%, s$, x%, y%
dim x1%, y1%, x2%, y2%
' Position du mot recherché (écran de gauche).
x1%=832:y1%=140
' Position du menu 'Edition'.
x2%=935:y2%=42
dll_on "kgf.dll"
clipboard_string_copy ""
left 0,-500
memo 1 : full_space 1
hnd%=dll_call2("GetObjectUnderPosition",x1%,y1%)
' message str$(hnd%)
txt$=""
a$=""
res%=dll_call2("AbsoluteMouseLeftClick",x1%,y1%)
wait 500
' Edition.
res%=dll_call2("AbsoluteMouseLeftClick",x2%,y2%)
wait 500
' Clic sur 'Copier'.
res%=dll_call2("AbsoluteMousePosition",x2%,y2%+45)
res%=dll_call2("AbsoluteMouseLeftClick",x2%,y2%+45)
wait 500
' res%=dll_call5("SendSingleKey",hnd%,67,1,0,0) : ' envoyer ctrl/C
' wait 500
' message "'"+clipboard_string_paste$+"'"
' res%=dll_call5("SendSingleKey",hnd%,40,0,1,0) : ' envoyer flèche vers le bas
' wait 300
' res%=dll_call5("SendSingleKey",hnd%,40,0,1,0) : ' envoyer flèche vers le bas
' wait 300
' res%=dll_call5("SendSingleKey",hnd%,13,0,1,0) : ' envoyer enter
' wait 200
res%=DLL_call1("ClipboardCopy",hnd%)
' res%=DLL_call1("CopyToClipboard",hnd%)
' txt$ = string$(255," ")
' res% = DLL_call1("GetSelectedText",adr(txt$))
' message "Le texte sélectionné est: "+trim$(txt$)
' if clipboard_string_paste$<>a$
a$=clipboard_string_paste$
message "'"+a$+"'"
if a$="" then exit_for
txt$=txt$+" "+a$
clipboard_string_copy ""
' end_if
wait 500
item_add 1,txt$
txt$=""
dll_off | |
|
Klaus
Nombre de messages : 12295
Age : 74
Localisation : Ile de France
Date d'inscription : 29/12/2009
| | Sujet: Re: Lecture d'un objet externe à Panoramic. Mer 14 Juin 2017 - 19:47 | |
| Je ne vois pas bien où j'aurais "List1"... Si j'exécute cela chez moi, j'obtiens le contenu de l'Editeur Panoramic (ce source précisément) dans le presse-papier et dans le petit mémo de gauche. Ce qui est normal. | |
|
Pedro
Nombre de messages : 1555
Date d'inscription : 19/01/2014
| | Sujet: Lecture d'un objet externe à Panoramic. Mer 14 Juin 2017 - 19:59 | |
| Bonsoir.
Ce résultat est obtenu, en fait, en lançant le logiciel Promt.
Mais j'ai souvenir que tu n'avais pas réussi à l'installer. | |
|
Contenu sponsorisé
| | Sujet: Re: Lecture d'un objet externe à Panoramic. | |
| |
|
Calendrier