Internet-Explorer mit Tabs?

    Hallo,
    ich stehe vor folgendem Problem:

    Nachdem eine Checkbox gewählt wurde,
    soll ein neuer Tab mit der Seite angelegt werden.

    Habt Ihr da eine Idee?

    Spoiler anzeigen


    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <TabConstants.au3>
    #include <WindowsConstants.au3>
    #include <IE.au3>
    Global $google="http://www.google.de"
    Global $amazon="http://www.amazon.de"
    Global $ebay="http://www.ebay.de"


    $oIE = _IECreateEmbedded ()
    $Form1 = GUICreate("Browser", 1003, 700, 110, 9)
    $Tab1 = GUICtrlCreateTab(8, 8, 987, 684)
    $TabSheet1 = GUICtrlCreateTabItem("Internet")
    $browser = GUICtrlCreateObj($oIE, 32, 64, 947, 600)
    $TabSheet2 = GUICtrlCreateTabItem("Seiten")
    $Checkbox1 = GUICtrlCreateCheckbox("Google", 56, 72, 97, 17)
    $Checkbox2 = GUICtrlCreateCheckbox("Ebay", 56, 104, 97, 17)
    $Checkbox3 = GUICtrlCreateCheckbox("Amazon", 56, 136, 97, 17)
    $btnStart = GUICtrlCreateButton("Start", 56, 176, 75, 25)
    GUICtrlCreateTabItem("")
    GUISetState()

    While 1
    Switch GUIGetMsg()
    Case $GUI_EVENT_CLOSE
    Exit
    Case $btnStart
    If BitAnd(GUICtrlRead($Checkbox1), $GUI_CHECKED) Then _IENavigate($oIE,$google )
    WinSetTitle("Browser","",$google)
    GUICtrlSetState($TabSheet1, $GUI_SHOW)
    If BitAnd(GUICtrlRead($Checkbox1), $GUI_CHECKED) Then _IENavigate($oIE,$amazon )
    WinSetTitle("Browser","",$amazon)
    GUICtrlSetState($TabSheet1, $GUI_SHOW)
    If BitAnd(GUICtrlRead($Checkbox1), $GUI_CHECKED) Then _IENavigate($oIE,$ebay )
    WinSetTitle("Browser","",$ebay)
    GUICtrlSetState($TabSheet1, $GUI_SHOW)
    EndSwitch
    WEnd

    Viele Grüße
    Ilse

    Einmal editiert, zuletzt von Ilse (12. September 2010 um 12:31)

    Hallo, scheinbar ist die Formatierung in deinem Post komplett flöten gegeangen.

    Deswegen hier ein älteres Script von mir:

    Spoiler anzeigen
    [autoit]

    #include<Array.au3>
    #include <IE.au3>
    _IEErrorHandlerRegister ()

    [/autoit] [autoit][/autoit] [autoit]

    Dim $oIE[1]
    $oIE[0] = _IECreateEmbedded()
    Dim $Tab[1]

    [/autoit] [autoit][/autoit] [autoit]

    $gui = GUICreate("Browser",800,600)
    $NewTab = GUICtrlCreateButton("Neuer Tab",20,20,80,25)
    $input = GUICtrlCreateInput("",120,20,400,25)
    $TabParent = GUICtrlCreateTab(20,60,760,520)
    $Tab[0] = GUICtrlCreateTabItem("Google")
    GUICtrlCreateObj($oIE[0],40,100,700,460)

    [/autoit] [autoit][/autoit] [autoit]

    GUISetState()

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    _IENavigate($oIE[0],"http://www.google.de")
    GUICtrlSetData($input,_IEPropertyGet($oIE[0],"locationurl"))

    [/autoit] [autoit][/autoit] [autoit]

    While GUIGetMsg()<>-3 * Sleep(10)
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case -3
    Exit
    Case $NewTab
    $iIE = UBound($oIE)
    _ArrayAdd($Tab,GUICtrlCreateTabItem("Tab"&$iIE))
    _ArrayAdd($oIE,_IECreateEmbedded())
    GUICtrlCreateObj($oIE[$iIE],40,100,700,460)
    _IENavigate($oIE[$iIE],"http://www.google.de")
    Case $input
    $selected = GUICtrlRead($TabParent)
    _IENavigate($oIE[$selected],GUICtrlRead($input))
    WinSetTitle($gui,"",_IEPropertyGet($oIE[$selected],"locationname"))

    [/autoit] [autoit][/autoit] [autoit]

    Case $TabParent
    $selected = GUICtrlRead($TabParent)
    WinSetTitle($gui,"",_IEPropertyGet($oIE[$selected],"locationname"))
    GUICtrlSetData($input,_IEPropertyGet($oIE[$selected],"locationurl"))
    EndSwitch
    WEnd

    [/autoit]

    Hallo SEuBO,

    Ich war gestern wieder im Stress und konnte mich auch nicht mehr melden.
    (Dann passiert so etwas)
    Ich habe alles nochmal neu eingefügt.

    Dein Script ist toll, auch wenn ich nur die hälfte verstehe.
    Kann man das auch irgendwie mit den Checkboxen machen?

    Spoiler anzeigen


    http://www.autoit.de/index.php?page=User&userID=202743#include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <TabConstants.au3>
    #include <WindowsConstants.au3>
    #include <IE.au3>
    Global $google="http://www.google.de"
    Global $amazon="http://www.amazon.de"
    Global $ebay="http://www.ebay.de"


    $oIE = _IECreateEmbedded ()
    $Form1 = GUICreate("Browser", 1003, 700, 110, 9)
    $Tab1 = GUICtrlCreateTab(8, 8, 987, 684)
    $TabSheet1 = GUICtrlCreateTabItem("Internet")
    $browser = GUICtrlCreateObj($oIE, 32, 64, 947, 600)
    $TabSheet2 = GUICtrlCreateTabItem("Seiten")
    $Checkbox1 = GUICtrlCreateCheckbox("Google", 56, 72, 97, 17)
    $Checkbox2 = GUICtrlCreateCheckbox("Ebay", 56, 104, 97, 17)
    $Checkbox3 = GUICtrlCreateCheckbox("Amazon", 56, 136, 97, 17)
    $btnStart = GUICtrlCreateButton("Start", 56, 176, 75, 25)
    GUICtrlCreateTabItem("")
    GUISetState()

    While 1
    Switch GUIGetMsg()
    Case $GUI_EVENT_CLOSE
    Exit
    Case $btnStart
    If BitAnd(GUICtrlRead($Checkbox1), $GUI_CHECKED) Then _IENavigate($oIE,$google )
    WinSetTitle("Browser","",$google)
    GUICtrlSetState($TabSheet1, $GUI_SHOW)
    If BitAnd(GUICtrlRead($Checkbox1), $GUI_CHECKED) Then _IENavigate($oIE,$amazon )
    WinSetTitle("Browser","",$amazon)
    GUICtrlSetState($TabSheet1, $GUI_SHOW)
    If BitAnd(GUICtrlRead($Checkbox1), $GUI_CHECKED) Then _IENavigate($oIE,$ebay )
    WinSetTitle("Browser","",$ebay)
    GUICtrlSetState($TabSheet1, $GUI_SHOW)
    EndSwitch
    WEnd

    Ich meine wenn ebay z.B angewählt wird,
    dass dann ein Tab ebay generiert wird!
    Das wäre super!
    Würde mich freuen wenn du mal drübersehen könntest.
    Ich habe schon einiges probiert, mmmm klappt alles irgendwie nicht!

    Viele Grüße
    Ilse ;)


    http://www.autoit.de/index.php?page=User&userID=202743