AutoIt Français

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <GuiTab.au3>
#include <IE.au3>
#include <WindowsConstants.au3>
Global $Tab[100], $oIE[100], $Obj[100]
Global $TabPos1 = 0, $TabPos2 = 40, $TabPos3 = 916, $TabPos4 = 496, $Count = 1, $HomePage, $LastPage
$HomePage = RegRead("HKCU\Software\Microsoft\Internet Explorer\Main", "Start Page")
Global $Form1 = GUICreate("Internet Browser By Jamesst20", 909, 531, 192, 124, $WS_OVERLAPPEDWINDOW)
Global $AdresseBar = GUICtrlCreateInput("", 0, 8, 290, 21)
Global $Button1 = GUICtrlCreateButton("<--", 336, 6, 75, 25, $WS_GROUP)
Global $Button2 = GUICtrlCreateButton("-->", 416, 6, 75, 25, $WS_GROUP)
Global $Button3 = GUICtrlCreateButton("Home", 504, 6, 75, 25, $WS_GROUP)
Global $Button4 = GUICtrlCreateButton("Refresh", 584, 6, 75, 25, $WS_GROUP)
Global $Button5 = GUICtrlCreateButton("Stop", 664, 6, 75, 25, $WS_GROUP)
Global $Button6 = GUICtrlCreateButton("New Tab", 744, 6, 75, 25, $WS_GROUP)
Global $Button7 = GUICtrlCreateButton("Close Tab", 824, 6, 75, 25, $WS_GROUP)
Global $Button8 = GUICtrlCreateButton("Go", 296, 6, 35, 25, $WS_GROUP)
Global $CreateTab = GUICtrlCreateTab($TabPos1, $TabPos2, $TabPos3, $TabPos4)
OpenTab(1, "Home")
$init = 0
$ancien = ""
GUISetState(@SW_SHOW)


While 1
_SetTitleWebsite()
_Rezizing()
Sleep(2)

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

Case $Button8, $AdresseBar
    Navigate(GetTab(), GUICtrlRead($AdresseBar))

Case $Button6
    OpenTab($Count, "Home")



Case $Button1
    _IEAction($oIE[GetTab()], "back")

Case $Button2
    _IEAction($oIE[GetTab()], "forward")

Case $Button3
    _IENavigate($oIE[GetTab()], $HomePage)

Case $Button4
    _IEAction($oIE[GetTab()], "refresh")

Case $Button5
    _IEAction($oIE[GetTab()], "stop")

Case $Button7
    _IEAction($oIE[GetTab()], "delete")
    GUICtrlDelete(GUICtrlRead($CreateTab, 1))
    $Count = $Count - 1


 EndSwitch
WEnd

Func OpenTab($oNum, $oLink = "")
    $Count += 1
    $Tab[$oNum] = GUICtrlCreateTabItem($oNum)
    $oIE[$oNum] = _IECreateEmbedded()
    $Obj[$oNum] = GUICtrlCreateObj($oIE[$oNum], $TabPos1, $TabPos2 + 25, $TabPos3 - 5, $TabPos4 - 29)
    GUICtrlSetResizing($Obj[$oNum], BitOR($GUI_DOCKLEFT, $GUI_DOCKRIGHT, $GUI_DOCKBOTTOM, $GUI_DOCKTOP))
    Navigate($oNum, $oLink)
        _GUICtrlTab_SetCurSel($CreateTab, $Count)
EndFunc   ;==>OpenTab

Func Navigate($nNum, $nLink)
    If $nLink = "" Then
        $nLink = "about&#058;blank"
        _IENavigate($oIE[$nNum], $nLink, 0)
        GUICtrlSetData($Tab[$nNum], "Blank Page")
    Else
        If $nLink = "Home"  Then
            $nLink = $HomePage
        ElseIf $nLink = "Last"  Then
            $nLink = $LastPage
        EndIf
        _IENavigate($oIE[$nNum], $nLink, 0)
    EndIf
EndFunc   ;==>Navigate

Func GetTab()
    Return _GUICtrlTab_GetCurSel($CreateTab) + 1
EndFunc   ;==>GetTab

Func _SetTitleWebsite()
    $nouveau = _IEPropertyGet($oIE[GetTab()], "locationurl")
    If $ancien <> $nouveau Then
        GUICtrlSetData($AdresseBar, $nouveau)
$nouveau2 = $nouveau
$nouveau3 = $nouveau
$nouveau2 = StringReplace($nouveau2, "http://", "")
$nouveau2 = StringReplace($nouveau2, "www.", "")
$nouveau2 = StringSplit($nouveau2, "/")
        GUICtrlSetData($Tab[GetTab()], $nouveau2[1])
        $nouveau3 = StringSplit($nouveau3, "/")
        WinSetTitle("Internet", "", "Internet Browser By Jamesst20 - " &$nouveau3[1] &"//" &$nouveau3[3])
        $ancien = $nouveau
    EndIf
EndFunc

Func _Rezizing()
    GUICtrlSetResizing($Button1 &$Button2 &$Button3 &$Button4 &$Button5 &$Button6 &$Button7 &$Button8, $GUI_DOCKALL)
    GUICtrlSetResizing($CreateTab, $GUI_DOCKAUTO + $GUI_DOCKBOTTOM + $GUI_DOCKTOP)
    EndFunc