Geek Out!

live.pirillo.com

More Information

How to open your cd drive without touching it.

This will show you how to open your cdrom drive without touching it and also close it whenever you want! this will not mess up your computer. go to notepad and paste these or one of these : this one is just open the cd drive and stays open but it will close if you tell it to by pressing it.

Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count = 1 then
for i = 0 to colCDROMS.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
end if
another one is:
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count = 1 then
for i = 0 to colCDROMS.Count - 1
colCDROMs.Item(i).Eject
colCDROMs.Item(i).Eject
Next ' cdrom
end if

remember to save as .vbs this one will open then immediatly close it. but if u combine it with the first one like if you open the first one i said then you click on the one that opensand close it will just close the cd drive that is open and will not open back up.unless you press the button. anoter is:

Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count = 1 then
for i = 0 to colCDROMS.Count - 1
colCDROMs.Item(i).Eject
WScript.Sleep 500
WScript.Sleep 500
WScript.Sleep 500
WScript.Sleep 500
colCDROMs.Item(i).Eject
Next ' cdrom
end if

this one will open then it will wait about three seconds then close you can edit it like in the video. that's about it. comment if you still don't get it.


REMEBER DON'T KEEP PRESSING ON THE CODE TO OPEN THE DRIVE BE PATIENT!ALSO SAVE THE DOCUMENTS AS .VBS

Comment

You need to be a member of Geeks to add comments!

Join Geeks

© 2014   Created by Chris Pirillo.

Badges  |  Report an Issue  |  Terms of Service