[R] Interface GUI / Internet Explorer

Aide sur les Interfaces Graphique Utilisateurs (GUI).
Règles du forum
.
Répondre
toonsgy
Niveau 1
Niveau 1
Messages : 8
Enregistré le : jeu. 23 août 2007 14:27
Status : Hors ligne

[R] Interface GUI / Internet Explorer

#1

Message par toonsgy »

Salutation

Mon projet et de creer un system d'automatisation d'action sur certain pages internets...

pour plus de faciliter je voudrai que le programme affiche dans un GUI la pajes internet pour ne pas avoir un GUI où sont les boutton et une pasge Internet explorer à coté quelqu'un à t-il un code déjà prét...

un system du genre exist deja avec Ultimate autoit srcipt collection mais je n'arrive pas à l'adapter...

merci d'avance
Avatar du membre
sylvanie
Niveau 11
Niveau 11
Messages : 1550
Enregistré le : jeu. 26 juil. 2007 21:31
Localisation : Paris
Status : Hors ligne

#2

Message par sylvanie »

Bonsoir,
voici un exple :

Code : Tout sélectionner

#include <GUIConstants.au3>

; Simple example: Embedding an Internet Explorer Object inside an AutoIt GUI
;
; The full example is available in the test\ActiveX directory (TestXInternet.au3)
;
; See also: [url=http://msdn.microsoft.com/workshop/browser...netexplorer.asp]http://msdn.microsoft.com/workshop/browser...netexplorer.asp[/url]
$oIE = ObjCreate("Shell.Explorer.2")
; Create a simple GUI for our output
GUICreate ( "Embedded Web control Test", 640, 580,(@DesktopWidth-640)/2, (@DesktopHeight-580)/2 , $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)
$GUIActiveX = GUICtrlCreateObj ( $oIE, 10, 40 , 600 , 360 )
$GUI_Button_Back = GuiCtrlCreateButton ("Back", 10, 420, 100, 30)
$GUI_Button_Forward = GuiCtrlCreateButton ("Forward", 120, 420, 100, 30)
$GUI_Button_Home = GuiCtrlCreateButton ("Home", 230, 420, 100, 30)
$GUI_Button_Stop = GuiCtrlCreateButton ("Stop", 330, 420, 100, 30)
GUISetState () ;Show GUI
$oIE.navigate("http://autoitscript.olympe-network.com")
; Waiting for user to close the window
While 1
$msg = GUIGetMsg()

Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $GUI_Button_Home
$oIE.navigate("http://autoitscript.olympe-network.com")
Case $msg = $GUI_Button_Back
$oIE.GoBack
Case $msg = $GUI_Button_Forward
$oIE.GoForward
Case $msg = $GUI_Button_Stop
$oIE.Stop
EndSelect

Wend
GUIDelete ()
Exit
 
Toi qui cherche à mettre le doigt sur la solution, appuie sur F1.
Avatar du membre
Tlem
Site Admin
Site Admin
Messages : 11773
Enregistré le : ven. 20 juil. 2007 21:00
Localisation : Bordeaux
Status : Hors ligne

#3

Message par Tlem »

Vraiment, Vraiment trop gentil ce Sylvanie !!!
Thierry

Rechercher sur le forum ----- Les règles du forum
Le "ça ne marche pas" est une conséquence commune découlant de beaucoup trop de raisons potentielles ...

Une idée ne peut pas appartenir à quelqu'un. (Albert Jacquard) tiré du documentaire "Copié n'est pas volé".
Avatar du membre
sylvanie
Niveau 11
Niveau 11
Messages : 1550
Enregistré le : jeu. 26 juil. 2007 21:31
Localisation : Paris
Status : Hors ligne

#4

Message par sylvanie »

bah là sur le coups, c'est du réchauffé ressorti tout droit d'une archive , j'ai juste chanhé l'url :lol:
Toi qui cherche à mettre le doigt sur la solution, appuie sur F1.
Avatar du membre
Tlem
Site Admin
Site Admin
Messages : 11773
Enregistré le : ven. 20 juil. 2007 21:00
Localisation : Bordeaux
Status : Hors ligne

#5

Message par Tlem »

Thierry

Rechercher sur le forum ----- Les règles du forum
Le "ça ne marche pas" est une conséquence commune découlant de beaucoup trop de raisons potentielles ...

Une idée ne peut pas appartenir à quelqu'un. (Albert Jacquard) tiré du documentaire "Copié n'est pas volé".
toonsgy
Niveau 1
Niveau 1
Messages : 8
Enregistré le : jeu. 23 août 2007 14:27
Status : Hors ligne

#6

Message par toonsgy »

C'est super !!!

C'est exactement se qui me fau

Merci à tous les gens
Répondre