A Program That Scares Your Friends'

a awsome prank virus

This is just to prank your friend's This dose not harm a computer at all but please tell them how to stop it. To stop it you will need to open task manager then find the one that say windows based script host and end it

Ok copy and paste this into notepad and save it as friends name Computer.VBS:

X=MsgBox("your computer has been hacked.do you want to delete the virus",4+48,"Windows Defender") 




X=MsgBox("Unable to delete Virus",5+16,"Windows Defender")




X=MsgBox("Virus is sending Microsoft password do you want to stop it",4+48,"Windows Defender") 




X=MsgBox("windows was Unable to stop it passwords sent ",2+48,"Windows Explorer")




X=MsgBox("window is unable to stop the virus",0+16,"Windows Explorer")




X=MsgBox("window is unable to stop the virus",0+16,"Windows Explorer")




X=MsgBox("window is unable to stop the virus",0+16,"Windows Explorer")




X=MsgBox("window is unable to stop the virus",0+16,"Windows Explorer")




X=MsgBox("window is unable to stop the virus",0+16,"Windows Explorer")




X=MsgBox("window is unable to stop the virus",0+16,"Windows Explorer")  




X=MsgBox("window is unable to stop the virus",0+16,"Windows Explorer")




X=MsgBox("window is unable to stop the virus",0+16,"Windows Explorer")




X=MsgBox("window is unable to stop the virus",0+16,"Windows Explorer")




X=MsgBox("window is unable to stop the virus",0+16,"Windows Explorer")




X=MsgBox("window is unable to stop the virus",0+16,"Windows Explorer")




X=MsgBox("window is unable to stop the virus",0+16,"Windows Explorer")




X=MsgBox("window is unable to stop the virus",0+16,"Windows Explorer")




X=MsgBox("Credit card is stolent",0+16,"WInDDooowwss DDDddEEeffeeeenddeeRRR") 




X=MsgBox("virus has Taken full cunntrol of this computer this will be the last message by Windows Shutdown the PC if you dont want the virus to fully take over all programs turn the computer off in",0+16,".")




Set WshShell = WScript.CreateObject("WScript.Shell")




strName = wshShell.ExpandEnvironmentStrings( "%Email@ad.com%" )




X=MsgBox("https://www.youtube.com/watch?v=vAvcxeXtBz0",0+16,"Haha this was a Prank")

Make a shortcut to The file Then go to properties then press change icon and profit

Sub to me