Abrir y/o cerrar la Bandeja del CD...

  • 0 Respuestas
  • 1973 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado ProcessKill

  • *
  • Underc0der
  • Mensajes: 154
  • Actividad:
    0%
  • Reputación 0
  • Arriba los hackers de Argentina!
    • Ver Perfil
    • Email

Abrir y/o cerrar la Bandeja del CD...

  • 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 ;)
« Última modificación: Julio 21, 2014, 07:20:27 pm por Expermicid »