Paso 2: El código
Este es el código:
Set Sapi = Wscript.CreateObject ("SAPI. SpVoice")
Set wshshell = wscript. CreateObject("wscript.shell")
Entrada DIM
¿WshShell.Run "%windir%\Speech\Common\sapisvr.exe - SpeechUX" Sapi.speak "por favor habla, o escribe lo que quieres abrir? Entrada = inputbox ("por favor hable o escriba lo que desea abrir.")
Si entrada = "youtube" o entrada = "Youtube" entonces Sapi.speak "Apertura de youtube" wshshell.run "www.youtube.com"
if else entrada = "instructables" o entrada = "Instructables" entonces Sapi.speak "Apertura de instructables" wshshell.run "
if else entrada = "google" o entrada = "Google" entonces Sapi.speak "Abrir google" wshshell.run "www.google.com"
if else entrada = "símbolo" o entrada = "Símbolo" entonces Sapi.speak "Abrir el símbolo del sistema" wshshell.run "cmd"
if else entrada = "calculadora" o entrada = "Calculadora" entonces Sapi.speak "Calculadora de apertura" wshshell.run "calc"
if else entrada = "Bloc de notas" o entrada = "Bloc de notas" entonces Sapi.speak "Bloc de notas de apertura" wshshell.run "Bloc de notas"
if else entrada = "" entonces más
SAPI.Speak "No reconocen su entrada, intente por favor otra cosa" fin si fin si fin si fin si fin si fin si fin si