12 lines
373 B
Text
12 lines
373 B
Text
''This works on Windows. Does anyone know how it would be done in Linux?
|
|
|
|
Sub speak(texto As String)
|
|
Dim As String frase
|
|
frase ="mshta vbscript:Execute(""CreateObject(""""SAPI.SpVoice"""").Speak("""""+texto+""""")(window.close)"")"
|
|
Print texto
|
|
Shell frase
|
|
End Sub
|
|
|
|
speak "Vamos a contar " + str(123456)
|
|
speak "This is an example of speech synthesis."
|
|
Sleep
|