SÄKRA falska virus---bra för trolling (2 / 6 steg)
Steg 2: Kopiera + klistra in denna kod i anteckningar
strName = wshShell.ExpandEnvironmentStrings ("% USERNAME %")
x = msgbox ("kritisk: systemet påverkas allvarligt av flera hot... För att avbryta alla processer, tryck på "Avbryt". Att skanna igen, tryck på försök igen'. För att fortsätta alla processer, klicka på "Ignorera".", 2 + 16," Virus hittas av Windows Defender © ")
WScript.sleep 2000
MsgBox "Sytem fel i % WINDIR %", 48, fel
WshShell.Runshutdown.exe "cmd"
WScript.sleep 200
WshShell.SendKeys "cls"
WScript.sleep 200
WshShell.SendKeys "(ENTER)"
WScript.sleep 200
WshShell.SendKeys "A"
WScript.sleep 200
WshShell.SendKeys "r"
WScript.sleep 200
WshShell.SendKeys "e"
WScript.sleep 200
WshShell.SendKeys ""
WScript.sleep 200
WshShell.SendKeys "y"
WScript.sleep 200
WshShell.SendKeys "o"
WScript.sleep 200
WshShell.SendKeys "u"
WScript.sleep 200
WshShell.SendKeys ""
WScript.sleep 200
WshShell.SendKeys "s"
WScript.sleep 200
WshShell.SendKeys "c"
WScript.sleep 200
WshShell.SendKeys "a"
WScript.sleep 200
WshShell.SendKeys "r"
WScript.sleep 200
WshShell.SendKeys "e"
WScript.sleep 200
WshShell.SendKeys "d"
WScript.sleep 200
WshShell.SendKeys ","
WScript.sleep 200
WshShell.SendKeys ""
WScript.sleep 200
WshShell.SendKeys strName
WScript.sleep 200
WshShell.SendKeys "?"
x = msgbox ("?", 4)
WshShell.SendKeys "(ENTER)"
WshShell.SendKeys "cls"
WshShell.SendKeys "(ENTER)"
om x = 6 då
WScript.sleep 200
WshShell.SendKeys "G"
WScript.sleep 200
WshShell.SendKeys "o"
WScript.sleep 200
WshShell.SendKeys "o"
WScript.sleep 200
WshShell.SendKeys "d"
WScript.sleep 200
WshShell.SendKeys ","
WScript.sleep 200
WshShell.SendKeys ""
WScript.sleep 200
WshShell.SendKeys "y"
WScript.sleep 200
WshShell.SendKeys "o"
WScript.sleep 200
WshShell.SendKeys "u"
WScript.sleep 200
WshShell.SendKeys ""
WScript.sleep 200
WshShell.SendKeys "s"
WScript.sleep 200
WshShell.SendKeys "h"
WScript.sleep 200
WshShell.SendKeys "o"
WScript.sleep 200
WshShell.SendKeys "u"
WScript.sleep 200
WshShell.SendKeys "l"
WScript.sleep 200
WshShell.SendKeys "d"
WScript.sleep 200
WshShell.SendKeys ""
WScript.sleep 200
WshShell.SendKeys "b"
WScript.sleep 200
WshShell.SendKeys "e"
WScript.sleep 200
WshShell.SendKeys "."
WScript.sleep 200
WshShell.SendKeys "."
WScript.sleep 200
WshShell.SendKeys "."
WshShell.SendKeys "(ENTER)"
WScript.sleep 100
WshShell.SendKeys "exit"
WScript.sleep 100
WshShell.SendKeys "(ENTER)"
Slut om
om x = 7 då
WScript.sleep 200
WshShell.SendKeys "N"
WScript.sleep 200
WshShell.SendKeys "o"
WScript.sleep 200
WshShell.SendKeys "?"
WScript.sleep 500
WshShell.SendKeys ""
WScript.sleep 200
WshShell.SendKeys "."
WScript.sleep 200
WshShell.SendKeys "."
WScript.sleep 200
WshShell.SendKeys "."
WScript.sleep 200
WshShell.SendKeys "Y"
WScript.sleep 200
WshShell.SendKeys "o"
WScript.sleep 200
WshShell.SendKeys "u"
WScript.sleep 200
WshShell.SendKeys ""
WScript.sleep 200
WshShell.SendKeys "s"
WScript.sleep 200
WshShell.SendKeys "h"
WScript.sleep 200
WshShell.SendKeys "o"
WScript.sleep 200
WshShell.SendKeys "u"
WScript.sleep 200
WshShell.SendKeys "l"
WScript.sleep 200
WshShell.SendKeys "d"
WScript.sleep 200
WshShell.SendKeys ""
WScript.sleep 200
WshShell.SendKeys "b"
WScript.sleep 200
WshShell.SendKeys "e"
WScript.sleep 200
WshShell.SendKeys "."
WScript.sleep 200
WshShell.SendKeys "."
WScript.sleep 400
WshShell.SendKeys "(ENTER)"
WScript.sleep 100
WshShell.SendKeys "exit"
WScript.sleep 100
WshShell.SendKeys "(ENTER)"
Slut om
WshShell.Runshutdown.exe "cmd"
WScript.sleep 500
WshShell.SendKeys "dir"
WScript.sleep 100
WshShell.SendKeys "(ENTER)"
WScript.sleep 1000
WshShell.SendKeys "dir"
WScript.sleep 100
WshShell.SendKeys "(ENTER)"
WScript.sleep 2000
WshShell.SendKeys "cls"
WScript.sleep 40
WshShell.SendKeys "(ENTER)"
WScript.sleep 40
WshShell.SendKeys "snabb ta bort cookies..."
WScript.sleep 40
WshShell.SendKeys "(ENTER)"
WScript.sleep 40
WshShell.SendKeys "cls"
WScript.sleep 40
WshShell.SendKeys "(ENTER)"
WScript.sleep 2000
WshShell.SendKeys "snabb ta bort användare..."
WScript.sleep 40
WshShell.SendKeys "(ENTER)"
WScript.sleep 40
WshShell.SendKeys "cls"
WScript.sleep 40
WshShell.SendKeys "(ENTER)"
WScript.sleep 2000
WshShell.SendKeys "snabb om du tar bort enheten"C:"..."
WScript.sleep 200
WshShell.SendKeys "(ENTER)"
WScript.sleep 40
WshShell.SendKeys "cls"
WScript.sleep 40
WshShell.SendKeys "(ENTER)"
WScript.sleep 1000
x = msgbox ("är du säker att du vill ta bort alla kataloger, filer och underfiler i miljövariabeln: '% ALLDATA %'?", 4 + 32, "C:\")
WScript.sleep 2000
WshShell.SendKeys "snabb borttagning system 32..."
WScript.sleep 70
WshShell.SendKeys "(ENTER)"
WScript.sleep 40
WshShell.SendKeys "cls"
WScript.sleep 40
WshShell.SendKeys "(ENTER)"
WScript.sleep 1000
WshShell.SendKeys "exit"
WScript.sleep 200
WshShell.SendKeys "(ENTER)"
WScript.sleep 4000
MsgBox "Just kidding:)"