AutoIt Français

#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