Abrir/Cerrar la unidad de disco CD

Hay una nueva version de este programa clic para descargar

Les dejo este codigo en Microsoft (R) Windows Based Script Host que sirve para abrir la unidad de CD:


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


Y tambien el que sirve para cerrarla, he visto que en muchas webs tienen el codigo para abrirla pero no para cerrarla e incluso en otra vi que habia otro codigo que la abria y la cerraba pero la abria y en cuanto la abria la cerraba, y es util pero no si vas a meter un disco en la unidad, imaginate mientras vas a meter el disco ya se cerraria, pues no asi no sirve el codigo, por eso aqui dejo el codigo que la abre y la cierra hasta que tu quieras cerrarla, este codigo es propiedad de Hack Diseño® sin embargo puedes distriubirlo pero recuerda poner la fuente de donde lo extraiste o nuestra direccion.

Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
colCDROMs.Item(i).Eject
colCDROMs.Item(i).Eject <----Lo unico que le debes agregar es esta linea.


El codigo debe ser guardado con el nombre que quieras pero en extension .vbs
Ejemplo: abrirCD.vbs

O tambien descargarte nuestro programa (RECOMENDADO) que te pregunta si quieres abrir la unidad de CD y despues de abrirla te pregunta si quieres cerrarla.
En la seccion de descargas ahi lo encontraras su nombre es CDCO.
es todo espero y haberles aportado una informacion util, aunque yo pienso que si, ya que a veces da flojera agacharse o moverse a presionar el boton para abrir la unidad de cd y luego volver a presionar para cerrar...jajaja

By Hacko.