aprite il blocco note
copiate e incollate il seguente testo
Dim message, sapi
Do
message=InputBox("Enter the text you want spoken", "Speak This")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message
Loop until message = ""
dategli il nome che volete, ma deve avere l'estensione .vbs (significa che se decidete di chiamare il file "Pippo", quando salvate con nome dovete scrivere Pippo.vbs )
sotto, dove dice "Salva come" scegliete Tutti i file
Codifica: lasciate ANSI
cliccate Salva
EDIT: una volta arrivati a questo punto, con il file salvato, chiudete la finestra del blocco note e andate nella cartella in cui avete salvato il file (io l'ho lasciato comodamente sul desktop). lanciatelo cliccandoci sopra due volte.
accendete le casse e lanciate il file
sbizzarritevi!
ad esempio inserite nello spazio per scrivere questo:
eel mautaurre di hattrick fa caugaure eel catttzo
musclemuseum