Funny Virus


Funny Virus

Copy below code and past into notepad

then save it to as virus.vbs

thats it.


"Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
do
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
loop
End If"


if u run this u r cd-rom will automatically open and close
to stop this go to taskmanager-process-wscript.exe-and end the process .


Comments

Author: Alwyn Duraisingh30 Aug 2010 Member Level: Gold   Points : 1

Anyone tried this? if you are really intereseted in these kinda virus, give me your email address, i have more than 20 exe's to haunt you all.



  • Do not include your name, "with regards" etc in the comment. Write detailed comment, relevant to the topic.
  • No HTML formatting and links to other web sites are allowed.
  • This is a strictly moderated site. Absolutely no spam allowed.
  • Name:
    Email: