Étape 2: Le code
C’est le code :
Définir les Sapi = Wscript.CreateObject ("SAPI. SpVoice")
Set wshshell = wscript. CreateObject("wscript.shell")
Dim Input
WshShell.Run "%windir%\Speech\Common\sapisvr.exe - SpeechUX" Sapi.speak « s’il vous plaît parler, ou taper, ce que vous voulez ouvrir? » Entrée = inputbox ("s’il vous plaît parler, ou taper, ce que vous voulez ouvrir. »)
Si Input = « youtube » ou Input = « Youtube » alors Sapi.speak www.youtube.com""Ouverture youtube"wshshell.run"
sinon si d’entrée = « instructables » ou Input = « Instructables » then Sapi.speak "Ouverture instructables" wshshell.run "
sinon si Input = « google » ou Input = « Google » puis "Ouvrir google" wshshell.run "www.google.com" de Sapi.speak
sinon si Input = « command prompt » ou Input = « Command prompt » then Sapi.speak "Ouverture command prompt" wshshell.run "cmd"
sinon si Input = « calculatrice » entrée ou = « Calculatrice » then Sapi.speak "Calculatrice ouverture" wshshell.run "calc"
sinon si entrée = « bloc-notes » ou Input = « Bloc-notes » then Sapi.speak "Bloc-notes ouverture" wshshell.run "bloc-notes"
sinon si Input = "" puis d’autre
SAPI.Speak « Je ne reconnais votre entrée, essayez s’il vous plaît quelque chose d’autre » fin si fin si fin si fin si fin si fin si fin si