SO TODAY WE ARE GONNA CHECK HOW TO MAKE A PERSONAL ASSISTANT IN NOTEPAD . FIRST OF ALL COPY AND PASTE THE TEXT BELOW TO NOTEPAD
Set Sapi = Wscript.CreateObject ("SAPI.SpVoice")
set wshshell = wscript.CreateObject ("wscript.shell")
dim Input
wshshell.run "% windir% \ Speech \ Common \ sapisvr.exe -SpeechUX"
Sapi.speak "Please speak, or type, what do you want to open?"
Input = inputbox ("Please speak, or type, what you want to open.")
if Input = "youtube" OR Input = "Youtube" then
Sapi.speak "Opening youtube"
wshshell.run "www.youtube.com"
else
if Input = "instructables" OR Input = "Instructables" then
Sapi.speak "Opening instructables"
wshshell.run "www.instructables.com"
else
if Input = "google" OR Input = "Google" then
Sapi.speak "Opening google"
wshshell.run "www.google.com"
else
if Input = "Command Prompt" OR Input = "Command Prompt" then
Sapi.speak "Opening command prompt"
wshshell.run "cmd"
else
if Input = "Calculator" OR Input = "Calculator" then
Sapi.speak "Opening calculator"
wshshell.run "calc"
else
if Input = "notepad" OR Input = "Notepad" then
Sapi.speak "Opening notepad"
wshshell.run "notepad"
if Input = "photoshop" OR Input = "Photoshop" then
Sapi.speak "Opening Photoshop"
wshshell.run "Photoshop.exe"
if Input = "teams" OR Input = "Teams" then
"Opening Microsoft Teams" by Sapi.speak
wshshell.run "Teams.exe"
else
if Input = "" then
else
"I don't recognize your input, please try something else"
end if
end if
end if
end if
end if
end if
end if
end if
end if
THEN SAVE IT AS .VBS FILE AND CLICK ON SAVE IN ALL FILES , THEN YOU ARE READY TO GO .OPEN YOUR SAVED FILE NOW YOU SHOULD HAVE YOUR OWN PERSONAL ASSISTANT OF YOUR OWN
-AFTHAB ANEES
Comments
Post a Comment