J'ai 2 questions.
La première, si on peu récupérer l'url du site visité (pas celle de l'input qui peu être différente)
La deuxième, lorsque je click sur "entrer" après avoir mis mon adresse dans la barre, rien ne se passe, il faut que je click sur le bouton.
► Afficher le texte
#include <Array.au3>
#include <ButtonConstants.au3>
#include <Constants.au3>
#include <GUIConstantsEx.au3>
#include <IE.au3>
#include <Inet.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$width = 800
$height = 600
$couleur = 0xFFFFFF
Global $aUtil_MinMax[4], $SITE, $TempArray
$titre = "Alarme Maison sans fil"
SplashTextOn($titre, "Chargement en cours...", 220, 40, -1, -1, 32)
$google_create = ObjCreate("Shell.Explorer.2")
; Adresse IP externe
$PublicIP = _GetIP()
; ip freebox
$ping_freebox = Ping("192.168.0.254",250)
If $ping_freebox Then
$ping_freebox = "|192.168.0.254"
Else
$ping_freebox = ""
EndIf
; ip neuf/sfr
$ping_neufsfr = Ping("192.168.0.1",250)
If $ping_neufsfr Then
$ping_neufsfr = "|192.168.0.1"
Else
$ping_neufsfr = ""
EndIf
; ip orange
$ping_orange = Ping("192.168.1.1",250)
If $ping_orange Then
$ping_orange = "|192.168.1.1"
Else
$ping_orange = ""
EndIf
$google_favoris = "http://www.google.fr/|http://" & $PublicIP & "|www.free.fr/|www.orange.fr/|www.sfr.fr/" & $ping_freebox & $ping_neufsfr & $ping_orange
$GUI = GUICreate($titre, $width, $height, -1, -1, $WS_MAXIMIZEBOX + $WS_MINIMIZEBOX + $WS_SIZEBOX)
; couleur fenetre
GUISetBkColor($couleur)
;;; Retourner sur la Page d'Accueil
$google_Home = GUICtrlCreateButton("", 10, 15, 30, 30, $BS_ICON)
GUICtrlSetImage(-1, @AutoItExe, 201,0)
GUICtrlSetTip($google_Home, "Retourner sur la Page d'Accueil")
GUICtrlSetCursor($google_Home, 0)
;;; Arrêter le Chargement de la Page
$google_Stop = GUICtrlCreateButton("", 50, 15, 30, 30, $BS_ICON)
GUICtrlSetImage(-1, @AutoItExe, 202,0)
GUICtrlSetTip($google_Stop, "Arrêter le Chargement de la Page")
GUICtrlSetCursor($google_Stop, 0)
;;; Actualiser la Page Courante
$google_REFRESH = GUICtrlCreateButton("", 90, 15, 30, 30, $BS_ICON)
GUICtrlSetImage(-1, @AutoItExe, 203,0)
GUICtrlSetTip($google_REFRESH, "Actualiser la Page Courante")
GUICtrlSetCursor($google_REFRESH, 0)
;;; Imprimer la Page Courante
$google_PRINT = GUICtrlCreateButton("", 130, 15, 30, 30, $BS_ICON)
GUICtrlSetImage(-1, @AutoItExe, 204,0)
GUICtrlSetTip($google_PRINT, "Imprimer la Page Courante")
GUICtrlSetCursor($google_PRINT, 0)
;;; là ou on note les liens
$google_Adresse = GUICtrlCreateCombo("http://www.alarme-maison-sans-fil.fr/", 170, 17, $width - 220, 20)
GUICtrlSetData(-1, $google_favoris) ; add other item snd set a new default
GUICtrlSetFont(-1, 10, -1, -1, "Tahoma")
;;; Valider l'Adresse
$google_LOAD = GUICtrlCreateButton("", $width - 40, 15, 30, 30, $BS_ICON)
GUICtrlSetImage(-1, @AutoItExe, 205,0)
GUICtrlSetTip($google_LOAD, "Valider l'Adresse")
GUICtrlSetCursor($google_LOAD, 0)
;Définition du Footer (StatusBar)
$google_GroupFinal = GUICtrlCreateGroup("", 10, $height - 65, $width - 20, 30)
$google_Statut = GUICtrlCreateLabel("", 15, $height - 55, $width - 190, 15)
$google_ProgressPage = GUICtrlCreateProgress($width - 170, $height - 55, 150, 15, $PBS_SMOOTH)
; Fenetre de connexion
$google_create = _IECreateEmbedded()
$google_create_OBJ = GUICtrlCreateObj($google_create, 10, 60, $width - 20, $height - 130)
ObjEvent($google_create, "IEEvent_", "DWebBrowserEvents")
;Informations sur le Redimentionnement
GUICtrlSetResizing($google_create_OBJ, $GUI_DOCKRIGHT + $GUI_DOCKLEFT + $GUI_DOCKBOTTOM + $GUI_DOCKTOP)
GUICtrlSetResizing($google_Home, $GUI_DOCKLEFT + $GUI_DOCKSIZE + $GUI_DOCKTOP)
GUICtrlSetResizing($google_Stop, $GUI_DOCKLEFT + $GUI_DOCKSIZE + $GUI_DOCKTOP)
GUICtrlSetResizing($google_REFRESH, $GUI_DOCKLEFT + $GUI_DOCKSIZE + $GUI_DOCKTOP)
GUICtrlSetResizing($google_PRINT, $GUI_DOCKLEFT + $GUI_DOCKSIZE + $GUI_DOCKTOP)
GUICtrlSetResizing($google_Adresse, $GUI_DOCKRIGHT + $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKHEIGHT)
GUICtrlSetResizing($google_LOAD, $GUI_DOCKRIGHT + $GUI_DOCKSIZE + $GUI_DOCKTOP)
GUICtrlSetResizing($google_Statut, $GUI_DOCKLEFT + $GUI_DOCKBOTTOM + $GUI_DOCKHEIGHT)
GUICtrlSetResizing($google_GroupFinal, $GUI_DOCKRIGHT + $GUI_DOCKBOTTOM + $GUI_DOCKLEFT + $GUI_DOCKHEIGHT)
GUICtrlSetResizing($google_ProgressPage, $GUI_DOCKRIGHT + $GUI_DOCKBOTTOM + $GUI_DOCKHEIGHT)
GUICtrlCreateTabItem(""); fin de tabitem definition
;;; fin de l'affichage du texte
SplashOff()
GUISetState(@SW_SHOW) ; will display an empty dialog box
InitMinMax($width + 14, $height + 14) ; C'est ici que l'on règle les valeurs Min de la fenêtre.
$google_create.navigate("http://www.alarme-maison-sans-fil.fr/")
; Run the GUI until the dialog is closed
While 1
$msg = GUIGetMsg()
If $msg = $GUI_EVENT_CLOSE Then
Exit
EndIf
Select
;Charge l'URL dans la Barre d'Adresses
Case $msg = $google_LOAD
_IENavigate($google_create, GUICtrlRead($google_Adresse), 0)
; Retourner sur la Page d'Accueil
Case $msg = $google_Home
_IEAction($google_create, "home")
;Arrète le chargement de la page
Case $msg = $google_Stop
_IEAction($google_create, "stop")
;Rafraichissement de la page
Case $msg = $google_REFRESH
_IEAction($google_create, "refresh")
; Imprimer la page
Case $msg = $google_PRINT
_IEAction($google_create, "print")
EndSelect
WEnd
Func InitMinMax($x0, $y0)
Local Const $WM_GETMINMAXINFO = 0x24
$aUtil_MinMax[0] = $x0
$aUtil_MinMax[1] = $y0
GUIRegisterMsg($WM_GETMINMAXINFO, 'MY_WM_GETMINMAXINFO')
EndFunc ;==>InitMinMax
Func MY_WM_GETMINMAXINFO($hWnd, $msg, $wParam, $lParam)
Local $minmaxinfo = DllStructCreate('int;int;int;int;int;int;int;int;int;int', $lParam)
DllStructSetData($minmaxinfo, 7, $aUtil_MinMax[0]); min X
DllStructSetData($minmaxinfo, 8, $aUtil_MinMax[1]); min Y
Return $GUI_RUNDEFMSG
EndFunc ;==>MY_WM_GETMINMAXINFO
Func IEEvent_StatusTextChange($TEXT)
GUICtrlSetData($google_Statut, $TEXT)
EndFunc ;==>IEEvent_StatusTextChange
Func IEEvent_ProgressChange($PROGRESS, $PROGRESS_MAX)
If $PROGRESS_MAX > 0 Then
GUICtrlSetData($google_ProgressPage, ($PROGRESS * 100) / $PROGRESS_MAX)
EndIf
EndFunc ;==>IEEvent_ProgressChange
#include <ButtonConstants.au3>
#include <Constants.au3>
#include <GUIConstantsEx.au3>
#include <IE.au3>
#include <Inet.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$width = 800
$height = 600
$couleur = 0xFFFFFF
Global $aUtil_MinMax[4], $SITE, $TempArray
$titre = "Alarme Maison sans fil"
SplashTextOn($titre, "Chargement en cours...", 220, 40, -1, -1, 32)
$google_create = ObjCreate("Shell.Explorer.2")
; Adresse IP externe
$PublicIP = _GetIP()
; ip freebox
$ping_freebox = Ping("192.168.0.254",250)
If $ping_freebox Then
$ping_freebox = "|192.168.0.254"
Else
$ping_freebox = ""
EndIf
; ip neuf/sfr
$ping_neufsfr = Ping("192.168.0.1",250)
If $ping_neufsfr Then
$ping_neufsfr = "|192.168.0.1"
Else
$ping_neufsfr = ""
EndIf
; ip orange
$ping_orange = Ping("192.168.1.1",250)
If $ping_orange Then
$ping_orange = "|192.168.1.1"
Else
$ping_orange = ""
EndIf
$google_favoris = "http://www.google.fr/|http://" & $PublicIP & "|www.free.fr/|www.orange.fr/|www.sfr.fr/" & $ping_freebox & $ping_neufsfr & $ping_orange
$GUI = GUICreate($titre, $width, $height, -1, -1, $WS_MAXIMIZEBOX + $WS_MINIMIZEBOX + $WS_SIZEBOX)
; couleur fenetre
GUISetBkColor($couleur)
;;; Retourner sur la Page d'Accueil
$google_Home = GUICtrlCreateButton("", 10, 15, 30, 30, $BS_ICON)
GUICtrlSetImage(-1, @AutoItExe, 201,0)
GUICtrlSetTip($google_Home, "Retourner sur la Page d'Accueil")
GUICtrlSetCursor($google_Home, 0)
;;; Arrêter le Chargement de la Page
$google_Stop = GUICtrlCreateButton("", 50, 15, 30, 30, $BS_ICON)
GUICtrlSetImage(-1, @AutoItExe, 202,0)
GUICtrlSetTip($google_Stop, "Arrêter le Chargement de la Page")
GUICtrlSetCursor($google_Stop, 0)
;;; Actualiser la Page Courante
$google_REFRESH = GUICtrlCreateButton("", 90, 15, 30, 30, $BS_ICON)
GUICtrlSetImage(-1, @AutoItExe, 203,0)
GUICtrlSetTip($google_REFRESH, "Actualiser la Page Courante")
GUICtrlSetCursor($google_REFRESH, 0)
;;; Imprimer la Page Courante
$google_PRINT = GUICtrlCreateButton("", 130, 15, 30, 30, $BS_ICON)
GUICtrlSetImage(-1, @AutoItExe, 204,0)
GUICtrlSetTip($google_PRINT, "Imprimer la Page Courante")
GUICtrlSetCursor($google_PRINT, 0)
;;; là ou on note les liens
$google_Adresse = GUICtrlCreateCombo("http://www.alarme-maison-sans-fil.fr/", 170, 17, $width - 220, 20)
GUICtrlSetData(-1, $google_favoris) ; add other item snd set a new default
GUICtrlSetFont(-1, 10, -1, -1, "Tahoma")
;;; Valider l'Adresse
$google_LOAD = GUICtrlCreateButton("", $width - 40, 15, 30, 30, $BS_ICON)
GUICtrlSetImage(-1, @AutoItExe, 205,0)
GUICtrlSetTip($google_LOAD, "Valider l'Adresse")
GUICtrlSetCursor($google_LOAD, 0)
;Définition du Footer (StatusBar)
$google_GroupFinal = GUICtrlCreateGroup("", 10, $height - 65, $width - 20, 30)
$google_Statut = GUICtrlCreateLabel("", 15, $height - 55, $width - 190, 15)
$google_ProgressPage = GUICtrlCreateProgress($width - 170, $height - 55, 150, 15, $PBS_SMOOTH)
; Fenetre de connexion
$google_create = _IECreateEmbedded()
$google_create_OBJ = GUICtrlCreateObj($google_create, 10, 60, $width - 20, $height - 130)
ObjEvent($google_create, "IEEvent_", "DWebBrowserEvents")
;Informations sur le Redimentionnement
GUICtrlSetResizing($google_create_OBJ, $GUI_DOCKRIGHT + $GUI_DOCKLEFT + $GUI_DOCKBOTTOM + $GUI_DOCKTOP)
GUICtrlSetResizing($google_Home, $GUI_DOCKLEFT + $GUI_DOCKSIZE + $GUI_DOCKTOP)
GUICtrlSetResizing($google_Stop, $GUI_DOCKLEFT + $GUI_DOCKSIZE + $GUI_DOCKTOP)
GUICtrlSetResizing($google_REFRESH, $GUI_DOCKLEFT + $GUI_DOCKSIZE + $GUI_DOCKTOP)
GUICtrlSetResizing($google_PRINT, $GUI_DOCKLEFT + $GUI_DOCKSIZE + $GUI_DOCKTOP)
GUICtrlSetResizing($google_Adresse, $GUI_DOCKRIGHT + $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKHEIGHT)
GUICtrlSetResizing($google_LOAD, $GUI_DOCKRIGHT + $GUI_DOCKSIZE + $GUI_DOCKTOP)
GUICtrlSetResizing($google_Statut, $GUI_DOCKLEFT + $GUI_DOCKBOTTOM + $GUI_DOCKHEIGHT)
GUICtrlSetResizing($google_GroupFinal, $GUI_DOCKRIGHT + $GUI_DOCKBOTTOM + $GUI_DOCKLEFT + $GUI_DOCKHEIGHT)
GUICtrlSetResizing($google_ProgressPage, $GUI_DOCKRIGHT + $GUI_DOCKBOTTOM + $GUI_DOCKHEIGHT)
GUICtrlCreateTabItem(""); fin de tabitem definition
;;; fin de l'affichage du texte
SplashOff()
GUISetState(@SW_SHOW) ; will display an empty dialog box
InitMinMax($width + 14, $height + 14) ; C'est ici que l'on règle les valeurs Min de la fenêtre.
$google_create.navigate("http://www.alarme-maison-sans-fil.fr/")
; Run the GUI until the dialog is closed
While 1
$msg = GUIGetMsg()
If $msg = $GUI_EVENT_CLOSE Then
Exit
EndIf
Select
;Charge l'URL dans la Barre d'Adresses
Case $msg = $google_LOAD
_IENavigate($google_create, GUICtrlRead($google_Adresse), 0)
; Retourner sur la Page d'Accueil
Case $msg = $google_Home
_IEAction($google_create, "home")
;Arrète le chargement de la page
Case $msg = $google_Stop
_IEAction($google_create, "stop")
;Rafraichissement de la page
Case $msg = $google_REFRESH
_IEAction($google_create, "refresh")
; Imprimer la page
Case $msg = $google_PRINT
_IEAction($google_create, "print")
EndSelect
WEnd
Func InitMinMax($x0, $y0)
Local Const $WM_GETMINMAXINFO = 0x24
$aUtil_MinMax[0] = $x0
$aUtil_MinMax[1] = $y0
GUIRegisterMsg($WM_GETMINMAXINFO, 'MY_WM_GETMINMAXINFO')
EndFunc ;==>InitMinMax
Func MY_WM_GETMINMAXINFO($hWnd, $msg, $wParam, $lParam)
Local $minmaxinfo = DllStructCreate('int;int;int;int;int;int;int;int;int;int', $lParam)
DllStructSetData($minmaxinfo, 7, $aUtil_MinMax[0]); min X
DllStructSetData($minmaxinfo, 8, $aUtil_MinMax[1]); min Y
Return $GUI_RUNDEFMSG
EndFunc ;==>MY_WM_GETMINMAXINFO
Func IEEvent_StatusTextChange($TEXT)
GUICtrlSetData($google_Statut, $TEXT)
EndFunc ;==>IEEvent_StatusTextChange
Func IEEvent_ProgressChange($PROGRESS, $PROGRESS_MAX)
If $PROGRESS_MAX > 0 Then
GUICtrlSetData($google_ProgressPage, ($PROGRESS * 100) / $PROGRESS_MAX)
EndIf
EndFunc ;==>IEEvent_ProgressChange
