Internet Radio

  • Wie krich ich das hin das ich ein internet radio ins script bekomme. Habe aus anderen foren raus gekricht das man den link irgentwie einbetten muss aber wie? Nun hab ich es so mal probiert und es geht nicht freue mich schon auf antworten und hier der code
    Run ("firefox.exe")
    #include <GUIConstants.au3>
    #include <IE.au3>
    _IECreate("http://www.technobase.fm/wmplayer.php", 0, 0)
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Webradio", 301, 151, 334, 231)
    $Label1 = GUICtrlCreateLabel("Technobase.fm", 80, 16, 116, 25)
    $Radio1 = GUICtrlCreateRadio("Radio", 96, 96, 113, 17)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit

    EndSwitch
    WEnd
    ?(

  • wieso öffnest du firefox. Und noch ein IE-Fenster?
    Wenn du eine Internet Seite in einer GUI haben willst, dann schaust du dir am Besten mal die Funktion _IECreateEmbedded an.
    Hier noch ein Beispielscript dazu:

    Spoiler anzeigen
    [autoit]

    ; *******************************************************
    ; Beispiel 1 - Erkennt und deaktiviert COM-Errors, sodass 'Back' (zurück) und
    ; 'Forward' (vorwärts) außerhalb der Historygrenzen das Skript nicht abbrechen.
    ; (außer COM-Errors, die an die Konsole gesendet werden)
    ; *******************************************************
    ;
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <IE.au3>

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

    _IEErrorHandlerRegister ()

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

    $oIE = _IECreateEmbedded ()
    GUICreate("EmbeddedWebControl-Test", 640, 580, _
    (@DesktopWidth - 640) / 2, (@DesktopHeight - 580) / 2, _
    $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS + $WS_CLIPCHILDREN)
    $GUIActiveX = GUICtrlCreateObj($oIE, 10, 40, 600, 360)
    $GUI_Button_Back = GUICtrlCreateButton("Zurück", 10, 420, 100, 30)
    $GUI_Button_Forward = GUICtrlCreateButton("Vorwärts", 120, 420, 100, 30)
    $GUI_Button_Home = GUICtrlCreateButton("Startseite", 230, 420, 100, 30)
    $GUI_Button_Stop = GUICtrlCreateButton("Anhalten", 340, 420, 100, 30)

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

    GUISetState() ; Anzeigen der GUI

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

    _IENavigate ($oIE, "http://www.autoit.de")

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

    ; Wartet, bis der Benutzer das Fenster schließt
    While 1
    $msg = GUIGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
    ExitLoop
    Case $msg = $GUI_Button_Home
    _IENavigate ($oIE, "www.autoit.de")
    Case $msg = $GUI_Button_Back
    _IEAction ($oIE, "back")
    Case $msg = $GUI_Button_Forward
    _IEAction ($oIE, "forward")
    Case $msg = $GUI_Button_Stop
    _IEAction ($oIE, "stop")
    EndSelect
    WEnd

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

    GUIDelete()

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

    Exit

    [/autoit]

    Achso. Wenn du das nächste mal einen Code postest ist es besser wenn du ihn mit AutoIt-Quellcode einfügst. Einfach auf dem AutoIt-Button oben im Beitragseditor drücken ;) .

  • Ich denke mal mein Script ist ein gutes und übersichtliches Beispiel:

    Spoiler anzeigen
    [autoit]

    #include <ButtonConstants.au3>
    #include <ComboConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <TabConstants.au3>
    #include <WindowsConstants.au3>
    #include <GuiTab.au3>
    #include <ProgressConstants.au3>
    #include <GDIPlus.au3>
    #include <Misc.au3>
    #include <Constants.au3>
    #include <IE.au3>
    #include <INet.au3>

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

    main()
    sleep(5000)

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

    Func main()

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

    Opt('TrayAutoPause', 0)

    $main = GUICreate("Q_LEFT", 150, 20, @DesktopWidth -155, @DesktopHeight -55,$WS_POPUP, BitOR($WS_EX_TOOLWINDOW, $WS_EX_DLGMODALFRAME))
    $SAW = GUICtrlCreateButton("SAW", 0, 0, 50, 20)
    $PSR = GUICtrlCreateButton("PSR", 50, 0, 50, 20)
    $JUMP = GUICtrlCreateButton("JUMP", 100, 0, 50, 20)

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

    GUISetState(@SW_SHOW)

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $SAW
    GUIDelete($main)
    radiosaw()
    Exit
    Case $PSR
    GUIDelete($main)
    radiopsr()
    Exit
    Case $JUMP
    GUIDelete($main)
    radiojump()
    Exit
    EndSwitch
    WEnd

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

    EndFunc

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

    Func radiosaw()
    $SAW = GUICreate("Q_LEFT", 150, 20, @DesktopWidth -155, @DesktopHeight -55,$WS_POPUP, BitOR($WS_EX_TOOLWINDOW, $WS_EX_DLGMODALFRAME))
    $label = GUICtrlCreateLabel("SAW", 0, 0, 100, 25)
    GUICtrlSetFont($label, 15, "verdana")

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

    $labelexit = GUICtrlCreateLabel("x", 140, -3, 20, 20)
    GUICtrlSetFont($labelexit, 15, "verdana")

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

    $ie = _IECreateEmbedded()
    GUICtrlCreateObj($ie, 140, 0, 1, 1)

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

    $ie.navigate("http://www.surfmusik.de/radio/radio-saw,1014.html")

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

    GUISetState(@SW_SHOW)

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $labelexit
    GUIDelete($SAW)
    main()
    EndSwitch
    WEnd

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

    EndFunc

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

    Func radiopsr()
    $SAW = GUICreate("Q_LEFT", 150, 20, @DesktopWidth -155, @DesktopHeight -55,$WS_POPUP, BitOR($WS_EX_TOOLWINDOW, $WS_EX_DLGMODALFRAME))
    $label = GUICtrlCreateLabel("PSR", 0, 0, 100, 25)
    GUICtrlSetFont($label, 15, "verdana")

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

    $labelexit = GUICtrlCreateLabel("x", 140, -3, 20, 20)
    GUICtrlSetFont($labelexit, 15, "verdana")

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

    $ie = _IECreateEmbedded()
    GUICtrlCreateObj($ie, 140, 0, 1, 1)

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

    $ie.navigate("http://edge.download.newmedia.nacamar.net/freestream/download/radiopsr_new/frameset.html")

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

    GUISetState(@SW_SHOW)

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $labelexit
    GUIDelete($SAW)
    main()
    EndSwitch
    WEnd

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

    EndFunc

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

    Func radiojump()
    $SAW = GUICreate("Q_LEFT", 150, 20, @DesktopWidth -155, @DesktopHeight -55,$WS_POPUP, BitOR($WS_EX_TOOLWINDOW, $WS_EX_DLGMODALFRAME))
    $label = GUICtrlCreateLabel("JUMP", 0, 0, 100, 25)
    GUICtrlSetFont($label, 15, "verdana")

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

    $labelexit = GUICtrlCreateLabel("x", 140, -3, 20, 20)
    GUICtrlSetFont($labelexit, 15, "verdana")

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

    $ie = _IECreateEmbedded()
    GUICtrlCreateObj($ie, 140, 0, 1, 1)

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

    $ie.navigate("http://www.surfmusik.de/radio/mdr-jump,1011.html")

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

    GUISetState(@SW_SHOW)

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $labelexit
    GUIDelete($SAW)
    main()
    EndSwitch
    WEnd

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

    EndFunc

    [/autoit]