Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- set wshshell = wscript.CreateObject("wscript.shell")
- wshshell.run "Notepad"
- wscript.sleep 2000
- wshshell.AppActivate "Notepad"
- WshShell.SendKeys "G"
- WScript.Sleep 500
- WshShell.SendKeys "H"
- WScript.Sleep 500
- WshShell.SendKeys "O"
- WScript.Sleep 500
- WshShell.SendKeys "S"
- WScript.Sleep 500
- WshShell.SendKeys "T"
- WScript.Sleep 500
- Dim speaks, speech
- speaks="I am a Spooky Ghost. Insert scary ghost noises here."
- Set speech=CreateObject("sapi.spvoice")
- speech.Speak speaks
Advertisement
Add Comment
Please, Sign In to add comment
