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
Script Function:
Template AutoIt script.
#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
;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
#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
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