#cs ----------------------------------------------------------------------------

	Author: Pad
	Version: beta
	Kommentare: new tabs...

#ce ----------------------------------------------------------------------------

#include<GUIConstantsEx.au3>
#include<IE.au3>

HotKeySet("{LEFT}", "_back")
HotKeySet("{RIGHT}", "_forward")
HotKeySet("{DOWN}", "_refresh")

Global $numTabs = 4
Global $textTabs = "Tab"

$IE1 = _IECreateEmbedded()
$IE2 = _IECreateEmbedded()
$IE3 = _IECreateEmbedded()
$IE4 = _IECreateEmbedded()
$IE5 = _IECreateEmbedded()
$IE6 = _IECreateEmbedded()
$IE7 = _IECreateEmbedded()
$IE8 = _IECreateEmbedded()
$IE9 = _IECreateEmbedded()
$IE10 = _IECreateEmbedded()
$IE11 = _IECreateEmbedded()
$IE12 = _IECreateEmbedded()

$frm_haupt = GUICreate("Webbrowser", 1500, 750, 200, 125)
GUICtrlSetFont(-1, 11, 800, 0, "Palatino Linotype")
$btn_tab = GUICtrlCreateButton("Neuer Tab", 18, 28, 75, 25)
GUICtrlSetState($btn_tab, @SW_SHOW)
$btn_tab1 = GUICtrlCreateButton("Neuer Tab", 18, 28, 75, 25)
GUICtrlSetState($btn_tab1, @SW_HIDE)
$btn_tab2 = GUICtrlCreateButton("Neuer Tab", 18, 28, 75, 25)
GUICtrlSetState($btn_tab2, @SW_HIDE)
$btn_tab3 = GUICtrlCreateButton("Neuer Tab", 18, 28, 75, 25)
GUICtrlSetState($btn_tab3, @SW_HIDE)
$btn_tab4 = GUICtrlCreateButton("Neuer Tab", 18, 28, 75, 25)
GUICtrlSetState($btn_tab4, @SW_HIDE)
$btn_tab5 = GUICtrlCreateButton("Neuer Tab", 18, 28, 75, 25)
GUICtrlSetState($btn_tab5, @SW_HIDE)
$btn_tab6 = GUICtrlCreateButton("Neuer Tab", 18, 28, 75, 25)
GUICtrlSetState($btn_tab6, @SW_HIDE)
$btn_tab7 = GUICtrlCreateButton("Neuer Tab", 18, 28, 75, 25)
GUICtrlSetState($btn_tab7, @SW_HIDE)
$btn_tab8 = GUICtrlCreateButton("Neuer Tab", 18, 28, 75, 25)
GUICtrlSetState($btn_tab8, @SW_HIDE)
$btn_tabCloseAll = GUICtrlCreateButton("Close All", 18, 28, 75, 25)
GUICtrlSetState($btn_tabCloseAll, @SW_HIDE)
$tabbar = GUICtrlCreateTab(15, 5, 1473, 685)
$tab1 = GUICtrlCreateTabItem("Tab 1")
$browser1 = GUICtrlCreateObj($IE1, 16, 56, 1468, 683)
$eingabe1 = GUICtrlCreateInput("", 95, 30, 1313, 21)
$btn_home1 = GUICtrlCreateButton("Startseite", 1410, 28, 75, 25)
$tab2 = GUICtrlCreateTabItem("Tab 2")
$browser2 = GUICtrlCreateObj($IE2, 16, 56, 1468, 683)
$eingabe2 = GUICtrlCreateInput("", 95, 30, 1313, 21)
$btn_home2 = GUICtrlCreateButton("Startseite", 1410, 28, 75, 25)
$tab3 = GUICtrlCreateTabItem("Tab 3")
GUICtrlSetState(-1, $GUI_SHOW)
$browser3 = GUICtrlCreateObj($IE3, 16, 56, 1468, 683)
$eingabe3 = GUICtrlCreateInput("", 95, 30, 1313, 21)
$btn_home3 = GUICtrlCreateButton("Startseite", 1410, 28, 75, 25)

GUISetState(@SW_SHOW)

_IENavigate($IE1, "start.duckduckgo.com")
$currenthtml1 = _IEPropertyGet($IE1, "locationurl")
GUICtrlSetData($eingabe1, $currenthtml1)
_IENavigate($IE2, "start.duckduckgo.com")
$currenthtml2 = _IEPropertyGet($IE2, "locationurl")
GUICtrlSetData($eingabe2, $currenthtml2)
_IENavigate($IE3, "start.duckduckgo.com")
$currenthtml3 = _IEPropertyGet($IE3, "locationurl")
GUICtrlSetData($eingabe3, $currenthtml3)

AdlibRegister("_update", 10000)

