A Script That Will Open And Close CdRom:
Code:
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
Copy this into Notepad and save it as anyname.vbs like virus.vbs
and then double click on it…what you see…. baboomsa!
Now if you want to disable this go to task manager click on process
then find wscript.exe and end this process.
Anybody know how to incoporate this into a Virtual Basic Program?