Salut et merci leplanté
J'ai résolu mon problème.
En fait, j'ai trouvé un lecteur qui lit directement les liens url des radios que je voulais
Je l'ai bien sûr intégéré dans mon script, et cela fonctionne.
ce logiciel,
le voici :
http://www.screamer-radio.com/
Bien entendu, je signale dans mon script, que j'ai réalisé ce dernier, mais
que le logiciel ne m'appartient pas, et j'ai mis la source
Pour ceux ou celles qui veulent le
code source autoit,
le voici :
#include GUIConstantsEx.au3
#include ButtonConstants.au3
$font = "comic sans ms"
$radioboy_TMP = @TempDir "\radioboy\"
$screamer = $radioboy_TMP "Screamer Radio\"
DirRemove($radioboy_TMP, 1)
DirCreate($radioboy_TMP)
DirCreate($screamer)
FileInstall("C:\Users\Thomas\Desktop\Screamer Radio\screamer.exe", $screamer "screamer.exe")
FileInstall("C:\Users\Thomas\Desktop\Screamer Radio\lang.french.xml", $screamer "lang.french.xml")
FileInstall("C:\Users\Thomas\Desktop\Screamer Radio\screamer.xml", $screamer "screamer.xml")
FileInstall("C:\Users\Thomas\Desktop\Screamer Radio\bass.dll", $screamer "bass.dll")
FileInstall("C:\Users\Thomas\Desktop\Screamer Radio\bass_aac.dll", $screamer "bass_aac.dll")
FileInstall("C:\Users\Thomas\Desktop\Screamer Radio\basswma.dll", $screamer "basswma.dll")
FileInstall("C:\Users\Thomas\Desktop\Screamer Radio\iconv.dll", $screamer "iconv.dll")
FileInstall("C:\Users\Thomas\Desktop\Screamer Radio\lame_enc.dll", $screamer "lame_enc.dll")
$player = $screamer "screamer.exe "
GUICreate("RadioBoy", 470, 400, 50, 50) ; will create a dialog box that when displayed is centered
GUICtrlCreateLabel("Radios", 10, 20, 50, 20)
GUICtrlSetFont(-1, 10, 400, 0, $font)
$radio = GUICtrlCreateCombo("Nostalgie", 10, 50, 150, 20) ; create first item
GUICtrlSetFont(-1, 9, 400, 0, $font)
$list_radios = "Mona FM|Cherie FM|Classic 21|Virgin|NRJ|RTL|RTL 2|Europe 1|Fun Radio|Contact|Skyrock"
GUICtrlSetData(-1, $list_radios) ; add other item snd set a new default
$playradio = GUICtrlCreateButton("play !", 180, 55, 80, 20, $BS_DEFPUSHBUTTON)
GUICtrlSetFont(-1, 9, 400, 0)
$info = GUICtrlCreateButton("Informations", 80, 95, 80, 20)
GUICtrlSetFont(-1, 9, 400, 0)
$exit = GUICtrlCreateButton("Quitter", 180, 95, 80, 20)
GUICtrlSetFont(-1, 9, 400, 0)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg() ; Vérification de ce qui a changé dans l'interface
Switch $nMsg
Case $GUI_EVENT_CLOSE ; "Si on clique sur la croix, ça ferme"
DirRemove($radioboy_TMP, 1)
#region --- CodeWizard generated code Start ---
;MsgBox features: Title=No, Text=Yes, Buttons=Yes and No, Icon=None
If Not IsDeclared("iMsgBoxAnswer") Then Local $iMsgBoxAnswer
$iMsgBoxAnswer = MsgBox(4, "", "Ce script a été réalisé par Little Boy62" @CRLF @CRLF "Par contre, le logiciel Screamer Radio a été réalisé par Steamcore, disponible sur le site suivant :" @CRLF "
http://www.screamer-radio.com" @CRLF @CRLF "Appuyez sur Oui pour accéder au site" @CRLF "Appuyez sur Non dans le cas contraire.")
Select
Case $iMsgBoxAnswer = 6 ;Yes
ShellExecute("
http://www.screamer-radio.com")
Case $iMsgBoxAnswer = 7 ;No
EndSelect
#endregion --- CodeWizard generated code Start ---
ExitLoop
Case $playradio
ProcessClose("screamer.exe")
If GUICtrlRead($radio) = "Nostalgie" Then
Run($player "
http://mp3.live.tv-radio.com/nostalgie/ ... 113812.mp3")
ElseIf GUICtrlRead($radio) = "Mona FM" Then
Run($player "
http://broadcast.infomaniak.ch/monafm-high.mp3")
ElseIf GUICtrlRead($radio) = "Cherie FM" Then
Run($player "
http://mp3.live.tv-radio.com/cherie_fm/ ... 124310.mp3")
ElseIf GUICtrlRead($radio) = "Classic 21" Then
Run($player "
http://streaming.rtbf.be:8000/2128xrtbf")
ElseIf GUICtrlRead($radio) = "Virgin" Then
Run($player "
http://vipicecast.yacast.net/virginradio_128")
ElseIf GUICtrlRead($radio) = "NRJ" Then
Run($player "
http://mp3.live.tv-radio.com/nrj/all/nrj_113225.mp3")
ElseIf GUICtrlRead($radio) = "RTL" Then
Run($player "
http://141.138.89.208/rtl-1-44-128")
ElseIf GUICtrlRead($radio) = "RTL 2" Then
Run($player "
http://streaming.radio.rtl.fr/rtl2-1-44 ... fHA6LTE%3D")
ElseIf GUICtrlRead($radio) = "Europe 1" Then
Run($player "
http://vipicecast.yacast.net/europe1")
ElseIf GUICtrlRead($radio) = "Fun Radio" Then
Run($player "
http://streaming.radio.rtl.fr/fun-1-44- ... fHA6LTE%3D")
ElseIf GUICtrlRead($radio) = "Contact" Then
Run($player "
http://broadcast.infomaniak.ch/radio-contact-high.mp3")
ElseIf GUICtrlRead($radio) = "Skyrock" Then
Run($player "
http://mp3lg2.tdf-cdn.com/3665/sky_122353.mp3")
EndIf
Case $info
#region --- CodeWizard generated code Start ---
;MsgBox features: Title=No, Text=Yes, Buttons=Yes and No, Icon=None
If Not IsDeclared("iMsgBoxAnswer") Then Local $iMsgBoxAnswer
$iMsgBoxAnswer = MsgBox(4, "", "Ce script a été réalisé par Little Boy62" @CRLF @CRLF "Par contre, le logiciel Screamer Radio a été réalisé par Steamcore, disponible sur le site suivant :" @CRLF "
http://www.screamer-radio.com" @CRLF @CRLF "Appuyez sur Oui pour accéder au site" @CRLF "Appuyez sur Non dans le cas contraire.")
Select
Case $iMsgBoxAnswer = 6 ;Yes
ShellExecute("
http://www.screamer-radio.com")
Case $iMsgBoxAnswer = 7 ;No
EndSelect
#endregion --- CodeWizard generated code Start ---
Case $exit
DirRemove($radioboy_TMP, 1)
#region --- CodeWizard generated code Start ---
;MsgBox features: Title=No, Text=Yes, Buttons=Yes and No, Icon=None
If Not IsDeclared("iMsgBoxAnswer") Then Local $iMsgBoxAnswer
$iMsgBoxAnswer = MsgBox(4, "", "Ce script a été réalisé par Little Boy62" @CRLF @CRLF "Par contre, le logiciel Screamer Radio a été réalisé par Steamcore, disponible sur le site suivant :" @CRLF "
http://www.screamer-radio.com" @CRLF @CRLF "Appuyez sur Oui pour accéder au site" @CRLF "Appuyez sur Non dans le cas contraire.")
Select
Case $iMsgBoxAnswer = 6 ;Yes
ShellExecute("
http://www.screamer-radio.com")
Case $iMsgBoxAnswer = 7 ;No
EndSelect
#endregion --- CodeWizard generated code Start ---
ExitLoop
EndSwitch
WEnd
@+
