Comandos de línea de comandos (6 / 10 paso)

Paso 6: Hablar ~ la computadora ahora habla

Ahora en VBScript!

--EDIT--
El switch /f se ha agregado para permitir que el contenido de un archivo para ser leído.

--POR LOTES--

apagado & setlocal enabledelayedexpansion
¿Si "% ~ 1" == "/"? (
echo.
Eco habla de "Texto" [parámetros]
echo.
echo texto - la frase que desea ser hablado.
echo.
echo [parámetros]:
Eco/f - leer el contenido de un archivo. "Texto" cambia a la ruta del archivo.
echo.
endlocal
salida/b
)
texto =
Si () [%2]==[/f]
Si existen "% ~ 1" ()
for /f "usebackq delims =" condition (% 1) establecer texto =! texto! % %
) () otro
endlocal
salida/b
)
)
Si [%2] == [] set texto = % ~ 1

eco sistema discurso = Wscript.CreateObject^("SAPI.spVoice"^) > "talk.vbs"
echo speech.speak "% texto %" >> "talk.vbs"
cscript //NoLogo //B talk.vbs
del Talk.vbs
endlocal
salida/b

--VBS--

' Comprobar si se ha ejecutado correctamente.
Si wscript.fullname = "C:\Windows\System32\wscript.exe" then
Wscript.echo "por favor utilice""cscript /nologo alarm.vbs [parámetros]" "para invocar este script."
Wscript.Quit
terminar si

establecer discurso = wscript.createobject("sapi.spvoice") ' obtiene el objeto de discurso.

' Prueba de parámetros no válidos, etc....
Si wscript.arguments.count = 0 then
Usage(1) ' si no se dan parámetros, devuelve errorlevel de 1.
else if wscript.arguments.item(0) = "¿/?" entonces
Usage(0)
terminar si
terminar si

' Decidir dónde enviarle.
Si wscript.arguments.count = 2 entonces
Si wscript.arguments.item(1) = "/ f" entonces
talk_file(Wscript.arguments.Item(0))
otra cosa
Usage(3) ' si no es el segundo parámetro "/ f", retorno errorlevel 3.
terminar si
otra cosa
Talk(Wscript.arguments.Item(0))
terminar si

' Hablar normalmente.
función talk(text)
Speech.speak texto
Wscript.Quit
función final

' Habla el contenido de un archivo.
función talk_file(file)
Set fso = wscript.createobject("scripting.filesystemobject")
Si no fso.fileexists(file) entonces
Usage(2) ' si el archivo no existe, volver errorlevel de 2.
terminar si
Set ofile = fso.opentextfile(file,1)
Speech.Speak ofile.readall()
Wscript.Quit
función final

' Uso:
función usage(errorlevel)
Wscript.echo
Wscript.echo "Charla""texto" "[parámetros]"
Wscript.echo
Wscript.echo "Texto - la frase que desea ser hablado."
Wscript.echo
Wscript.echo "[parámetros]:"
Wscript.echo"/f - leer el contenido de un archivo." " Texto"" cambia a la ruta del archivo. "
Wscript.echo
Wscript.Quit(ERRORLEVEL)
función final

Una vez más, usar esto como si fuera un comando real, porque es.