Hey Leute
ich habe hier mal ein kleines Programm geschrieben, mit dem man über den Windows Media Player Radiosender streamen, also hören kann;)
Das design ist nicht das tollste aber es soll halt funktionieren;)
Hier das Skript:
Spoiler anzeigen
#include <GUIConstants.au3>
#include <ComboConstants.au3>
Const $url1Live = 'http://www.wdr.de/wdrlive/media/einslive.asx'
Const $urlFFN = 'http://player.ffn.de/tunein_ffn.asx'
Const $urlNDR = 'http://ndr-ndr1niedersachsen-hi-wma.wm.llnwd.net/ndr_ndr1niedersachsen_hi_wma'
Const $urlWDR2 = 'mms://gffstream-wm-w24a.wm.llnwd.net/gffstream_wm_w24b'
Const $url1Livediggi = 'http://gffstream.ic.llnwd.net/stream/gffstream_einslive_a'
Const $urlTEST = 'http://listen.technobase.fm/tunein-dsl-pls'
$oWMP = ObjCreate ( "WMPLayer.ocx" )
$oWMP.URL = $url1Live
$oWMP.controls.stop()
GUICreate("Radio",260,180)
$bStart = GUICtrlCreateButton("Start",20,20,100,40)
$bStop = GUICtrlCreateButton("Stop",140,20,100,40)
$combo = GUICtrlCreateCombo("",20,80,220,60,$CBS_DROPDOWNLIST)
GUICtrlSetData($combo,"1Live|1Live diggi|WDR2|FFN|NDR|Technobase","1Live")
$slider = GUICtrlCreateSlider(20,120,220,60)
GUICtrlSetData($slider,$oWMP.settings.volume())
GUISetState()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $bStart
$oWMP.controls.play()
Case $bStop
$oWMP.controls.stop()
Case $slider
$oWMP.settings.volume = GUICtrlRead($slider)
Case $combo
$oWMP.controls.stop()
Switch GUICtrlRead($combo)
Case '1Live'
$oWMP.URL = $url1Live
Case 'FFN'
$oWMP.URL = $urlFFN
Case 'NDR'
$oWMP.URL = $urlNDR
Case 'WDR2'
$oWMP.URL = $urlWDR2
Case '1Live diggi'
$oWMP.URL = $url1Livediggi
Case 'Technobase'
$oWMP.URL = $urlTEST
EndSwitch
$oWMP.controls.play()
EndSwitch
WEnd