Webradioplayer

  • Ich hatte einfach mal Langeweile und hab einen Webradiostreamer erstellt, mit den Sendern, welche meiner Meinung nach am meisten gehört werden.
    Hinzu kommt, nicht jeder hat unbedingt lust, wenn er grade irgendwas spielt oder sonstwas tut, den Browser offen zu haben.
    (Mir zieht der 388MB Arbeitspeicher und das ist bei meinen Spielen noch zu viel[ich hatte kaum noch Geld für ein größeres Mainboard und dementsprechend Chipsätze daher nur 8GB im Januar dann das Maximalste was auf dem Markt ist ;) ])

    Soll halt nur den Arbeitsspeicher schonen.

    Spoiler anzeigen
    [autoit]

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

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

    AutoIt Version: 3.3.7.14 (beta)
    Author: Tutendorf

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

    Script Function:
    Simpler Webradiostreamer mit 7 Sendern

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

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

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

    Const $urlGong = "http://www.radiogong.de/live/high_q.m3u"
    Const $urlFFN = "http://player.ffn.de/tunein_ffn.asx"
    Const $urlWDR2 = "http://www.wdr.de/wdrlive/media/wdr2.asx"
    Const $urlFFH1 = "http://streams.ffh.de/radioffh/wma/livestream2.asx"
    Const $urlFFH2 = "http://streams.ffh.de/ffhchannels/wma/eurodance.asx"
    Const $urlFFH3 = "http://streams.ffh.de/ffhchannels/wma/top40.asx"
    Const $urlEinslife = "http://www.wdr.de/wdrlive/media/einslive.asx"

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

    $oWMP = ObjCreate ( "WMPLayer.ocx" )
    $oWMP.URL = ""
    $oWMP.controls.stop()

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

    $oWMP.settings.volume = 0

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

    #include <ButtonConstants.au3>
    #include <ComboConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <SliderConstants.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>

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

    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Webradio", 309, 139, 263, 213, BitOR($WS_MINIMIZEBOX,$WS_SYSMENU,$WS_CAPTION,$WS_GROUP,$WS_BORDER))

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

    $Combo1 = GUICtrlCreateCombo("Sender wählen", 16, 16, 261, 25)
    $Button1 = GUICtrlCreateButton("Play / Start", 16, 56, 121, 25, 0)
    $Button2 = GUICtrlCreateButton("Pause / Stop", 168, 56, 121, 25, 0)
    $Slider1 = GUICtrlCreateSlider(16, 96, 233, 33)
    $Label1 = GUICtrlCreateLabel("0%", 264, 96, 30, 17)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    GUICtrlSetData($Combo1, "Eins Live|Hit Radio FFH|Hit Radio FFH Top 40|Hit Radio FFH Eurodance|Radio FFN|WDR 2|Gong 96.3")

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

    GUISetBkColor(0x00008B)
    GUICtrlSetColor($Button1,0x00FF00)
    GUICtrlSetColor($Button2,0xFF0000)
    GUICtrlSetBkColor($Button1,0x000000)
    GUICtrlSetBkColor($Button2,0x000000)
    GUICtrlSetBkColor($Slider1,0x00008B)
    GUICtrlSetColor($Label1,0xFFFF00)

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

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

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

    Case $Slider1
    $oWMP.settings.volume = GUICtrlRead($Slider1)
    GUICtrlSetData($Label1,GUICtrlRead($Slider1) & "%")

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

    Case $Button1
    $oWMP.controls.play()

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

    Case $Button2
    $oWMP.controls.stop()

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

    Case $Combo1
    $oWMP.controls.stop()
    Switch GUICtrlRead($Combo1)
    Case "Eins Live"
    $oWMP.URL = $urlEinslife
    Case "Radio FFN"
    $oWMP.URL = $urlFFN
    Case "Hit Radio FFH"
    $oWMP.URL = $urlFFH1
    Case "Hit Radio FFH Eurodance"
    $oWMP.URL = $urlFFH2
    Case "Hit Radio FFH Top 40"
    $oWMP.URL = $urlFFH3
    Case "WDR 2"
    $oWMP.URL = $urlWDR2
    Case "Gong 96.3"
    $oWMP.URL = $urlGong
    EndSwitch
    EndSwitch
    WEnd

    [/autoit]

    Sowie ich euch kenne, werdet ihr eh dran rumbasteln und noch weitere Sender hinufügen.

    Ich wäre euch sehr dankbar, wenn ihr dann hier die Sender hinzufügen könntet, samt .asx .m3u oder Ähnlichem

    Gruß TD

    6 Mal editiert, zuletzt von Tutendorf (30. Juli 2011 um 17:51)

  • Ich habe auch mal so was in der Art gemacht. Hier habe ich noch ein paar Adressen:

    NDR = 'http://ndr-ndr1niedersachsen-hi-wma.wm.llnwd.net/ndr_ndr1niedersachsen_hi_wma'
    WDR2 = 'mms://gffstream-wm-w24a.wm.llnwd.net/gffstream_wm_w24b'
    1LiveDiggi = 'http://gffstream.ic.llnwd.net/stream/gffstream_einslive_a'
    Technobase = 'http://listen.technobase.fm/tunein-dsl-pls'
    SWR3 = 'http://mp3-live.swr3.de/swr3_m.m3u'
    Deutschlandfunk = 'http://www.dradio.de/streaming/dlf.m3u'
    DasDing = 'http://mp3-live.dasding.de/dasding_m.m3u'
    Radio Regenbogen = 'http://217.151.152.242:80/live'

    PS.: Hier findest du die Adressen fast aller Webradiosender.

  • @ Cheater Dieter
    Ich denke, draus lässt sich noch viel machen.

    DFPWare
    Das solle igentlich kein Tutorial sein, sonst stände es ja nicht hier ;)

    Naja, ich hätte noch mehr Features einbauen können, dass stimmt.
    Dann wär der jetzt auch besser