Webradio Player + Streamripper

#include <GUIConstants.au3> 
#include <ButtonConstants.au3> 
#include <WindowsConstants.au3> 
#include <Array.au3> 
#Include <Constants.au3> 
#include <File.au3> 
#NoTrayIcon 
FileInstall("C:\Aufnahme\streamripper.exe", @ScriptDir &"\streamripper.exe", 1) 
FileInstall("C:\Aufnahme\tre.dll", @ScriptDir &"\tre.dll", 1) 
FileInstall("C:\Aufnahme\vorbis.dll", @ScriptDir &"\vorbis.dll", 1) 
FileInstall("C:\Aufnahme\ogg.dll", @ScriptDir &"\ogg.dll", 1) 


opt("GUIOnEventMode", 1) 


Global $hwndActive 
$oMyError = ObjEvent("AutoIt.Error","Quit") 
$oMediaplayer = ObjCreate("wmplayer.ocx") 
If Not IsObj($oMediaplayer) Then Exit 
$oMediaplayer.Enabled = true 
$oMediaplayer.WindowlessVideo= true 
$oMediaPlayer.UImode="invisible" 
$oMediaPlayControl=$oMediaPlayer.Controls 
$oMediaPlaySettings=$oMediaPlayer.Settings 
$lastStatus=$oMediaplayer.status 
$status = $oMediaplayer.status 


$caption = "Radio Player v1.8 Freeware" 
$hGui = GUICreate("Radio Player v1.8", 230, 180, (@DesktopWidth-380)/2, (@DesktopHeight-320)/2) 


GUISetBkColor("0xFFFFCC") 
GUISetOnEvent($GUI_EVENT_CLOSE, "Close") 
GUICtrlSetColor(-1, 0xFFFFFF) 
$caption = GUICtrlCreateLabel($caption, 12, 4, 180, 14) 
GUICtrlSetStyle($caption, -1, $WS_EX_TRANSPARENT) 
GUICtrlSetColor(-1, 0x0046D5) 
GUISetBkColor("0xFFFFCC") 


$combo_name = GuiCtrlCreateCombo("Wähle einen Radiosender", 13, 30, 153, 20) 
GUICtrlSetOnEvent(-1, "ComboEvent") 
GUICtrlSetStyle(-1, -1, $WS_EX_TRANSPARENT) 
GUISetBkColor("0xFFFFCC") 


GuiCtrlSetData($combo_name, "************************") 


GuiCtrlCreateLabel("Volume", 73, 55, 40, 20) 
GUICtrlSetStyle(-1,-1, $WS_EX_TRANSPARENT) 
GUICtrlSetColor(-1, 0x0046D5) 


$Play = GuiCtrlCreateButton("Play", 175, 30, 45, 22) 
GUICtrlSetBkColor(-1, 0xFFFFCC) 
GUICtrlSetOnEvent($Play, "Play") 
GUICtrlSetColor(-1, 0x0046D5) 
$Stop = GuiCtrlCreateButton("Stop", 175, 55, 45, 22) 
GUICtrlSetBkColor(-1, 0xFFFFCC) 
GUICtrlSetOnEvent($Stop, "Stop") 
GUICtrlSetColor(-1, 0x0046D5) 


$REC = GUICtrlCreateButton("Record", 175, 80, 45, 22) 
GUICtrlSetBkColor(-1, 0xFFFFCC) 
GUICtrlSetOnEvent($REC, "rec") 
GUICtrlSetColor(-1, 0x0046D5) 
GUICtrlCreateGroup("Status:", 8, 104, 209, 65) 
GUICtrlSetStyle(-1,-1, $WS_EX_TRANSPARENT) 
GUICtrlSetColor(-1, 0x0046D5) 
$StationStatus = GUICtrlCreateLabel("", 16, 120, 187, 41) 
GUICtrlSetColor(-1, 0x0046D5) 
$hwndActive = $hGui 
GUISetState(@SW_SHOW) 
WinActivate("Radio Player v1.8 Freeware", "") 


While 1 
Sleep(1000) 
WEnd 


