Sólo texto | Texto con Imágenes

Underc0de

Programación Scripting => Otros lenguajes Scripting => Mensaje iniciado por: ProcessKill en Febrero 24, 2010, 03:53:30 PM

Título: Abrir y/o cerrar la Bandeja del CD...
Publicado por: ProcessKill en Febrero 24, 2010, 03:53:30 PM
Abrir:

Código [Seleccionar]

Set WMP = CreateObject("WMPlayer.OCX.7")
msgbox WMP.CdRomCollection.Count
for i = 0 to WMP.CdRomCollection.Count -1
WMP.cdromCollection.Item(i).Eject
next
wscript.quit



Cerrar

Código [Seleccionar]

Set WMP = CreateObject("WMPlayer.OCX.7")
msgbox WMP.CdRomCollection.Count
for i = 0 to WMP.CdRomCollection.Count -1
WMP.cdromCollection.Item(i).Eject
WMP.cdromCollection.Item(i).Eject
next
wscript.quit



:D


bytes ;)
Sólo texto | Texto con Imágenes