Code: Select all
/*
Rádios
Copyright 2023 Benedito Carneiro
Save the script as UTF-8 with BOM
*/
#NoEnv
#SingleInstance, Force
SendMode, Input
SetBatchLines, -1
SetWorkingDir, %A_ScriptDir%
bc := Chr(0169) " 2023 Benedito Carneiro"
Gui, Default
Gui, Font, s13 cWhite, Segoe UI
Gui, Color, 003366
Gui, Add, Text,, Ouça rádio de internet
Gui, Add, Radio, gOuvir, Ouvir uma rádio
Gui, Add, Radio, gEditar, Editar a lista de rádios
Gui, Add, Text,,
Gui, Add, Button, h30 w80 gSair, Sair
Gui, Add, Text,, %bc%
Gui, Show,,
return
Editar:
#IfWinActive, ahk_class Notepad
WinClose, ahk_class Notepad
run, Notepad rádios.html
Return
Ouvir:
run, Rádios.html,, UseErrorLevel
if ErrorLevel = "ERROR"
MsgBox,16, Erro, Não achei o arquivo Rádios.html.
Return
GuiEscape:
GuiClose:
Sair:
Gui,destroy
ExitApp
<!DOCTYPE html>
<html xmlns="http://www.w3.org/1999/xhtml" lang="pt-BR" xml:lang="pt-BR">
<head>
<meta charset="utf-8" />
<meta name="viewport" content="width=device-width, initial-scale=1.0, user-scalable=yes" />
<meta name="author" content="Benedito Carneiro" />
<meta name="description" content="rádios" />
<meta name="keywords" content="rádios" />
<title>Rádios</title>
<link rel="stylesheet" href="style.css">
</head>
<body>
<h1>Rádios</h1>
<ul>
<li><a href="https://www.abc.net.au/classic/listen-live/player/">ABC (Austrália)</a></li>
<li><a href="https://www.abc.net.au/jazz/listen-live/player/%22">ABC Jazz (Austrália)</a></li>
<li><a href="https://webradio.apolloradio.de/">Apollo Radio (Alemanha)</a></li>
<li><a href="http://www.beethovenfm.cl/player/">Beethoven (Chile)</a></li>
<li><a href="https://www.br-klassik.de/index.html">BR-Klassik (Alemanha)</a></li>
<li><a href="https://player.capradio.org/streams">Capital Public Radio (EUA)</a></li>
<li><a href="https://www.cinemix.us/content/blogsection/5/103/lang,en/">Cinemix (EUA)</a></li>
<li><a href="https://www.classic.nl/home">Classicnl (Holanda)</a></li>
<li><a href="http://www.cpr.org/classical">Colorado Public Radio (EUA)</a></li>
<li><a href="https://www.houstonpublicmedia.org/listen-live/#classical">Houston Public Media (EUA)</a></li>
<li><a href="https://kbaq.org/sites/all/services/kbachstreamer.html">KBACH 89.5 Stream (EUA)</a></li>
<li><a href="https://fility.com/klassik1/">KLASSIK1 (Alemanha)</a></li>
<li><a href="https://www.kusc.org/">KUSC Public Radio (EUA)</a></li>
<li><a href="http://kuvo.org/#stream/0">KUVO/KVJZ (EUA)</a></li>
<li><a href="https://laclassica.be/luister/">La Classica (Bélgica)</a></li>
<li><a href="https://www.classicalmpr.org/listen">Minnesota Public Radio (EUA)</a></li>
<li><a href="http://www.radionz.co.nz/audio/live/concert">New Zealand (Nova Zelândia)</a></li>
<li><a href="https://www.radioclassique.fr/radio/direct/">Radio Classique Paris (França)</a></li>
<li><a href="https://www.estadao.com.br/eldorado/">Rádio Eldorado (Brasil)</a></li>
<li><a href="https://radios.ebc.com.br/mecamrio">Rádio MEC | EBC Rádios (Brasil)</a></li>
<li><a href="https://radioscalla.minharadioonline.net/">Rádio Scalla (Brasil)</a></li>
<li><a href="http://www.radioswissjazz.ch/en">Radio Swiss (Suíça)</a></li>
<li><a href="https://www.radios.com.br/">Rádios.com.br (Brasil)</a></li>
<li><a href="https://www.raiplaysound.it/radio3classica">Rai Radio 3 Classica (Itália)</a></li>
<li><a href="https://www.rm.fm/klassik/">RauteMusik (Alemanha)</a></li>
<li><a href="https://www.solopianoradio.com/">Solo Piano Radio (China)</a></li>
<li><a href="https://somafm.com/">SomaFM (EUA)</a></li>
<li><a href="http://www.classicalfm.ca/">The New Classical (Canadá)</a></li>
<li><a href="https://fm.pieci.lv/">Tiešraide / Latvijas Radio (Letônia)</a></li>
<li><a href="https://tudoradio.com/radios">Tudorádio.com (Brasil)</a></li>
<li><a href="https://tunein.com/">TuneIn (EUA)</a></li>
<li><a href="https://vagalume.fm/">Vagalume FM (Brasil)</a></li>
<li><a href="http://www.veniceclassicradio.eu/player/new/vcr.php?ch=0">Venice Classic Radio (Itália)</a></li>
<li><a href="https://www.wdav.org/">WDAV Classical Public Radio (EUA)</a></li>
<li><a href="https://www.wqed.org/fm/player/main">WQED (EUA)</a></li>
<li><a href="https://www.wkar.org/">WKAR Public Media (EUA)</a></li>
</ul>
</body>
</html>