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 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.
Esto puede ser util para aquellos que estan diseñando un virus y quieren que el virus abra o cierre la unidad de CD. XD
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 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.
Esto puede ser util para aquellos que estan diseñando un virus y quieren que el virus abra o cierre la unidad de CD. XD
0 Comentarios:
Publicar un comentario
¡Hola!
Gracias por visitar mi blog.
Espero y no sea tu ultima visita.
Deja un comentario, sugerencia, observacion o lo que quieras.
Nota: Cualquier Comentario Ofensivo, Irrelevante o Fuera del Tema sera eliminado.