Mein Radio Streamer[Erstes Projekt]

So ich stelle hier nun mein erstes Projekt vor.Es ist ein wie der Name schon sagt Radio Stream. Ich weiß das es davon schon einige gibt aber ich dachte mir ich mache trotzdem noch eins
Sender:
Technobase|Housetime|Hardbase|Trancebase|Coretime|Techno4ever|TranceRadio|TuneBase|SlashFM|French Kiss FM|(DI) Techno|(DI) Trance|(DI) Eurodance|(DI) Hard Dance|HarderRadio.FM Jump|Top FM|Maxxhits|89.0 RTL

Hier mal der Source Code:

[autoit]

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

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

AutoIt Version: 3.3.0.0
Author: myName

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

Script Function:
Template AutoIt script.

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

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

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

; Script Start - Add your code below here

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

#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#NoTrayIcon

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

;Hilfe

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

;Technobase: http://www.technobase.fm/wmplayer.php
;Housetime: http://www.housetime.fm/wmplayer.php
;Hardbase: http://www.hardbase.fm/wmplayer.php
;Trancebase: http://www.trancebase.fm/wmplayer.php
;Coretime: http://www.coretime.fm/wmplayer.php
;TOP FM : http://www.surfmusik.de/radio/106-4-top-fm,9411.html
;89.0 RTL http://www.surfmusik.de/radio/89-0-rtl,1013.html
;Techno 4Ever http://www.surfmusik.de/radio/techno4ever-modem,8458.html
;TranceRadio http://www.surfmusik.de/radio/tranceradio-ch-dsl,5229.html
;TuneBase http://www.surfmusik.de/radio/tunebase-fm-dsl,10214.html
;SlashFM http://www.surfmusik.de/radio/slashfm-dsl,8118.html
;French Kiss FM http://www.surfmusik.de/radio/french-kiss-fm-dsl,11195.html
;DI Techno http://www.surfmusik.de/radio/di-fm-techno-modem,11466.html
;HarderRadio.FM Jump http://www.surfmusik.de/radio/harderradio-fm-jump,11443.html
;Maxxhits http://www.surfmusik.de/radio/maxxhits,10808.html
;DI Trance http://www.surfmusik.de/radio/di-fm-trance-modem,1557.html
;DI Eurodance http://www.surfmusik.de/radio/di-fm-eu…odem,11459.html
;DI Hard Dance http://www.surfmusik.de/radio/di-fm-ha…modem,1555.html

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

#Region ### START Koda GUI section ### Form=c:\users\killax2x\desktop\player.kxf
$Form1_1 = GUICreate("MultiRadio v.1.0", 299, 201, 193, 125)
$oIE = _IECreateEmbedded ()
GUICtrlCreateObj($oIE, -300, -300, 0, 0)
$play = GUICtrlCreateButton("Play", 168, 40, 121, 25, 0)
$stop = GUICtrlCreateButton("Stop", 168, 72, 121, 25, 0)
$credits = GUICtrlCreateButton("Credits", 168, 104, 121, 25, 0)
$record = GUICtrlCreateButton("Record", 168, 136, 121, 25, 0)
$exit = GUICtrlCreateButton("Exit", 168, 168, 121, 25, 0)
$Slider1 = GUICtrlCreateSlider(8, 8, 281, 25)
GUICtrlSetLimit(-1,100,0)
GUISetState()
GUICtrlSetData($Slider1, 40)
$Sender = GUICtrlCreateCombo("", 8, 56, 153, 25)
GUICtrlSetData (-1,"Technobase|Housetime|Hardbase|Trancebase|Coretime|Techno4ever|TranceRadio|TuneBase|SlashFM|French Kiss FM|(DI) Techno|(DI) Trance|(DI) Eurodance|(DI) Hard Dance|HarderRadio.FM Jump|Top FM|Maxxhits|89.0 RTL")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
MsgBox (0,"Bye","Thank you for using this Program")
Exit

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

