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
#cs ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]AutoIt Version: 3.3.7.14 (beta)
Author: Tutendorf
Script Function:
Simpler Webradiostreamer mit 7 Sendern
#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"
$oWMP = ObjCreate ( "WMPLayer.ocx" )
$oWMP.URL = ""
$oWMP.controls.stop()
$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>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Webradio", 309, 139, 263, 213, BitOR($WS_MINIMIZEBOX,$WS_SYSMENU,$WS_CAPTION,$WS_GROUP,$WS_BORDER))
$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 ###
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)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Slider1
$oWMP.settings.volume = GUICtrlRead($Slider1)
GUICtrlSetData($Label1,GUICtrlRead($Slider1) & "%")
Case $Button1
$oWMP.controls.play()
Case $Button2
$oWMP.controls.stop()
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
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