MouseMove(239, 168)
MouseDown("left")
Sleep(50)
MouseUp("left")

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $eingabe1
			$html1 = GUICtrlRead($eingabe1)
			_IENavigate($IE1, $html1)
			$currenthtml1 = _IEPropertyGet($IE1, "locationurl")
			GUICtrlSetData($eingabe1, $currenthtml1)
		Case $eingabe2
			$html2 = GUICtrlRead($eingabe2)
			_IENavigate($IE2, $html2)
			$currenthtml2 = _IEPropertyGet($IE2, "locationurl")
			GUICtrlSetData($eingabe2, $currenthtml2)
		Case $eingabe3
			$html3 = GUICtrlRead($eingabe3)
			_IENavigate($IE3, $html3)
			$currenthtml3 = _IEPropertyGet($IE3, "locationurl")
			GUICtrlSetData($eingabe3, $currenthtml3)
		Case $btn_home1
			_IENavigate($IE1, "start.duckduckgo.com")
			$currenthtml1 = _IEPropertyGet($IE1, "locationurl")
			GUICtrlSetData($eingabe1, $currenthtml1)
		Case $btn_home2
			_IENavigate($IE2, "start.duckduckgo.com")
			$currenthtml2 = _IEPropertyGet($IE2, "locationurl")
			GUICtrlSetData($eingabe2, $currenthtml2)
		Case $btn_home3
			_IENavigate($IE3, "start.duckduckgo.com")
			$currenthtml3 = _IEPropertyGet($IE3, "locationurl")
			GUICtrlSetData($eingabe3, $currenthtml3)
		Case $btn_tab
			_newtab4()
		Case $btn_tab1
			_newtab5()
		Case $btn_tab2
			_newtab6()
		Case $btn_tab3
			_newtab7()
		Case $btn_tab4
			_newtab8()
		Case $btn_tab5
			_newtab9()
		Case $btn_tab6
			_newtab10()
		Case $btn_tab7
			_newtab11()
		Case $btn_tab8
			_newtab12()
		Case $btn_tabCloseAll
			_close()
	EndSwitch
WEnd

Func _back()
	$var = InputBox("", "Welcher Tab?", "", "", 100, 125)
	If $var = "1" Then
		_IEAction($IE1, "back")
		If @error Then
			_IENavigate($IE1, "start.duckduckgo.com")
		EndIf
		$currenthtml = _IEPropertyGet($IE1, "locationurl")
		GUICtrlSetData($eingabe1, $currenthtml1)
	EndIf
	If $var = "2" Then
		_IEAction($IE2, "back")
		If @error Then
			_IENavigate($IE2, "start.duckduckgo.com")
		EndIf
		$currenthtm = _IEPropertyGet($IE2, "locationurl")
		GUICtrlSetData($eingabe2, $currenthtml2)
	EndIf
	If $var = "3" Then
		_IEAction($IE3, "back")
		If @error Then
			_IENavigate($IE3, "start.duckduckgo.com")
		EndIf
		$currenthtm3 = _IEPropertyGet($IE3, "locationurl")
		GUICtrlSetData($eingabe3, $currenthtml3)
	EndIf
EndFunc

Func _forward()
	$var = InputBox("","Welcher Tab?")
	If $var = "1" Then
		_IEAction($IE1, "forward")
		If @error Then
			_IEAction($IE1, "refresh")
		EndIf
		$currenthtml = _IEPropertyGet($IE1, "locationurl")
		GUICtrlSetData($eingabe1, $currenthtml1)
	EndIf
	If $var = "2" Then
		_IEAction($IE2, "forward")
		If @error Then
			_IEAction($IE2, "refresh")
		EndIf
		$currenthtm = _IEPropertyGet($IE2, "locationurl")
		GUICtrlSetData($eingabe2, $currenthtml2)
	EndIf
	If $var = "3" Then
		_IEAction($IE3, "forward")
		If @error Then
			_IEAction($IE3, "refresh")
		EndIf
		$currenthtm3 = _IEPropertyGet($IE3, "locationurl")
		GUICtrlSetData($eingabe3, $currenthtml3)
	EndIf
EndFunc

Func _refresh()
	_IEAction($IE1, "refresh")
	$currenthtml = _IEPropertyGet($IE1, "locationurl")
	GUICtrlSetData($eingabe1, $currenthtml)
	_IEAction($IE2, "refresh")
	$currenthtml2 = _IEPropertyGet($IE2, "locationurl")
	GUICtrlSetData($eingabe2, $currenthtml2)
	_IEAction($IE3, "refresh")
	$currenthtml3 = _IEPropertyGet($IE3, "locationurl")
	GUICtrlSetData($eingabe3, $currenthtml3)
EndFunc

Func _update()
	$currenthtml = _IEPropertyGet($IE1, "locationurl")
	GUICtrlSetData($eingabe1, $currenthtml)
	$currenthtml2 = _IEPropertyGet($IE2, "locationurl")
	GUICtrlSetData($eingabe2, $currenthtml2)
	$currenthtml3 = _IEPropertyGet($IE3, "locationurl")
	GUICtrlSetData($eingabe3, $currenthtml3)
EndFunc