Case $play
If GUICtrlRead ($Sender) = "" Then
MsgBox (0, "Error","Sie haben kein Radio ausgewählt!")
ElseIf GUICtrlRead ($Sender) = "Technobase" Then
_IENavigate ($oIE,"www.technobase.fm/wmplayer.php",1)
ElseIf GUICtrlRead ($Sender) = "Housetime" Then
_IENavigate ($oIE,"www.housetime.fm/wmplayer.php",1)
ElseIf GUICtrlRead ($Sender) = "Hardbase" Then
_IENavigate ($oIE,"www.hardbase.fm/wmplayer.php",1)
ElseIf GUICtrlRead ($Sender) = "Trancebase" Then
_IENavigate ($oIE,"www.trancebase.fm/wmplayer.php",1)
ElseIf GUICtrlRead ($Sender) = "Coretime" Then
_IENavigate ($oIE,"www.coretime.fm/wmplayer.php",1)
ElseIf GUICtrlRead ($Sender) = "Top FM" Then
_IENavigate ($oIE,"www.surfmusik.de/radio/106-4-top-fm,9411.html",1)
ElseIf GUICtrlRead ($Sender) = "89.0 RTL" Then
_IENavigate ($oIE,"www.surfmusik.de/radio/89-0-rtl,1013.html",1)
ElseIf GUICtrlRead ($Sender) = "Techno4ever" Then
_IENavigate ($oIE,"www.surfmusik.de/radio/techno4ever-modem,8458.html",1)
ElseIf GUICtrlRead ($Sender) = "TranceRadio" Then
_IENavigate ($oIE,"www.surfmusik.de/radio/tranceradio-ch-dsl,5229.html",1)
ElseIf GUICtrlRead ($Sender) = "TuneBase" Then
_IENavigate ($oIE,"www.surfmusik.de/radio/tunebase-fm-dsl,10214.html",1)
ElseIf GUICtrlRead ($Sender) = "SlashFM" Then
_IENavigate ($oIE,"www.surfmusik.de/radio/slashfm-dsl,8118.html",1)
ElseIf GUICtrlRead ($Sender) = "French Kiss FM" Then
_IENavigate ($oIE,"www.surfmusik.de/radio/french-kiss-fm-dsl,11195.html",1)
ElseIf GUICtrlRead ($Sender) = "(DI) Techno" Then
_IENavigate ($oIE,"www.surfmusik.de/radio/di-fm-techno-modem,11466.html",1)
ElseIf GUICtrlRead ($Sender) = "HarderRadio.FM Jump" Then
_IENavigate ($oIE,"www.surfmusik.de/radio/harderradio-fm-jump,11443.html",1)
ElseIf GUICtrlRead ($Sender) = "Maxxhits" Then
_IENavigate ($oIE,"www.surfmusik.de/radio/maxxhits,10808.html",1)
ElseIf GUICtrlRead ($Sender) = "(DI) Trance" Then
_IENavigate ($oIE,"www.surfmusik.de/radio/di-fm-trance-modem,1557.html",1)
ElseIf GUICtrlRead ($Sender) = "(DI) Trance" Then
_IENavigate ($oIE,"www.surfmusik.de/radio/di-fm-eurodance-modem,11459.html",1)
ElseIf GUICtrlRead ($Sender) = "(DI) Trance" Then
_IENavigate ($oIE,"www.surfmusik.de/radio/di-fm-hard-dance-modem,1555.html",1)
EndIf
Case $stop
_IENavigate($oIE, "about:blank")
Case $Credits
MsgBox (0,"Credits","This program was made by killax2x.
Case $record
MsgBox (0,"Sorry","Sorry but this function is not available")
Case $exit
Exit
EndSwitch
SoundSetWaveVolume(GUICtrlRead($Slider1))
WEnd

[/autoit]

So viele der Radios werden über https://autoit.de/www.surfmusik.de empfangen.Achja wenn wer Vorschläge hat was man noch einbauen kann oder was man verbessern kann entweder posten oder nachricht an mich.
So das wars dann erstmal mit mir viel Spaß mit meinem ersten Programm.

mfg killax2x

So hier nochmal mit Sunshine Live *mit richtiger addresse^^

[autoit]

#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#NoTrayIcon

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

;Hilfe

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

;Technobase: http://www.technobase.fm/wmplayer.php
;Housetime: http://www.housetime.fm/wmplayer.php
;Hardbase: http://www.hardbase.fm/wmplayer.php
;Trancebase: http://www.trancebase.fm/wmplayer.php
;Coretime: http://www.coretime.fm/wmplayer.php
;TOP FM : http://www.surfmusik.de/radio/106-4-top-fm,9411.html
;89.0 RTL http://www.surfmusik.de/radio/89-0-rtl,1013.html
;Techno 4Ever http://www.surfmusik.de/radio/techno4ever-modem,8458.html
;TranceRadio http://www.surfmusik.de/radio/tranceradio-ch-dsl,5229.html
;TuneBase http://www.surfmusik.de/radio/tunebase-fm-dsl,10214.html
;SlashFM http://www.surfmusik.de/radio/slashfm-dsl,8118.html
;French Kiss FM http://www.surfmusik.de/radio/french-kiss-fm-dsl,11195.html
;DI Techno http://www.surfmusik.de/radio/di-fm-techno-modem,11466.html
;HarderRadio.FM Jump http://www.surfmusik.de/radio/harderradio-fm-jump,11443.html
;Maxxhits http://www.surfmusik.de/radio/maxxhits,10808.html
;DI Trance http://www.surfmusik.de/radio/di-fm-trance-modem,1557.html
;DI Eurodance http://www.surfmusik.de/radio/di-fm-eu…odem,11459.html
;DI Hard Dance http://www.surfmusik.de/radio/di-fm-ha…modem,1555.html
;Sunshine Live http://edge.download.newmedia.nacamar.ne%e2%80%a6ameset_mp3.html

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

#Region ### START Koda GUI section ### Form=c:\users\killax2x\desktop\player.kxf
$Form1_1 = GUICreate("MultiRadio v.1.0", 299, 201, 193, 125)
$oIE = _IECreateEmbedded ()
GUICtrlCreateObj($oIE, -300, -300, 0, 0)
$play = GUICtrlCreateButton("Play", 168, 40, 121, 25, 0)
$stop = GUICtrlCreateButton("Stop", 168, 72, 121, 25, 0)
$credits = GUICtrlCreateButton("Credits", 168, 104, 121, 25, 0)
$record = GUICtrlCreateButton("Record", 168, 136, 121, 25, 0)
$exit = GUICtrlCreateButton("Exit", 168, 168, 121, 25, 0)
$Slider1 = GUICtrlCreateSlider(8, 8, 281, 25)
GUICtrlSetLimit(-1,100,0)
GUISetState()
GUICtrlSetData($Slider1, 40)
$Sender = GUICtrlCreateCombo("", 8, 56, 153, 25)
GUICtrlSetData (-1,"Technobase|Housetime|Hardbase|Trancebase|Coretime|Techno4ever|TranceRadio|TuneBase|SlashFM|French Kiss FM|(DI) Techno|(DI) Trance|(DI) Eurodance|(DI) Hard Dance|HarderRadio.FM Jump|Top FM|Maxxhits|Sunshine Live|89.0 RTL")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
MsgBox (0,"Bye","Thank you for using this Program.")
Exit

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

Case $play
If GUICtrlRead ($Sender) = "" Then
MsgBox (0, "Error","Sie haben kein Radio ausgewählt!")
ElseIf GUICtrlRead ($Sender) = "Technobase" Then
_IENavigate ($oIE,"www.technobase.fm/wmplayer.php",1)
ElseIf GUICtrlRead ($Sender) = "Housetime" Then
_IENavigate ($oIE,"www.housetime.fm/wmplayer.php",1)
ElseIf GUICtrlRead ($Sender) = "Hardbase" Then
_IENavigate ($oIE,"www.hardbase.fm/wmplayer.php",1)
ElseIf GUICtrlRead ($Sender) = "Trancebase" Then
_IENavigate ($oIE,"www.trancebase.fm/wmplayer.php",1)
ElseIf GUICtrlRead ($Sender) = "Coretime" Then
_IENavigate ($oIE,"www.coretime.fm/wmplayer.php",1)
ElseIf GUICtrlRead ($Sender) = "Top FM" Then
_IENavigate ($oIE,"www.surfmusik.de/radio/106-4-top-fm,9411.html",1)
ElseIf GUICtrlRead ($Sender) = "89.0 RTL" Then
_IENavigate ($oIE,"www.surfmusik.de/radio/89-0-rtl,1013.html",1)
ElseIf GUICtrlRead ($Sender) = "Techno4ever" Then
_IENavigate ($oIE,"www.surfmusik.de/radio/techno4ever-modem,8458.html",1)
ElseIf GUICtrlRead ($Sender) = "TranceRadio" Then
_IENavigate ($oIE,"www.surfmusik.de/radio/tranceradio-ch-dsl,5229.html",1)
ElseIf GUICtrlRead ($Sender) = "TuneBase" Then
_IENavigate ($oIE,"www.surfmusik.de/radio/tunebase-fm-dsl,10214.html",1)
ElseIf GUICtrlRead ($Sender) = "SlashFM" Then
_IENavigate ($oIE,"www.surfmusik.de/radio/slashfm-dsl,8118.html",1)
ElseIf GUICtrlRead ($Sender) = "French Kiss FM" Then
_IENavigate ($oIE,"www.surfmusik.de/radio/french-kiss-fm-dsl,11195.html",1)
ElseIf GUICtrlRead ($Sender) = "(DI) Techno" Then
_IENavigate ($oIE,"www.surfmusik.de/radio/di-fm-techno-modem,11466.html",1)
ElseIf GUICtrlRead ($Sender) = "HarderRadio.FM Jump" Then
_IENavigate ($oIE,"www.surfmusik.de/radio/harderradio-fm-jump,11443.html",1)
ElseIf GUICtrlRead ($Sender) = "Maxxhits" Then
_IENavigate ($oIE,"www.surfmusik.de/radio/maxxhits,10808.html",1)
ElseIf GUICtrlRead ($Sender) = "(DI) Trance" Then
_IENavigate ($oIE,"www.surfmusik.de/radio/di-fm-trance-modem,1557.html",1)
ElseIf GUICtrlRead ($Sender) = "(DI) Trance" Then
_IENavigate ($oIE,"www.surfmusik.de/radio/di-fm-eurodance-modem,11459.html",1)
ElseIf GUICtrlRead ($Sender) = "(DI) Trance" Then
_IENavigate ($oIE,"www.surfmusik.de/radio/di-fm-hard-dance-modem,1555.html",1)
ElseIf GUICtrlRead ($Sender) = "Sunshine Live" Then
_IENavigate ($oIE,"http://edge.download.newmedia.nacamar.ne…ameset_mp3.html",1)
EndIf
Case $stop
_IENavigate($oIE, "about:blank")
Case $Credits
MsgBox (0,"Credits","This program was made by killax2x")
Case $record
MsgBox (0,"Sorry","Sorry but this function is not available")
Case $exit
Exit
EndSwitch
SoundSetWaveVolume(GUICtrlRead($Slider1))
WEnd

[/autoit]

achso die hatte ich mir auchschon rausgesucht dachte dann aber das ich lieber deinen link nehme wird sofort geändert^^

ja haste recht aber wie gesagt wollte erstmal irgendwas selber machen und ausprobieren und das ist halt auch das erste Programm von daher gehts^^

Mh das ist komisch.Bei mir läuft alles-.-

Hatt ich zwar schon mal gepostet
aber passt hier auch super zum thema
Liest von der sunshine seite die playlist aus
auch der banner wird gewechselt wenn die sendung sich ändert
leider habe ich es nicht hinbekommen
png dateien anzeigen zu lassen
aber bei einigen sendungen geben die e jpg vor

[autoit]

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=favicon.ico
#AutoIt3Wrapper_outfile=sunshine_v1.exe
#AutoIt3Wrapper_Res_Fileversion=1.0.0.11
#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>

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

$url="http://www.sunshine-live.de/"
AdlibEnable("_auslese",60000)

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

;

[/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)

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

GUISetState(@SW_SHOW)

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

_auslese()
Dim $Fileversion

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

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()

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

$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()
if $WinHttpReq = @error then
MsgBox(64,"verbindungs Probleme","Die verbindung auf die sunshine-live seite ist gestört"&@CRLF&"versuche es später noch einmal",1)
Exit
EndIf

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

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":"','",')
$bild2 = _StringBetween($c, 'B_THUMB":"','",')
ConsoleWrite($c)

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

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

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

Next
INetGet($url&"uploads/tx_broadcastplaylist/"&$bild[0],@TempDir&"\"&$bild[0])

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

$pic1=GUICtrlCreatePic((@TempDir&"\"&$bild[0]), 8, 8, 617, 81)

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

ConsoleWrite(@TempDir&"\"&$bild[0])
GUICtrlSetData($Label13,$sendung[0])
GUICtrlSetData($Label1,$time[0])
GUICtrlSetData($Label4,$time[1])
GUICtrlSetData($Label7,$time[2])

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

GUICtrlSetData($Label2,$interpreter[0])
GUICtrlSetData($Label5,$interpreter[1])
GUICtrlSetData($Label8,$interpreter[2])

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

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])

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

EndFunc

[/autoit]