loading
2Comments

Tell us about yourself!

Complete Your Profile
  • TonyM148 commented on TonyM148's instructable Vbs Help6 months ago
  • TonyM148 commented on TonyM148's forum topic Vbs help wanted6 months ago

    this is a vbs script and I cant figger it out it say's synnex error is on the last line but I cant figger it out HELP MESet Sapi = Wscript.CreateObject("SAPI.SpVoice") message=InputBox(" put in your password","Dave")if message = "Dave" thensapi.speak"acess granted" set wshshell = wscript.CreateObject("wscript.shell") dim str if hour(time) < 12 then Sapi.speak"Good Morning Tony " else if hour(time) > 12 then if hour(time) > 16 then Sapi.speak "Good evening Tony " else Sapi.speak "Good afternoon Tony " end if end if end if Dim message, sapi Set Sapi = Wscript.CreateObject("SAPI.SpVoice") message=InputBox(" Hello my name is dave your persolnal A.I","DAVE...see more »this is a vbs script and I cant figger it out it say's synnex error is on the last line but I cant figger it out HELP MESet Sapi = Wscript.CreateObject("SAPI.SpVoice") message=InputBox(" put in your password","Dave")if message = "Dave" thensapi.speak"acess granted" set wshshell = wscript.CreateObject("wscript.shell") dim str if hour(time) < 12 then Sapi.speak"Good Morning Tony " else if hour(time) > 12 then if hour(time) > 16 then Sapi.speak "Good evening Tony " else Sapi.speak "Good afternoon Tony " end if end if end if Dim message, sapi Set Sapi = Wscript.CreateObject("SAPI.SpVoice") message=InputBox(" Hello my name is dave your persolnal A.I","DAVE") if message ="open" then Sapi.speak "Please type, what you want to open?" dim Input sapi.speak "Please type, what you want to open?" Input=inputbox ("Please 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 = "nova" OR Input = "Nova"then Sapi.speak "Opening nova " wshshell.run "www.novatv.bg/live" 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" else if Input = "" then else Sapi.speak "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 end if if message ="hi" then sapi.speak "hi my name is Dave" end if if message ="I hate you" then sapi.speak "but but" end if if message ="rap for me" then sapi.speak "1 and 0 1 and 0 1 and 0 1 and 0 1 and 0 1 and 0 1 and 0 1 and 0 " end if if message ="I hope you die" then sapi.speak "i will go back to Tony Djay's commputer" end if if message ="what is 0 divided by 0" then sapi.speak "Imagine that you have zero cookies and you split them evenly among zero friends. How many cookies does each person get? See? It doesn't make sense. And Cookie Monster is sad that there are no cookies, and you are sad that you have no friends." end if if message =" What can you do" then sapi.speak "i can talk to you when you are lonly and other stuff tony is ubgrading me" end if if message ="Play game" then sapi.speak "wich game Tic tac toe or 8 ball or Pokemon game" message=InputBox (" wich of the 2 games would you like to play") if message = "Tic tac toe" then sapi.speak "ok" Set objWshShell = CreateObject("Wscript.Shell")objWshShell.run "C:\tictactoe.bat", 1 else Set objWshShell = CreateObject("Wscript.Shell")objWshShell.run "C:\tictactoe.bat", 1 end if if message ="8 ball" then sapi.speak "ok" a=Int((4 * Rnd()) + 1) If a=4 then c= "Yes" If a=3 then c= "No" If a=2 then c= "Maybe" If a=1 then c= "Ask Me Later" b=inputbox("What Is Your Question?") c= sapi.speak ("" & c) end if if message = "Pokemon game" then sapi.speak "ok" Set objWshShell = CreateObject("Wscript.Shell")objWshShell.run "C:\lol.bat", 1 else Set objWshShell = CreateObject("Wscript.Shell")objWshShell.run "C:\lol.bat", 1 end if end if if message ="War" then sapi.speak "ok" Set objWshShell = CreateObject("Wscript.Shell")objWshShell.run "C:\war.bat", 1 end if else sapi.speak "access dinied" end if

    View Topic »
  • TonyM148 posted a forum topic Vbs help wanted6 months ago
  • TonyM148 posted an instructable Vbs help6 months ago