Func _newtab4()
	GUICtrlSetState($btn_tab, @SW_HIDE)
	GUICtrlSetState($btn_tab1, @SW_SHOW)
	$tabbar = GUICtrlCreateTabItem($textTabs & $numTabs)
	$browser4 = GUICtrlCreateObj($IE4, 16, 56, 1468, 683)
	$eingabe4 = GUICtrlCreateInput("", 95, 30, 1313, 21)
	$btn_home4 = GUICtrlCreateButton("Startseite", 1410, 28, 75, 25)
	$numTabs = $numTabs + 1
EndFunc

Func _newtab5()
	GUICtrlSetState($btn_tab1, @SW_HIDE)
	GUICtrlSetState($btn_tab2, @SW_SHOW)
	$tabbar = GUICtrlCreateTabItem($textTabs & $numTabs)
	$browser5 = GUICtrlCreateObj($IE5, 16, 56, 1468, 683)
	$eingabe5 = GUICtrlCreateInput("", 95, 30, 1313, 21)
	$btn_home5 = GUICtrlCreateButton("Startseite", 1410, 28, 75, 25)
	$numTabs = $numTabs + 1
EndFunc

Func _newtab6()
	GUICtrlSetState($btn_tab2, @SW_HIDE)
	GUICtrlSetState($btn_tab3, @SW_SHOW)
	$tabbar = GUICtrlCreateTabItem($textTabs & $numTabs)
	$browser6 = GUICtrlCreateObj($IE6, 16, 56, 1468, 683)
	$eingabe6 = GUICtrlCreateInput("", 95, 30, 1313, 21)
	$btn_home6 = GUICtrlCreateButton("Startseite", 1410, 28, 75, 25)
	$numTabs = $numTabs + 1
EndFunc

Func _newtab7()
	GUICtrlSetState($btn_tab3, @SW_HIDE)
	GUICtrlSetState($btn_tab4, @SW_SHOW)
	$tabbar = GUICtrlCreateTabItem($textTabs & $numTabs)
	$browser7 = GUICtrlCreateObj($IE7, 16, 56, 1468, 683)
	$eingabe7 = GUICtrlCreateInput("", 95, 30, 1313, 21)
	$btn_home7 = GUICtrlCreateButton("Startseite", 1410, 28, 75, 25)
	$numTabs = $numTabs + 1
EndFunc

Func _newtab8()
	GUICtrlSetState($btn_tab4, @SW_HIDE)
	GUICtrlSetState($btn_tab5, @SW_SHOW)
	$tabbar = GUICtrlCreateTabItem($textTabs & $numTabs)
	$browser8 = GUICtrlCreateObj($IE8, 16, 56, 1468, 683)
	$eingabe8 = GUICtrlCreateInput("", 95, 30, 1313, 21)
	$btn_home8 = GUICtrlCreateButton("Startseite", 1410, 28, 75, 25)
	$numTabs = $numTabs + 1
EndFunc

Func _newtab9()
	GUICtrlSetState($btn_tab5, @SW_HIDE)
	GUICtrlSetState($btn_tab6, @SW_SHOW)
	$tabbar = GUICtrlCreateTabItem($textTabs & $numTabs)
	$browser9 = GUICtrlCreateObj($IE9, 16, 56, 1468, 683)
	$eingabe9 = GUICtrlCreateInput("", 95, 30, 1313, 21)
	$btn_home9 = GUICtrlCreateButton("Startseite", 1410, 28, 75, 25)
	$numTabs = $numTabs + 1
EndFunc

Func _newtab10()
	GUICtrlSetState($btn_tab6, @SW_HIDE)
	GUICtrlSetState($btn_tab7, @SW_SHOW)
	$tabbar = GUICtrlCreateTabItem($textTabs & $numTabs)
	$browser10 = GUICtrlCreateObj($IE10, 16, 56, 1468, 683)
	$eingabe10 = GUICtrlCreateInput("", 95, 30, 1313, 21)
	$btn_home10 = GUICtrlCreateButton("Startseite", 1410, 28, 75, 25)
	$numTabs = $numTabs + 1
EndFunc

Func _newtab11()
	GUICtrlSetState($btn_tab7, @SW_HIDE)
	GUICtrlSetState($btn_tab8, @SW_SHOW)
	$tabbar = GUICtrlCreateTabItem($textTabs & $numTabs)
	$browser11 = GUICtrlCreateObj($IE10, 16, 56, 1468, 683)
	$eingabe11 = GUICtrlCreateInput("", 95, 30, 1313, 21)
	$btn_home10 = GUICtrlCreateButton("Startseite", 1410, 28, 75, 25)
	$numTabs = $numTabs + 1
EndFunc

Func _newtab12()
	GUICtrlSetState($btn_tab8, @SW_HIDE)
	GUICtrlSetState($btn_tabCloseAll, @SW_SHOW)
	$tabbar = GUICtrlCreateTabItem($textTabs & $numTabs)
	$browser12 = GUICtrlCreateObj($IE12, 16, 56, 1468, 683)
	$eingabe12 = GUICtrlCreateInput("", 95, 30, 1313, 21)
	$btn_home12 = GUICtrlCreateButton("Startseite", 1410, 28, 75, 25)
	$numTabs = $numTabs + 1
EndFunc

Func _close()
	Exit
EndFunc