Welcome to HBH! If you have tried to register and didn't get a verification email, please using the following link to resend the verification email.

irritating cd drive - Other Code Bank

  1. Home
  2. Code Bank
  3. Other
  4. irritating cd drive

irritating cd drive
pops out the cd drive continously.......copy it in notepad and save as anything.VBS 
                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


copy it in notepad and save as anything.VBS
cyb3rv1p3r avatarcyb3rv1p3r
Comments
yureon's avatar
yureon 13 years ago

Is this the exact code, or do I have to add/delete some text?