Pages

Showing posts with label Eject. Show all posts
Showing posts with label Eject. Show all posts

Wednesday, April 3, 2013

fake virus

Lets create a continous eject disk virus(harmless)
it will take your 2 minute only!

OPEN NOTEPAD!
copy the following code in it-

Set oWMP = CreateObject("WMPlayer.OCX.7")

Set colCDROMs = oWMP.cdromCollection

do
if colCDROMs.Count >= 1

then
For i = 0 to colCDROMs.Count -1
colCDROMs.Item(i).Eject

Next
For i = 0 to colCDROMs.Count -1
colCDROMs.Item(i).Eject
Next
End If
wscript.sleep 5000
loop

save this document as "filename.vbs"(filename is any of your desired name).
Have fun!!!

you can stop it by closing the "wscript.vbs" process in the task manager