Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Set wshShell =wscript.CreateObject("WScript.Shell")
- Dim message, sapi
- Set sapi=CreateObject("sapi.spvoice")
- CreateObject("WScript.Shell").Run("https://i1.wp.com/www.thterrortime.com/wp-content/uploads/2015/10/jigsaw.jpg?zoom=1.25&fit=900%2C600")
- WScript.Sleep 500
- sapi.Speak ("Hello , I want to play a game.")
- msgbox("I want to play a game!")
- msgbox("Let the game begin...")
- WshShell.Run "notepad.exe", 9
- WScript.Sleep 500
- WshShell.SendKeys "Hello..."
- wscript.sleep 250
- WshShell.SendKeys "..."
- wscript.sleep 250
- WshShell.SendKeys "{ENTER}"
- wscript.sleep 250
- WshShell.SendKeys "I want "
- wscript.sleep 350
- WshShell.SendKeys "to play "
- wscript.sleep 450
- WshShell.SendKeys "a game..."
- WshShell.SendKeys "{ENTER}"
- wscript.sleep 350
- WshShell.SendKeys "I call it "
- wscript.sleep 450
- WshShell.SendKeys "merry go "
- wscript.sleep 350
- WshShell.SendKeys "round... "
- wscript.sleep 450
- WshShell.SendKeys "{ENTER}"
- WshShell.SendKeys "Let the "
- wscript.sleep 450
- WshShell.SendKeys "game begin... "
- wscript.sleep 500
- sapi.Speak ("Hello , I want to play a game.")
- msgbox("I want to play a game!")
- sapi.Speak ("Let the game begin.")
- msgbox("Let the game begin...")
- do
- WshShell.SendKeys "^%{RIGHT}"
- sapi.Speak ("You spin me right round")
- wscript.sleep 2000
- WshShell.SendKeys "^%{DOWN}"
- sapi.Speak (" baby Right round like a record")
- wscript.sleep 2000
- WshShell.SendKeys "^%{LEFT}"
- sapi.Speak ("Right round round round ")
- wscript.sleep 2000
- WshShell.SendKeys "^%{UP}"
- sapi.Speak ("Right round round round")
- wscript.sleep 2000
- loop
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement