Tips fra @Andreas gjorde at jeg oppdaterte et gammelt (og ubrukelig) script slik at det nå er "brukelig" igjen.
ResponsiveVoice.vb
Sub Main(Byval input as Object)
Dim speakThis as String = hs.ReplaceVariables(input.ToString)
Dim remoteFile as String = "https://code.responsivevoice.org/getvoice.php?t=" & speakThis & "&tl=no&sv=g2&vn=&pitch=0.5&rate=0.5&vol=1"
Dim localFile as String = hs.GetAppPath & "\tts.mp3"
My.Computer.Network.DownloadFile(remoteFile, localFile, "", "", False, 3000, True)
End Sub
... lagrer en MP3-fil som heter "tts.mp3" i HS3-katalogen din. Denne kan du spille av via Squeezebox, Sonos, eller HS3 Speaker client.
"Paremeters" er selve strengen. Du kan bruke Replacement Variables.
"Wait for script to finish before continuing" er viktig for å laste ned filen før du spiller den av.
Jeg testet dette over kl. 11:15 og spilte av "Dette er en test! Klokken er kvart over elleve!".
Imponerende.