13 lines
373 B
Text
13 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
|