Func Close() 
GUISetState(@SW_HIDE) 
If FileExists(@TempDir & "\update.bat") = 1 Then FileDelete(@TempDir & "\update.bat") 
If FileExists(@TempDir & "\RM_new.exe") = 1 Then FileDelete(@TempDir & "\RM_new.exe") 
If FileExists(@ScriptDir & "\RM_new.exe") = 1 Then FileDelete(@ScriptDir & "\RM_new.exe") 
If FileExists(@ScriptDir & "\update.bat") = 1 Then FileDelete(@ScriptDir & "\update.bat") 
If FileExists(@ScriptDir & "\streamripper.exe") = 1 Then FileDelete(@ScriptDir & "\streamripper.exe") 
If FileExists(@ScriptDir & "\tre.dll") = 1 Then FileDelete(@ScriptDir & "\tre.dll") 
If FileExists(@ScriptDir & "\vorbis.dll") = 1 Then FileDelete(@ScriptDir & "\vorbis.dll") 
If FileExists(@ScriptDir & "\ogg.dll") = 1 Then FileDelete(@ScriptDir & "\ogg.dll") 
Exit 
EndFunc 
Func Minimize() 
GUISetState(@SW_MINIMIZE) 
EndFunc 


Func Play() 
$oMediaPlayControl.Play 
EndFunc 
Func Stop() 
$oMediaPlayControl.Stop 
EndFunc 
Func rec() 
$Radio = GuiCtrlRead($combo_name) 
$MP = IniRead(@UserProfileDir&"\*Inidatei*",$Radio,"URL","") 
$prog = 'streamripper.exe ' ; Pfad zu streamripper 
$para = '-u IE 6.0' 
MsgBox(64, "Hinweis", "Die Aufnahmefunktion, funkioniert leider noch nicht bei allen Sendern!" & @LF & "Wir Arbeiten dran ;) habt geduld!!!", 10) 
RunWait(@ComSpec & ' /c ' & $prog & $MP, @ScriptDir, @SW_MAXIMIZE) 
;RunWait(@COMSPEC & ' /c ' @ScriptDir & "streamripper.exe" "$MP") 
EndFunc 


Func ExitEvent() 
If FileExists(@TempDir & "\update.bat") = 1 Then FileDelete(@TempDir & "\update.bat") 
If FileExists(@TempDir & "\RM_new.exe") = 1 Then FileDelete(@TempDir & "\RM_new.exe") 
If FileExists(@ScriptDir & "\RM_new.exe") = 1 Then FileDelete(@ScriptDir & "\RM_new.exe") 
If FileExists(@ScriptDir & "\update.bat") = 1 Then FileDelete(@ScriptDir & "\update.bat") 
If FileExists(@ScriptDir & "\streamripper.exe") = 1 Then FileDelete(@ScriptDir & "\streamripper.exe") 
If FileExists(@ScriptDir & "\tre.dll") = 1 Then FileDelete(@ScriptDir & "\tre.dll") 
If FileExists(@ScriptDir & "\vorbis.dll") = 1 Then FileDelete(@ScriptDir & "\vorbis.dll") 
If FileExists(@ScriptDir & "\ogg.dll") = 1 Then FileDelete(@ScriptDir & "\ogg.dll") 


Exit 
EndFunc 


Func ComboEvent() 
$Radio = GuiCtrlRead($combo_name) 
$oMediaPlayer.URL = IniRead(@TempDir&"\*inidatei*",$Radio,"URL","") 


EndFunc 
Func SliderEvent() 
If GUICtrlread($Volume) <> $VolLevel Then 
$oMediaPlaySettings.Volume = GUICtrlRead($Volume) 
$VolLevel = GUICtrlRead($Volume) 
EndIf 
EndFunc 
Func ReadStation() 
if FileExists(@TempDir&"\*inidatei*") Then 
$aCombo_List = IniReadSectionNames(@Tempdir&"\*inidatei*") 
$sCombo_Stations = _ArrayToString($aCombo_List, "|",1,"") 


return $sCombo_Stations 
Else 
msgbox(48,"Error","Konnte keine Datenbank finden! Bitte Übeprüfen Sie ihre Internetverbindung oder ggf. Ihre Firewall!",0) 
Exit 
EndIf 
EndFunc