Another Fake virus for you guys to try out. This one makes people think it's real more often just because they here it.

Once again to set this straight: This is a fake virus, not a real one.

Step 1: Open Notepad.


Step 2: Copy and Paste this:

Quote :

do
StrText=("Your voice message here")
set ObjVoice = CreateObject("SAPI.SpVoice")
ObjVoice.Speak StrText
x =msgbox ("popup message",1,"popup title")
x =msgbox ("popup message",1,"popup title")
loop

Step 3: You can edit the message where it says that you can. For example here is my edit:

Quote :

do
StrText=("Warning. Warning. Your computer is being hacked. You may be at serious risk.")
set ObjVoice = CreateObject("SAPI.SpVoice")
ObjVoice.Speak StrText
x =msgbox ("Windows has detected a hack in progress.",1,"Hack Alert!")
x =msgbox ("Hack still in progress.",1,"Hack Alert!")
loop

Step 4: Once you have done that go to Save As. Save the file as " anything here.vbs "

The anything here part can say anything, but you will be changing it later anyways,BUT YOU NEED THE VBS PART!!!!


Step 5: Now go to the file. Right click over it and go down to properties.


Step 6: Change the name of the file to something believable. ( Ex. Free Game Downloads )


Step 7: Same computers may allow you to change the icon of the file as well to make it even more believable. To do this go back to Properties and find the Icon button. Click it and browse the icon list. An Earth works very well.


Step 8: Play the virus.


Step 9: The virus will continue unless stopped. To stop the virus either log off your computer or go to Task Manager --> Processors and find " wscript.exe ". Right click on it and click " End Process "


Hope you enjoyed.

Thanks!

Nice job! I may have to give this a try.