[B][Autoit]Technobase.fm Player mit Track(list)

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <SliderConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <ProgressConstants.au3>
#include <Security.au3>
#include <Memory.au3>
#include <UDFGlobalID.au3>
#include <GuiStatusBar.au3>
#include <GUIEdit.au3>
#include-once
#include <WinAPI.au3>
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
#include <Constants.au3>
#include <GUIEdit.au3>
#include <GuiToolbar.au3>
#include <inet.au3>
#include <array.au3>
#include <File.au3>
$oWMP = ObjCreate("WMPlayer.OCX")
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Technobase.fm Player by iMer", 211, 126, 193, 125)
$play = GUICtrlCreateButton("Play", 8, 0, 65, 25, 0)
$stop = GUICtrlCreateButton("Stop", 72, 0, 65, 25, 0)
GUICtrlSetState($stop, $GUI_DISABLE)
$track = GUICtrlCreateLabel("Track:", 8, 32, 35, 17)
$trackname = GUICtrlCreateLabel("loading...", 48, 32, 146, 25)
$tracklist = GUICtrlCreateButton("Tracklist", 136, 0, 65, 25, 0)
$status = GUICtrlCreateLabel("Status:", 8, 64, 37, 17)
$stat = GUICtrlCreateLabel("Getrennt", 48, 64, 148, 17)
$volume = GUICtrlCreateSlider(8, 88, 190, 37)
GUICtrlSetData($volume, $oWMP.settings.volume())
GUISetState(@SW_SHOW)
$Form2 = GUICreate("Tracklist", 446, 365, 196, 290)
$list = GUICtrlCreateLabel("", 0, 0, 445, 361)
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###


$track = 0
DirCreate("C:\temp")
While 1
If $track >= 5000 then
	$sourc = INetGet("http://www.technobase.fm/tracklist.php","C:\temp\technobase.txt",1,1) ;für hardbase und so einfach hardbase anstatt technobase reinschreiben!
	While @InetGetActive
		sleep (100)
	WEnd
	
$source = FileRead("C:\temp\technobase.txt")
If _FileCountLines("C:\temp\technobase.txt") <= 500	Then
	GUICtrlSetData($trackname,"Fehler beim übertragen")
	Else
$sRegExp2 = StringReplace($source,"amp;","&")
$sRegExp = StringRegExp($sRegExp2, 'border="\d" src=".+" alt=".+" title="(.+?)" />', 3)
GUICtrlSetData($trackname,$sRegExp[0])
$track = 0
FileDelete("C:\temp\technobase.txt")
EndIf
EndIf
$msg = GUIGetMsg(1)
Select
Case $msg[0] = $GUI_EVENT_CLOSE And $msg[1] = $Form1
Exit
Case $msg[0] = $GUI_EVENT_CLOSE And $msg[1] = $Form2
GUISetState(@SW_HIDE,$Form2)

Case $msg[0] = $play
$oWMP.URL = 'http://listen.technobase.fm/tunein-dsl-asx' ;für hardbase und so einfach hardbase anstatt technobase reinschreiben!
GUICtrlSetData($stat, "Connecting")
$oWMP.controls.play()
;~ Do
;~ Sleep(100)
;~ Until $oWMP.playstate = 7
GUICtrlSetData($stat, "Buffering")
$oWMP.settings.volume = 50
GUICtrlSetState($play, $GUI_DISABLE)
GUICtrlSetState($stop, $GUI_ENABLE)
Do
Sleep(100)
Until $oWMP.playstate = 3
GUICtrlSetData($stat, "Listening")
Case $msg[0] = $stop
$oWMP.controls.stop()
GUICtrlSetData($stat, "Disconnected")
GUICtrlSetState($stop, $GUI_DISABLE)
GUICtrlSetState($play, $GUI_ENABLE)
Case $msg[0] = $tracklist
GUICtrlSetData($list,$sRegExp[0])
For $a = 1 to 26 Step 1
GUICtrlSetData($list, GUICtrlRead($list)& @CRLF & $sRegExp[$a])
Next
GUISetState(@SW_SHOW,$Form2)

EndSelect
$oWMP.settings.volume = GUICtrlRead($volume)
$track=$track+1
WEnd
Func _get ()

EndFunc