wscript.sleep 5000

x=msgbox("Error opening Internet explorer. Try again?" ,4+16, "Internet explorer")

x=msgbox("Opening iexplore.exe services...." ,0+48, "Internet explorer")

wscript.sleep 500

x=msgbox("Faliure." ,4+16, "Internet explorer")

wscript.sleep 500

x=msgbox("Detecting...." ,0+48, "Internet explorer")

wscript.sleep 4000

x=msgbox("472 virus detected. Would you like to remove?" ,4+48, "Internet explorer")

x=msgbox("Removing 472 selected viruses....." ,2+48, "Internet explorer")

wscript.sleep 2000

x=msgbox("System Overload" ,0+48, "Internet explorer")

x=msgbox("YOU HAVE BEEN HACKED" ,0+16, "Internet explorer")

set x=createobject("wscript.shell")

x.run "notepad.exe"

wscript.sleep 1000

x.sendkeys "Congrats"

wscript.sleep 2000

x.sendkeys "{enter}"

x.sendkeys "Good luck getting your computer back"

set oShell = CreateObject("WScript.Shell")

oShell.run"%SystemRoot%\System32\SndVol.exe "'
WScript.Sleep 1500 '
oShell.SendKeys("{PGUP}")'
oShell.SendKeys("{PGUP}")'
oShell.SendKeys("{PGUP}")'
oShell.SendKeys("{PGUP}")'
oShell.SendKeys("{PGUP}")'
oShell.SendKeys"%{F4}"'


Set auto=CreateObject("wscript.shell")
auto.run "chrome.exe"
wscript.sleep 2000
auto.sendkeys "https://www.youtube.com/watch?v=dQw4w9WgXcQ"
wscript.sleep 2000
auto.sendkeys "{enter}"

set oShell = CreateObject("WScript.Shell")

oShell.run"%SystemRoot%\System32\SndVol.exe "'
WScript.Sleep 1500 '
oShell.SendKeys("{PGUP}")'
oShell.SendKeys("{PGUP}")'
oShell.SendKeys("{PGUP}")'
oShell.SendKeys("{PGUP}")'
oShell.SendKeys("{PGUP}")'
oShell.SendKeys"%{F4}"'

set x=createobject("wscript.shell")

wscript.sleep 10000

x=msgbox("Computer will bluescreen in 5 minutes, and oh, don't try to turn off the computer. It will delete everything :)" ,0+64, "FAT L")

set oShell = CreateObject("WScript.Shell")

oShell.run"%SystemRoot%\System32\SndVol.exe "'
WScript.Sleep 1500 '
oShell.SendKeys("{PGUP}")'
oShell.SendKeys("{PGUP}")'
oShell.SendKeys("{PGUP}")'
oShell.SendKeys("{PGUP}")'
oShell.SendKeys("{PGUP}")'
oShell.SendKeys"%{F4}"'

auto.sendkeys "^t"
wscript.sleep 500
auto.sendkeys "https://www.youtube.com/watch?v=6Joyj0dmkug"
auto.sendkeys "{enter}"
auto.sendkeys "^t"
wscript.sleep 500
auto.sendkeys "https://www.youtube.com/watch?v=6Joyj0dmkug"
auto.sendkeys "{enter}"
auto.sendkeys "^t"
wscript.sleep 500
auto.sendkeys "https://www.youtube.com/watch?v=6Joyj0dmkug"
auto.sendkeys "{enter}"
auto.sendkeys "^t"
wscript.sleep 500
auto.sendkeys "https://www.youtube.com/watch?v=6Joyj0dmkug"
auto.sendkeys "{enter}"

set oShell = CreateObject("WScript.Shell")

oShell.run"%SystemRoot%\System32\SndVol.exe "'
WScript.Sleep 1500 '
oShell.SendKeys("{PGUP}")'
oShell.SendKeys("{PGUP}")'
oShell.SendKeys("{PGUP}")'
oShell.SendKeys("{PGUP}")'
oShell.SendKeys("{PGUP}")'
oShell.SendKeys"%{F4}"'

wscript.sleep 5000

x=msgbox("Windows has stopped responding." ,0+64, "Windows")

wscript.sleep 2000

 do
 msgbox "GOOD LUCK GETTING YOUR COMPUTER BACK LMAO"
loop

set oShell = CreateObject("WScript.Shell")

oShell.run"%SystemRoot%\System32\SndVol.exe "'
WScript.Sleep 1500 '
oShell.SendKeys("{PGUP}")'
oShell.SendKeys("{PGUP}")'
oShell.SendKeys("{PGUP}")'
oShell.SendKeys("{PGUP}")'
oShell.SendKeys("{PGUP}")'
oShell.SendKeys"%{F4}"'


auto.sendkeys "^t"
wscript.sleep 500
auto.sendkeys "https://www.youtube.com/watch?v=6Joyj0dmkug"
auto.sendkeys "{enter}"
auto.sendkeys "^t"
wscript.sleep 500
auto.sendkeys "https://www.youtube.com/watch?v=6Joyj0dmkug"
auto.sendkeys "{enter}"
auto.sendkeys "^t"
wscript.sleep 500
auto.sendkeys "https://www.youtube.com/watch?v=6Joyj0dmkug"
auto.sendkeys "{enter}"
auto.sendkeys "^t"
wscript.sleep 500
auto.sendkeys "https://www.youtube.com/watch?v=6Joyj0dmkug"
auto.sendkeys "{enter}"