MS office-annoyer (1 / 2 steg)
Steg 1: Koden...
randomize
Ange objShell = CreateObject("WScript.Shell")
objshell.Run ("winword.exe") (eller powerpnt.exe eller vad)
WScript.Sleep 20000
göra
typesleep = rnd * 1000
dec = rnd * 100
random1 = rnd * 5000
random2 = rnd * 5000
WScript.Sleep random1
om dec > 99 eller dec < 2 sedan
MsgBox "Y 0u jv$ t g0t PwNEd!", 4096, "M 0wN
WScript.quit
slut om
om dec < 10 sedan
WScript.Sleep random2
objshell.SendKeys "wx$ va9qy %u? p"
slut om
om dec > 10 och dec < 20 sedan
WScript.Sleep 10000
objshell.SendKeys "aQ7vB's #x
slut om
om dec > 20 och dec < 30 sedan
WScript.Sleep 10000
objshell.SendKeys "oPbt0 & je9o < \"
slut om
om dec > 30 och dec < 40 sedan
WScript.Sleep 8000
objshell.SendKeys "he1p im @ bu9!"
slut om
om dec > 40 och dec < 50 sedan
WScript.Sleep random1
objshell.SendKeys "{in} Toodloo... Jag är härifrån! "
slut om
om dec > 50 och dec < 60 sedan
WScript.Sleep 20000
objshell.SendKeys "Tryck på valfri tangent för att fortsätta..."
slut om
om dec > 60 och dec < 70 sedan
objshell.SendKeys "{b} hijklmnop123456"
slut om
om dec > 70 och dec < 80 sedan
WScript.Sleep 30000
objshell.SendKeys "Boinga Woinga!"
slut om
om dec > 80 och dec < 90 sedan
WScript.Sleep random2
objshell.SendKeys "Virus alert! Ett virus har upptäckts. {Ange} Varning. Virus upptäcks!"
slut om
om dec > 90 och dec < 100 sedan
objshell.SendKeys "SYSTEM Uppdatera! 10101100101101011001101010! registerändring upptäckt! ta bort cmd.exe? Reformating... Program som begär åtkomst till internet."
slut om