feed

Haz hablar al Microsoft Sam de tu sistema



Escucha este post Share

En Microsoft Windows 2000 y Windows XP, Microsoft Sam es el nombre de la voz por defecto para el lector de pantalla incorporado en el sistema operativo.

Para probarlo se puede ir al Panel de control y seleccionar Voz, allí se puede poner una frase que se quiera en inglés y reproducirla.



otras posibilidades son crear unos pequeños scripts, ahí van dos ejemplos:

1º/ Este script te abrirá una ventanita donde escribirás la frase a ser pronunciada.

Crea un documento nuevo con el block de notas y añade el siguiente código tal cual está:

Dim message, sapi
message=InputBox("Introduce una frase en inglés","Háblame")
Set sapi=Wscript.CreateObject("sapi.spvoice")
sapi.Speak message


Guarda el fichero con el nombre que te dé la gana pero asegúrate de que su extensión sea vbs (por ejemplo, yo lo guardaré como hablame.vbs). Posteriormente haz doble click sobre este fichero creado.



2º/ Este otro leerá las frases que haya dentro de un fichero de texto llamado frases.txt

Crea un documento nuevo con el block de notas y añade el siguiente código tal cual está:

Const ForReading = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objText = objFSO.OpenTextFile("frases.txt", ForReading)
strText = objText.ReadAll
objText.Close
Set Sapi = Wscript.CreateObject("SAPI.SpVoice")
Sapi.speak strText


Guarda el fichero con el nombre que te dé la gana pero asegúrate de que su extensión sea vbs (por ejemplo, yo lo guardaré como hablame.vbs). Crea un fichero de texto llamado frases.txt y en él pon las frases en inglés que te dé la gana. Posteriormente haz doble click sobre este fichero creado.