Assistant using notepad.

Assistant using Notepad 

  

Without Voice Activation:

Set Sapi = Wscript.CreateObject("SAPI.SpVoice")

 set wshshell = wscript.CreateObject("wscript.shell")

 dim Input

 Input = Inputbox ("!@#$%^&*?/>.<")

 if Input = "hello" then

 Sapi.speak "Hello sir"

 Sapi.speak "How are you"

 wshshell.run "Julie.vbs"

 else 

 if Input = "open notepad" then

 Sapi.speak "opening notepad"

 wshshell.run "notepad"

 else

 if Input = "open youtube" then

 Sapi.speak "Opening youtube"

 wshshell.run "www.youtube.com"

 wshshell.run "Julie.vbs"

 else

 if Input = "open control panel" OR Input = "open cp" then

 Sapi.speak "opening control panel"

 wshshell.run "Control Panel"

 wshshell.run "Julie.vbs"

 

 end if

 end if

 end if

 end if

With Voice Activation:

 Set Sapi = Wscript.CreateObject("SAPI.SpVoice")

 set wshshell = wscript.CreateObject("wscript.shell")

 dim Input

 wshshell.run "%windir%\Speech\Common\sapisvr.exe -SpeechUX"

 Input = Inputbox ("!@#$%^&*?/>.<")

 if Input = "hello" then

 Sapi.speak "Hello sir"

 Sapi.speak "How are you"

 wshshell.run "Julie.vbs"

 else 

 if Input = "open notepad" then

 Sapi.speak "opening notepad"

 wshshell.run "notepad"

 else

 if Input = "open youtube" then

 Sapi.speak "Opening youtube"

 wshshell.run "www.youtube.com"

 wshshell.run "Julie.vbs"

 else

 if Input = "open control panel" OR Input = "open cp" then

 Sapi.speak "opening control panel"

 wshshell.run "Control Panel"

 wshshell.run "Julie.vbs"

 

 end if

 end if

 end if

 end if

Watch Video: