Hilfe bei _IECreateEmbedded - Abänderung

    Hallo!
    Ich habe mir das Scriptbeispiel _IECreateEmbedded mal angeschaut und etwas verändert, um es als "Teletext-Viewer" zu verwenden.
    Hier der momentanige Code:

    ORF Teletext
    [autoit]

    ; *******************************************************
    ; ORF1 TeleText v1.0
    ; *******************************************************

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

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

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

    _IEErrorHandlerRegister ()

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

    $oIE = _IECreateEmbedded ()
    GUICreate("ORF1 Teletext", 505, 490)
    GUICtrlCreateLabel ("ORF Teletext by tobi_girst", 340, 455)
    $GUIActiveX = GUICtrlCreateObj($oIE, -40, -10, 595, 450)
    $GUI_Button_Home = GUICtrlCreateButton("Seite 100", 10, 450, 100, 30)

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

    GUISetState()

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

    _IENavigate ($oIE, "http://teletext.orf.at/100/100_0001.htm")

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

    While 1
    $msg = GUIGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
    ExitLoop
    Case $msg = $GUI_Button_Home
    _IENavigate ($oIE, "http://teletext.orf.at/100/100_0001.htm")
    EndSelect
    WEnd

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

    GUIDelete()

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

    Exit

    [/autoit]


    Man soll die Seiten aber auch ansteuern können. (Am liebsten durch ein Inputfeld mit "GO!"-Button neben dem "Seite 100"-Button, also ca. so:

    Spoiler anzeigen
    [autoit]

    ; *******************************************************
    ; ORF1 TeleText v1.0 by tobi_girst
    ; *******************************************************

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

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

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

    _IEErrorHandlerRegister ()

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

    $oIE = _IECreateEmbedded ()
    GUICreate("ORF1 Teletext", 505, 490)
    GUICtrlCreateLabel ("ORF Teletext by tobi_girst", 340, 455)
    GUICtrlCreateInput ("Seite", 120, 450, 30) ;Nur 3-Stellige Zahlen erlauben
    GUICtrlCreateButton ("GO!", 150, 450) ;Wenn man hier klickt, soll die Seite aufgerufen werden. (http://teletext.orf.at/[Seite]/[Seite]_0001.htm) Statt [Seite] muss die 3Stellige Zahl stehen. (Seite 234 = http://teletext.orf.at/234/234_0001.htm)
    $GUIActiveX = GUICtrlCreateObj($oIE, -40, -10, 595, 450)
    $GUI_Button_Home = GUICtrlCreateButton("Seite 100", 10, 450, 100, 30)

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

    GUISetState()

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

    _IENavigate ($oIE, "http://teletext.orf.at/100/100_0001.htm")

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

    While 1
    $msg = GUIGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
    ExitLoop
    Case $msg = $GUI_Button_Home
    _IENavigate ($oIE, "http://teletext.orf.at/100/100_0001.htm")
    EndSelect
    WEnd

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

    GUIDelete()

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

    Exit

    [/autoit]

    Geht das?

    MfG. tobi_girst

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von »tobi_girst« (Morgen, 25:63)

    2 Mal editiert, zuletzt von tobi_girst (17. Februar 2009 um 13:33)

    Spoiler anzeigen
    [autoit]

    ; *******************************************************
    ; ORF1 TeleText v1.0 by tobi_girst
    ; *******************************************************

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

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

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

    _IEErrorHandlerRegister()

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

    $oIE = _IECreateEmbedded()
    GUICreate("ORF1 Teletext", 505, 480)
    GUICtrlCreateLabel("ORF Teletext by Tobias Girstmair", 340, 455)
    $Input = GUICtrlCreateInput("100", 120, 450, 50)
    GUICtrlSetLimit(-1, 3)
    GUICtrlCreateUpdown($Input)
    GUICtrlSetLimit(-1, 899, 100)
    $Gui_Button_Navigate = GUICtrlCreateButton("GO!", 180, 450, 30, 20)
    $GUIActiveX = GUICtrlCreateObj($oIE, -40, -10, 595, 450)
    $GUI_Button_Home = GUICtrlCreateButton("Seite 100", 10, 450, 100, 20)

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

    GUISetState()

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

    _IENavigate($oIE, "http://teletext.orf.at/100/100_0001.htm")

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

    While 1
    $msg = GUIGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
    ExitLoop
    Case $msg = $GUI_Button_Home
    _IENavigate($oIE, "http://teletext.orf.at/100/100_0001.htm")
    Case $msg = $Gui_Button_Navigate
    If StringLen(GUICtrlRead($Input)) = 3 And GUICtrlRead($Input) >= 100 And GUICtrlRead($Input) < 900 Then
    _IENavigate($oIE, "http://teletext.orf.at/" & StringLeft(GUICtrlRead($Input), 1) & "00/" & GUICtrlRead($Input) & "_0001.htm")
    EndIf
    EndSelect
    WEnd

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

    GUIDelete()
    Exit

    [/autoit]

    mfg funkey