Hallo Leute
Nachdem für mich Sunshine - Live der WeltBeste Sender wo gibt Weltweit gesehn
Musste ich mir ein Scriptchen bauen
Was macht es?
- Liest die aktuelle Playlist aus
- Banner erneuert sich je nach sendung
- mp3 stream
speicherfunktion der playlist ist noch keine drinnen
[autoit]
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_outfile=sunshine.exe
#AutoIt3Wrapper_Res_Fileversion=1.0.0.5
#AutoIt3Wrapper_Res_Fileversion_AutoIncrement=y
#AutoIt3Wrapper_Res_LegalCopyright=zimi
#AutoIt3Wrapper_Res_Language=3079
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#include <Array.au3>
#include <INet.au3>
#include <String.au3>
#include <GUIListBox.au3>
$url="http://www.sunshine-live.de/"
AdlibEnable("_auslese",60000)
;
[/autoit][autoit][/autoit][autoit]#Region ### START Koda GUI section ### Form=
$Form1_1 = GUICreate("Sunshine - Live", 631, 441, -1, -1)
$MenuItem1 = GUICtrlCreateMenu("Livestream")
$MenuItem3 = GUICtrlCreateMenuItem("Mediaplayer", $MenuItem1)
$MenuItem2 = GUICtrlCreateMenu("Info")
$MenuItem4 = GUICtrlCreateMenuItem("Sunshine-Live Page", $MenuItem2)
GUISetBkColor(0xA6CAF0)
$Label1 = GUICtrlCreateLabel("", 8, 152, 79, 25, $SS_CENTER, $WS_EX_STATICEDGE)
GUICtrlSetFont(-1, 12, 400, 0, "Century Gothic")
GUICtrlSetBkColor(-1, 0xFFFFE1)
$Label2 = GUICtrlCreateLabel("", 88, 152, 223, 25, $SS_CENTER, $WS_EX_STATICEDGE)
GUICtrlSetFont(-1, 12, 400, 0, "Century Gothic")
GUICtrlSetBkColor(-1, 0xFFFFE1)
$Label3 = GUICtrlCreateLabel("", 312, 152, 311, 25, $SS_CENTER, $WS_EX_STATICEDGE)
GUICtrlSetFont(-1, 12, 400, 0, "Century Gothic")
GUICtrlSetBkColor(-1, 0xFFFFE1)
$Label4 = GUICtrlCreateLabel("", 8, 184, 79, 25, $SS_CENTER, $WS_EX_STATICEDGE)
GUICtrlSetFont(-1, 12, 400, 0, "Century Gothic")
GUICtrlSetBkColor(-1, 0xFFFFE1)
$Label5 = GUICtrlCreateLabel("", 88, 184, 223, 25, $SS_CENTER, $WS_EX_STATICEDGE)
GUICtrlSetFont(-1, 12, 400, 0, "Century Gothic")
GUICtrlSetBkColor(-1, 0xFFFFE1)
$Label6 = GUICtrlCreateLabel("", 312, 184, 311, 25, $SS_CENTER, $WS_EX_STATICEDGE)
GUICtrlSetFont(-1, 12, 400, 0, "Century Gothic")
GUICtrlSetBkColor(-1, 0xFFFFE1)
$Label7 = GUICtrlCreateLabel("", 8, 216, 79, 25, $SS_CENTER, $WS_EX_STATICEDGE)
GUICtrlSetFont(-1, 12, 400, 0, "Century Gothic")
GUICtrlSetBkColor(-1, 0xFFFFE1)
$Label8 = GUICtrlCreateLabel("", 88, 216, 223, 25, $SS_CENTER, $WS_EX_STATICEDGE)
GUICtrlSetFont(-1, 12, 400, 0, "Century Gothic")
GUICtrlSetBkColor(-1, 0xFFFFE1)
$Label9 = GUICtrlCreateLabel("", 312, 216, 311, 25, $SS_CENTER, $WS_EX_STATICEDGE)
GUICtrlSetFont(-1, 12, 400, 0, "Century Gothic")
GUICtrlSetBkColor(-1, 0xFFFFE1)
$Label10 = GUICtrlCreateLabel("Time", 7, 120, 79, 25, $SS_CENTER, $WS_EX_STATICEDGE)
GUICtrlSetFont(-1, 14, 800, 0, "Century Gothic")
$Label11 = GUICtrlCreateLabel("Interpret", 87, 120, 223, 25, $SS_CENTER, $WS_EX_STATICEDGE)
GUICtrlSetFont(-1, 14, 800, 0, "Century Gothic")
$Label12 = GUICtrlCreateLabel("Titel", 311, 120, 311, 25, $SS_CENTER, $WS_EX_STATICEDGE)
GUICtrlSetFont(-1, 14, 800, 0, "Century Gothic")
$Label13 = GUICtrlCreateLabel("", 3, 91, 623, 25, $SS_CENTER, $WS_EX_STATICEDGE)
GUICtrlSetFont(-1, 14, 800, 0, "Century Gothic")
GUICtrlSetBkColor(-1, 0xC0DCC0)
$List1 = GUICtrlCreateList("", 8, 248, 615, 173)
GUICtrlSetFont(-1, 12, 400, 0, "Century Gothic")
GUICtrlSetBkColor(-1, 0xFFFFE1)
GUISetState(@SW_SHOW)
[/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit]_auslese()
Dim $Fileversion
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $MenuItem3
$oIE = _IECreate("http://lsd.newmedia.nacamar.net/bb/redirect.lsc?content=download&media=http&stream=freestream/sunshine-live/frameset_wmt.html",1,1,1,1)
Case $MenuItem4
$oIE = _IECreate($url)
EndSwitch
WEnd
Func _auslese()
$WinHttpReq = ObjCreate("WinHttp.WinHttpRequest.5.1")
$s_URL = "http://www.sunshine-live.de/typo3temp/JS_playlistfeed.txt"
$WinHttpReq.Open("GET", $s_URL, False)
$WinHttpReq.Send()
Global $c = $WinHttpReq.ResponseText
$bild = _StringBetween($c, 'B_BANNER":"','",')
$sendung = _StringBetween($c, 'B_TITLE":"','",')
$time = _StringBetween($c, 'T_START_HR_HM":"','",')
$title = _StringBetween($c, '"title":"','",')
$interpreter = _StringBetween($c, '"interpreter":"','",')
For $f = 0 To UBound($title)-1
ConsoleWrite("Time: "&$time[$f]&" Interpret: "&$interpreter[$f]&" Title: "&$title[$f]&" Sendung: "&$sendung[$f]&@CRLF)
;http://www.sunshine-live.de/uploads/tx_bro…Banner_WTTC.jpg
Next
$pic1=INetGet($url&"uploads/tx_broadcastplaylist/"&$bild[0],@TempDir&"\banner.jpg")
GUICtrlCreatePic(@TempDir&"\banner.jpg", 8, 8, 617, 81, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetData($Label13,$sendung[0])
GUICtrlSetData($Label1,$time[0])
GUICtrlSetData($Label4,$time[1])
GUICtrlSetData($Label7,$time[2])
GUICtrlSetData($Label2,$interpreter[0])
GUICtrlSetData($Label5,$interpreter[1])
GUICtrlSetData($Label8,$interpreter[2])
GUICtrlSetData($Label3,$title[0])
GUICtrlSetData($Label6,$title[1])
GUICtrlSetData($Label9,$title[2])
GUICtrlSetData($List1,"Time: "&$time[0]&" Interpret: "&$interpreter[0]&" Title: "&$title[0])
GUICtrlSetData($List1,"Time: "&$time[1]&" Interpret: "&$interpreter[1]&" Title: "&$title[1])
GUICtrlSetData($List1,"Time: "&$time[2]&" Interpret: "&$interpreter[2]&" Title: "&$title[2])
EndFunc
[/autoit][autoit][/autoit][autoit][/autoit]
Vielleicht kann das ja einer gebrauchen von euch