A Virus That Will Open And Close
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
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
copy this into notepad and save it as anyname.vbs like virus.vbs
and then double click on it…what u see….bingo
and then double click on it…what u see….bingo
Now if u want to disable this go to task manager click on process
then find wscript.exe and end this process
then find wscript.exe and end this process
Here are some rules for commenting on www.ShaanAli.info :
1,All comments except spams are welcome .
2,If you want to make a request ,please use English .
3,Do not use names such as Admin or Mod for commenting because it make others misunderstand .
That's all .Thanks for commenting .
4,Drop your comments Complaints Required Question In the Comments Box we Will reply you with in 24 hours