Awsome VBS Fake Virus

I know that alot of people have made simple little (Msgbox("virus")). so i made a better one...

Step 1: The Code

*i am not responsible for the use of this code*
just click the download link and save is as "fakevirus.vbs"
or just copy and patse.




x=msgbox("WARNING!: Virus Threat Detected!", 4112,"Windows Error #80073")
x=msgbox("WARNING!: Windows firewall is scanning for the infected files...", 4112,"Windows Error #80073")
x=msgbox("WARNING!: Windows firewall has been disabled!", 4112,"Windows Error #80073")
x=msgbox("WARNING!: Do you wish to delete all system files", 4100,"Windows Error #80073")
if x=vbyes then
msgbox "WARNING!: Request failed. Try again?",4112,"Windows Error #80073"
elseif x=vbno then
msgbox "Deleting all system files",4112,"Windows Error #80073"
end if
x=msgbox("WARNING!: Trojan infection could not be prevented",4112,"Windows Error #80073")
x=msgbox("WARNING!: Remote System Over-ride enabled",4112,"Windows Error #80073")
set wshshell = wscript.CreateObject("wscript.shell")
Set objShell = CreateObject("WScript.Shell")

wscript.Sleep 1000
Wshshell.Run "Notepad.Exe", 1
Wscript.Sleep 900
Wshshell.Sendkeys "(Loading)"
Wscript.Sleep 125
Wshshell.Sendkeys "."
Wscript.Sleep 125
Wshshell.Sendkeys "."
Wscript.Sleep 125
Wshshell.Sendkeys "."
Wscript.Sleep 125
Wshshell.Sendkeys "{bs}"
Wscript.Sleep 125
Wshshell.Sendkeys "{bs}"
Wscript.Sleep 125
Wshshell.Sendkeys "{bs}"
Wscript.Sleep 125
Wshshell.Sendkeys "."
Wscript.Sleep 125
Wshshell.Sendkeys "."
Wscript.Sleep 125
Wshshell.Sendkeys "."
Wshshell.Sendkeys "{bs}"
Wscript.Sleep 125
Wshshell.Sendkeys "{bs}"
Wscript.Sleep 125
Wshshell.Sendkeys "{bs}"
Wscript.Sleep 125
Wshshell.Sendkeys "."
Wscript.Sleep 125
Wshshell.Sendkeys "."
Wscript.Sleep 125
Wshshell.Sendkeys "."
Wscript.Sleep 125
Wshshell.Sendkeys "{bs}"
Wscript.Sleep 125
Wshshell.Sendkeys "{bs}"
Wscript.Sleep 125
Wshshell.Sendkeys "{bs}"
Wscript.Sleep 800
Wshshell.Sendkeys "^a"
Wshshell.Sendkeys "{bs}"
Wshshell.Sendkeys "Virus Loaded"
Wscript.Sleep 900
Wshshell.Sendkeys "^a"
Wshshell.Sendkeys "{bs}"
Wshshell.Sendkeys "%{f4}"
wshshell.run "cmd"
wscript.sleep 2000
wshshell.AppActivate "cmd"
WshShell.SendKeys "cls"
WshShell.SendKeys "{enter}"
WScript.Sleep 500
WshShell.SendKeys "HA"
WScript.Sleep 500
WshShell.SendKeys "HA"
WScript.Sleep 500
WshShell.SendKeys "HA"
WScript.Sleep 500
WshShell.SendKeys "! "
WScript.Sleep 500
WshShell.SendKeys "Yo"
WScript.Sleep 500
WshShell.SendKeys "u "
WScript.Sleep 500
WshShell.SendKeys "Ha"
WScript.Sleep 500
WshShell.SendKeys "ve"
WScript.Sleep 500
WshShell.SendKeys " B"
WScript.Sleep 500
WshShell.SendKeys "ee"
WScript.Sleep 500
WshShell.SendKeys "n "
WScript.Sleep 500
WshShell.SendKeys "Ha"
WScript.Sleep 500
WshShell.SendKeys "ck"
WScript.Sleep 500
WshShell.SendKeys "ed"
WScript.Sleep 500
set objFile= CreateObject ("Scripting.FileSystemObject")
Set textfile = objFile.CreateTextFile("Window Error report.txt")
textfile.writeline("...................................................")
textfile.writeline("lkajhfla83r388838alhlakdjhalfhlakjjhERRORlkjasfkjhs")
textfile.writeline("auhr4liuhalkfhalkhfla8yr98wyrwfkhawluyhfrqfy7432897")
textfile.writeline("ksiiiejaisudusuusddjjhfsfshufuarawiurawuhflkjdhflks")
textfile.writeline("388838alhlakdjhalfhlakjjhERRORlkjasfkjhsuuueiijjwkj")
textfile.writeline("valuehalfuwieuhrlieuheriuhlhalhlahkeerorlkajhfla83r")
textfile.writeline("lksauhr4liuhalkfhalkhfla8yr98wyrwfkhawluyhfrqfy7477")
textfile.writeline("kjksiiiewpoieyweoiuryaiuuuaaid Luarawiurawuhflkjdhf")
textfile.writeline("3r388838alhlakdjhalfhlakjjhERRORlkjasfkjhsuuueiijjw")
textfile.writeline("77valuehalfuwieuhrlieuheriuhlhalhlahkeerorlkajhfla8")
textfile.writeline("hflksauhr4liuhalkfhalkhfla8yr98wyrwfkhawluyhfrqfy74")
textfile.writeline("iijjwkjksiiieLkjsadhaksdjfsi839883uarawiurawuhflkjd")
textfile.writeline("hfla83r388838alhlakdjhalfhlakjjhERRORlkjasfkjhsuuue")
textfile.writeline("qfy7477valuehalfuwieuhrlieuheriuhlhalhlahkeerorlkaj")
textfile.writeline("flkjdhflksauhr4liuhalkfhalkhfla8yr98wyrwfkhawluyhfr")
textfile.writeline("kjasfkjhsuuueiijjwkjksiiiejlskjfgdsufaduarawiurawuh")
textfile.writeline("lahkeerorlkajhfla83r388838alhlakdjhalfhlakjjhERRORl")
textfile.writeline("rwfkhawluyhfrqfy7477valuehalfuwieuhrlieuheriuhlhalh")
textfile.writeline("Luarawiurawuhflkjdhflksauhr4liuhalkfhalkhfla8yr98wy")
textfile.writeline("...................................................")











enjoy