Styra datorn med din röst (2 / 3 steg)
Steg 2: Koden
Detta är koden:
Ställa in Sapi = Wscript.CreateObject ("SAPI. SpVoice")
sätta wshshell = wscript. CreateObject("wscript.shell")
Dim Input
WshShell.Runshutdown.exe "%windir%\Speech\Common\sapisvr.exe - SpeechUX" Sapi.speak "vänligen tala eller skriva vad du vill öppna?" Input = inputbox ("vänligen tala eller skriva vad du vill öppna.")
om Input = "youtube" eller Input = "Youtube" sedan Sapi.speak "Öppna youtube" WshShell.Runshutdown.exe "www.youtube.com"
annars om ingång = "instructables" eller Input = "Instructables" sedan Sapi.speak "Opening instructables" WshShell.Runshutdown.exe "
annars om ingång = "google" eller Input = "Google" så Sapi.speak "Öppna google" WshShell.Runshutdown.exe "www.google.com"
annars om ingång = "befalla snabb" eller Input = "Befalla snabb" så Sapi.speak "Öppnandet befalla snabb" WshShell.Runshutdown.exe "cmd"
annars om ingång = "miniräknare" eller Input = "Miniräknare" sedan Sapi.speak "Öppna kalkylator" WshShell.Runshutdown.exe "calc"
annars om ingång = "anteckningar" eller Input = "Anteckningar" så Sapi.speak "Öppna notepad" WshShell.Runshutdown.exe "anteckningar"
annars om ingång = "" då annan
SAPI.Speak "Jag inte känner igen din ingång, vänligen prova något annat" sluta om slut om slut om slut om slut om om om