Bug:
- Lorsque on Agrandi le navigateur et que l'on ouvre un Onglet
- Bug lorsque on ouvre un Onglet: Il faut retournet sur le premier et deuxieme onglet plusieurs fois avant que cela fonctionne
- Il y en a plusieurs autres.. À vous de les découvrirs
► Afficher le texteNavigateur Internet avec Tab
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: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