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

 AutoIt Version: 3.3.0.0
 Author:         myName

 Script Function:
	Template AutoIt script.

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

; Script Start - Add your code below here

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


;Hilfe

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


#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 ###

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


		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