Page 1 sur 1

[R] Inserer un widget

Posté : jeu. 27 août 2009 11:44
par touslesmatins
est-ce qu’on peut insérer un widget dans AutoIt ?
Je cherche à intégrer quelque chose de simple et interactif, un peu dans l’esprit de certains outils en ligne comme nation.ai, pour afficher ou manipuler des infos directement dans l’interface.

Voici ce que j’aimerais mettre.

Code : Tout sélectionner

<div id="cont_03fe390b7b429bf44e199822cf70a6cf"><a href="http://www.tameteo.com/meteo_Bristol-Europe-Royaume+Uni-Bristol-EGGD-1-9093.html" target="_blank" title="M&eacute;t&eacute;o Bristol">M&eacute;t&eacute;o Bristol</a><script type="text/javascript" src="http://www.tameteo.com/wid_loader/03fe390b7b429bf44e199822cf70a6cf"></script></div>
Merci pour votre aide.

Re: [..] Inserer un widget

Posté : jeu. 27 août 2009 12:12
par Iste
"Suffit" de créer un objet IE, de créer un html contenant cela, et de faire naviguer l'objet dessus.
Tu peux voir dans la doc a _IECreateEmbedded() l'exemple, pour savoir comment faire.

edit :

Code : Tout sélectionner

; *******************************************************
; Example 1 - Trap COM errors so that 'Back' and 'Forward' 
;               outside of history bounds does not abort script 
;               (expect COM errors to be sent to the console)
; *******************************************************
;
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>

_IEErrorHandlerRegister ()

$oIE = _IECreateEmbedded ()
GUICreate("Embedded Web control Test", 500, 500)
$GUIActiveX = GUICtrlCreateObj($oIE, 0, 0, 350, 370)

GUISetState()       ;Show GUI

FileWrite("c:\test.html",'<div id="cont_03fe390b7b429bf44e199822cf70a6cf"><a href="http://www.tameteo.com/meteo_Bristol-Europe-Royaume+Uni-Bristol-EGGD-1-9093.html" target="_blank" title="M&eacute;t&eacute;o Bristol">M&eacute;t&eacute;o Bristol</a><script type="text/javascript" src="http://www.tameteo.com/wid_loader/03fe390b7b429bf44e199822cf70a6cf"></script></div>')

_IENavigate ($oIE, "c:\test.html")

; Waiting for user to close the window
While 1
    $msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
            ExitLoop
    EndSelect
WEnd

GUIDelete()

Exit

Re: [..] Inserer un widget

Posté : jeu. 27 août 2009 17:32
par touslesmatins
Merci Iste pour votre célérité, c'est parfait.
:)