AutoIt Français

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#include <string.au3>

Dim $s_html
_IEErrorHandlerRegister ()
$ie = _IECreateEmbedded ()


#Region ### START Koda GUI section ### Form=c:\users\maxime(01)\desktop\mes programmes\web browser.kxf
Global $Form2 = GUICreate("NociifWebBrowser", 1274, 531, 42, 103, BitOR($WS_MAXIMIZEBOX,$WS_MINIMIZEBOX,$WS_SIZEBOX,$WS_THICKFRAME,$WS_SYSMENU,$WS_CAPTION,$WS_OVERLAPPEDWINDOW,$WS_TILEDWINDOW,$WS_MAXIMIZE,$WS_POPUP,$WS_POPUPWINDOW,$WS_GROUP,$WS_TABSTOP,$WS_BORDER,$WS_CLIPSIBLINGS))
GUISetBkColor(0xFFFFFF)
Global $Label1 = GUICtrlCreateLabel("URL:", 16, 8, 41, 24, $SS_CENTER)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
Global $Input1 = GUICtrlCreateInput("", 64, 8, 961, 21)
Global $Button1 = GUICtrlCreateButton("Go", 1040, 8, 41, 25, $WS_GROUP)
Global $Button2 = GUICtrlCreateButton("<=", 1088, 8, 49, 25, $WS_GROUP)
Global $Button3 = GUICtrlCreateButton("=>", 1144, 8, 49, 25, $WS_GROUP)
Global $Button4 = GUICtrlCreateButton("Actualiser", 1200, 8, 57, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
Global $Form2_AccelTable[1][2] = [["{ENTER}", $Button1]]
GUISetAccelerators($Form2_AccelTable)
#EndRegion ### END Koda GUI section ###


GuiSetState()
$inter = GUICtrlCreateObj($ie,0, 50, 1365, 650)
$SinkObject=ObjEvent($ie,"IEEvent_","DWebBrowserEvents")
GUICtrlSetResizing($inter, $GUI_DOCKAUTO + $GUI_DOCKBOTTOM + $GUI_DOCKTOP)
GUICtrlSetResizing($Input1, $GUI_DOCKRIGHT + $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKHEIGHT)
_IENavigate ($ie, "http://www.google.fr")



While 1

$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit




Case $Button1
_IENavigate ($ie, GUICtrlRead($Input1))



Case $Button2
_IEAction ($IE, "back")

Case $Button3
_IEAction ($IE, "forward")

Case $Button4
_IEAction($ie, "refresh")


EndSwitch
WEnd

Code : Tout sélectionner

GUICtrlSetResizing($Input1, $GUI_DOCKRIGHT + $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKHEIGHT)

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#include <string.au3>

Dim $s_html
_IEErrorHandlerRegister ()
$ie = _IECreateEmbedded ()

#Region ### START Koda GUI section ### Form=c:\users\maxime(01)\desktop\mes programmes\web browser.kxf
Global $Form2 = GUICreate("NociifWebBrowser", 1274, 531, 42, 103, BitOR($WS_MAXIMIZEBOX,$WS_MINIMIZEBOX,$WS_SIZEBOX,$WS_THICKFRAME,$WS_SYSMENU,$WS_CAPTION,$WS_OVERLAPPEDWINDOW,$WS_TILEDWINDOW,$WS_MAXIMIZE,$WS_POPUP,$WS_POPUPWINDOW,$WS_GROUP,$WS_TABSTOP,$WS_BORDER,$WS_CLIPSIBLINGS))
GUISetBkColor(0xFFFFFF)
Global $Label1 = GUICtrlCreateLabel("URL:", 16, 8, 41, 24, $SS_CENTER)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
Global $Input1 = GUICtrlCreateInput("", 64, 8, 961, 21)
Global $Button1 = GUICtrlCreateButton("Go", 1040, 8, 41, 25, $WS_GROUP)
Global $Button2 = GUICtrlCreateButton("<=", 1088, 8, 49, 25, $WS_GROUP)
Global $Button3 = GUICtrlCreateButton("=>", 1144, 8, 49, 25, $WS_GROUP)
Global $Button4 = GUICtrlCreateButton("Actualiser", 1200, 8, 57, 25, $WS_GROUP)
Global $inter = GUICtrlCreateObj($ie,20, 50, 1365, 650)
Global $SinkObject=ObjEvent($ie,"IEEvent_","DWebBrowserEvents")
Global $Form2_AccelTable[1][2] = [["{ENTER}", $Button1]]
GUISetAccelerators($Form2_AccelTable)
#EndRegion ### END Koda GUI section ###

GUICtrlSetResizing($Label1,  $GUI_DOCKLEFT+$GUI_DOCKTOP  + $GUI_DOCKSIZE)
GUICtrlSetResizing($Input1,  $GUI_DOCKLEFT+$GUI_DOCKTOP  + $GUI_DOCKHEIGHT+$GUI_DOCKRIGHT)
GUICtrlSetResizing($Button1, $GUI_DOCKRIGHT+$GUI_DOCKTOP + $GUI_DOCKSIZE)
GUICtrlSetResizing($Button2, $GUI_DOCKRIGHT+$GUI_DOCKTOP + $GUI_DOCKSIZE)
GUICtrlSetResizing($Button3, $GUI_DOCKRIGHT+$GUI_DOCKTOP + $GUI_DOCKSIZE)
GUICtrlSetResizing($Button4, $GUI_DOCKRIGHT+$GUI_DOCKTOP + $GUI_DOCKSIZE)
GUICtrlSetResizing($inter,   $GUI_DOCKBORDERS)

GUISetState(@SW_SHOW)

_IENavigate ($ie, "http://www.google.fr")

While 1

$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit




Case $Button1
_IENavigate ($ie, GUICtrlRead($Input1))



Case $Button2
_IEAction ($IE, "back")

Case $Button3
_IEAction ($IE, "forward")

Case $Button4
_IEAction($ie, "refresh")


EndSwitch
WEnd