Kann da mal bitte jemand drüber schauen und mich in die richtige Richtung schubsen?!
Irgendwie will das mit den Tabs nicht funktionieren, wobei die Tabs erstellt werden jedoch der IE nicht.
Wenn ihr keine Lösung habt erstelle ich halt von Anfang an 10 Tabs wollte ich aber eigentlich nicht machen..muss doch möglich sein..
Die Buttons machen auch was sie wollen habe jetzt schon länger nichts mehr mit autoit gemacht bitte helft mir ein wenig muss ja kein
fertiges Skript sein die Herausforderung soll ja bestehen bleiben^^
Code
#cs ----------------------------------------------------------------------------
Author: Pad
Version: beta
Kommentare: new tabs...
#ce ----------------------------------------------------------------------------
HotKeySet("{LEFT}", "_back")
HotKeySet("{RIGHT}", "_forward")
HotKeySet("{DOWN}", "_refresh")
#include<ButtonConstants.au3>
#include<EditConstants.au3>
#include<GUIConstantsEx.au3>
#include<StaticConstants.au3>
#include<WindowsConstants.au3>
#include<IE.au3>
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("Close All", 18, 28, 75, 25)
GUICtrlSetState(-1, @SW_SHOW)
$btn_tab1 = GUICtrlCreateButton("Neuer Tab", 18, 28, 75, 25)
GUICtrlSetState(-1, @SW_HIDE)
$btn_tab2 = GUICtrlCreateButton("Neuer Tab", 18, 28, 75, 25)
GUICtrlSetState(-1, @SW_HIDE)
$btn_tab3 = GUICtrlCreateButton("Neuer Tab", 18, 28, 75, 25)
GUICtrlSetState(-1, @SW_HIDE)
$btn_tab4 = GUICtrlCreateButton("Neuer Tab", 18, 28, 75, 25)
GUICtrlSetState(-1, @SW_HIDE)
$btn_tab5 = GUICtrlCreateButton("Neuer Tab", 18, 28, 75, 25)
GUICtrlSetState(-1, @SW_HIDE)
$btn_tab6 = GUICtrlCreateButton("Neuer Tab", 18, 28, 75, 25)
GUICtrlSetState(-1, @SW_HIDE)
$btn_tab7 = GUICtrlCreateButton("Neuer Tab", 18, 28, 75, 25)
GUICtrlSetState(-1, @SW_HIDE)
$btn_tab8 = GUICtrlCreateButton("Neuer Tab", 18, 28, 75, 25)
GUICtrlSetState(-1, @SW_HIDE)
$btn_tabCloseAll = GUICtrlCreateButton("Neuer Tab", 18, 28, 75, 25)
GUICtrlSetState(-1, @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
Alles anzeigen