Spooky msg

nadman

Well-known member
  • Nov 29, 2006
    3,814
    538
    113
    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 "..."
     
    Last edited:

    xtremeuj

    Member
    Jul 8, 2007
    11
    0
    0
    SL / UK
    i dont think its a virus o anything..its some lil program that someone made ..n if u can actually get the words at the end of evry line you'll understand it...
     

    prasadana2

    Well-known member
  • Sep 19, 2006
    12,509
    135
    63
    CyberSpace
    i get an error ne??

    aaaei9.jpg
     

    nadman

    Well-known member
  • Nov 29, 2006
    3,814
    538
    113
    prasadana2 said:
    i get an error ne??

    aaaei9.jpg

    Sorry man:sorry: My bad! Small script error. Try this out-

    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 "..."