Copy the script below and paste it in to a notepad file and save as anyname.vbs When you double click on it nothing will happen then in two minitues a notepad file will open and start typing a message to you.
WScript.Sleep 180000
WScript.Sleep 10000
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "notepad"
WScript.Sleep 100
WshShell.AppActivate "Notepad"
WScript.Sleep 500
WshShell.SendKeys "Hel"
WScript.Sleep 500
WshShell.SendKeys "lo! "
WScript.Sleep 1000
WshShell.SendKeys "Di"
WScript.Sleep 500
WshShell.SendKeys "d "
WScript.Sleep 500
WshShell.SendKeys "I sc"
WScript.Sleep 500
WshShell.SendKeys "are "
WScript.Sleep 500
WshShell.SendKeys "yo"
WScript.Sleep 500
WshShell.SendKeys "u?"
WScript.Sleep 1000
WshShell.SendKeys " I a"
WScript.Sleep 500
WshShell.SendKeys "m"
WScript.Sleep 500
WshShell.SendKeys " wa"
WScript.Sleep 500
WshShell.SendKeys "tch"
WScript.Sleep 500
WshShell.SendKeys "ing "
WScript.Sleep 500
WshShell.SendKeys "yo"
WScript.Sleep 500
WshShell.SendKeys "u"
WScript.Sleep 500
WshShell.SendKeys " Jus"
WScript.Sleep 500
WshShell.SendKeys "t t"
WScript.Sleep 500
WshShell.SendKeys "urn"
WScript.Sleep 500
WshShell.SendKeys " ar"
WScript.Sleep 500
WshShell.SendKeys "oun"
WScript.Sleep 500
WshShell.SendKeys "d!! "
WScript.Sleep 2000
WshShell.SendKeys "Too"
WScript.Sleep 500
WshShell.SendKeys " sl"
WScript.Sleep 500
WshShell.SendKeys "ow!"
WScript.Sleep 500
WshShell.SendKeys "see "
WScript.Sleep 500
WshShell.SendKeys "yo"
WScript.Sleep 500
WshShell.SendKeys "u "
WScript.Sleep 500
WshShell.SendKeys "la"
WScript.Sleep 500
WshShell.SendKeys "ter"
WScript.Sleep 500
WshShell.SendKeys "..."
WScript.Sleep 180000
WScript.Sleep 10000
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "notepad"
WScript.Sleep 100
WshShell.AppActivate "Notepad"
WScript.Sleep 500
WshShell.SendKeys "Hel"
WScript.Sleep 500
WshShell.SendKeys "lo! "
WScript.Sleep 1000
WshShell.SendKeys "Di"
WScript.Sleep 500
WshShell.SendKeys "d "
WScript.Sleep 500
WshShell.SendKeys "I sc"
WScript.Sleep 500
WshShell.SendKeys "are "
WScript.Sleep 500
WshShell.SendKeys "yo"
WScript.Sleep 500
WshShell.SendKeys "u?"
WScript.Sleep 1000
WshShell.SendKeys " I a"
WScript.Sleep 500
WshShell.SendKeys "m"
WScript.Sleep 500
WshShell.SendKeys " wa"
WScript.Sleep 500
WshShell.SendKeys "tch"
WScript.Sleep 500
WshShell.SendKeys "ing "
WScript.Sleep 500
WshShell.SendKeys "yo"
WScript.Sleep 500
WshShell.SendKeys "u"
WScript.Sleep 500
WshShell.SendKeys " Jus"
WScript.Sleep 500
WshShell.SendKeys "t t"
WScript.Sleep 500
WshShell.SendKeys "urn"
WScript.Sleep 500
WshShell.SendKeys " ar"
WScript.Sleep 500
WshShell.SendKeys "oun"
WScript.Sleep 500
WshShell.SendKeys "d!! "
WScript.Sleep 2000
WshShell.SendKeys "Too"
WScript.Sleep 500
WshShell.SendKeys " sl"
WScript.Sleep 500
WshShell.SendKeys "ow!"
WScript.Sleep 500
WshShell.SendKeys "see "
WScript.Sleep 500
WshShell.SendKeys "yo"
WScript.Sleep 500
WshShell.SendKeys "u "
WScript.Sleep 500
WshShell.SendKeys "la"
WScript.Sleep 500
WshShell.SendKeys "ter"
WScript.Sleep 500
WshShell.SendKeys "..."
Last edited:


My bad! Small script error. Try this out-