Stap 3: Kopieer dit script naar het Kladblok (stemactivering)
set wshshell = wscript. CreateObject("wscript.shell")
Dim Input
WshShell.run "%windir%\Speech\Common\sapisvr.exe - SpeechUX"
SAPI.speak "Gelieve te spreken, of typen, wat u wilt openen?'
Input = inputbox ("Gelieve te spreken of typt, wat u wenst te openen.")
Als Input = "youtube" of Input = "Youtube" then
SAPI.speak "Opening youtube"
WshShell.run "www.youtube.com"
anders
Als Input = "instructables" of Input = "Instructables" then
SAPI.speak "Opening instructables"
WshShell.run "
anders
Als Input = "google" of Input = "Google" then
SAPI.speak "google Opening"
WshShell.run "www.google.com"
anders
Als Input = "troepenleiding prompt" of Input = "Troepenleiding prompt" then
SAPI.speak "Opening troepenleiding prompt"
WshShell.run "cmd"
anders
Als Input = "rekenmachine" of Input = "Rekenmachine" then
SAPI.speak "Opening calculator"
WshShell.run "calc"
anders
Als Input = "Kladblok" of Input = "Kladblok" then
SAPI.speak "Opening Kladblok"
WshShell.run "Kladblok"
anders
Als Input = "" dan
anders
SAPI.speak "Ik niet herkent uw input, probeer iets anders"
eind als
eind als
eind als
eind als
eind als
eind als
eind als