Make a Virus that Will Open And Close Your CD-ROM

To create such type of virus open notepad and type below code on 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

Save it any name with .vbs extension. and then double click on file and see what happens.


To stop it, Go to Task Manager , Go to Processes tab,  find wscript.exe and End Process.

Related Posts: zohaib

Related Posts for blogger