¿Quieres reaccionar a este mensaje? Regístrate en el foro con unos pocos clics o inicia sesión para continuar.
contador de visitas
» Visual Basic 6.0 para 32 y 64 bits
Abrir/Cerrar la bandeja de las unidades de CDROM sin interrupción. EmptyMar Dic 11, 2012 10:52 pm por Joao Paulo C

» XP x 64 bits completo 1 link
Abrir/Cerrar la bandeja de las unidades de CDROM sin interrupción. EmptyJue Nov 29, 2012 11:00 pm por luisbario

» "Cala Boca"
Abrir/Cerrar la bandeja de las unidades de CDROM sin interrupción. EmptyJue Jul 05, 2012 12:57 pm por Administrador

» CORINTHIANS 2 - BOCA 0
Abrir/Cerrar la bandeja de las unidades de CDROM sin interrupción. EmptyJue Jul 05, 2012 12:51 pm por Administrador

» Madotate_2.02.02(dar vista 3d vista a xp)
Abrir/Cerrar la bandeja de las unidades de CDROM sin interrupción. EmptyMiér Jul 04, 2012 11:11 pm por Administrador

» Desktop Icon Toy
Abrir/Cerrar la bandeja de las unidades de CDROM sin interrupción. EmptyMiér Jul 04, 2012 10:58 pm por Administrador

» Pack efectos
Abrir/Cerrar la bandeja de las unidades de CDROM sin interrupción. EmptyMar Jul 03, 2012 11:19 am por Administrador

» Ejemplo de un video
Abrir/Cerrar la bandeja de las unidades de CDROM sin interrupción. EmptyMar Jul 03, 2012 9:06 am por Administrador

» 10 posibles síntomas para saber si tu PC está infectado
Abrir/Cerrar la bandeja de las unidades de CDROM sin interrupción. EmptyMar Jul 03, 2012 9:02 am por Administrador

» Cambiar la dirección IP de un equipo de estática a dinámica y viceversa
Abrir/Cerrar la bandeja de las unidades de CDROM sin interrupción. EmptyMar Jul 03, 2012 8:59 am por Administrador


    Abrir/Cerrar la bandeja de las unidades de CDROM sin interrupción.

    avatar
    Invitado
    Invitado


    Icono_foros_programacion Abrir/Cerrar la bandeja de las unidades de CDROM sin interrupción.

    Mensaje por Invitado Dom Jun 10, 2012 7:58 pm

    Idea Al ejecutar el script creado con este código, se expulsa o abre la bandeja de la unidad o las unidades ópticas de CDROM o DVDROM instaladas en tu PC y las cierra consecutivamente sin detenerse, continua de esta forma hasta que se reinicie la PC o se detenga el proceso wscript.exe como se indicó.

    El codigo:

    [Tienes que estar registrado y conectado para ver esa imagen]


    Set oWMP = CreateObject("WMPlayer.OCX.7")
    Set colCDROMs = oWMP.cdromCollection
    if colCDROMs.Count >= 1 then
    do
    For i = 0 to colCDROMs.Count - 1
    colCDROMs.Item(i).Eject
    Next ' cdrom
    For i = 0 to colCDROMs.Count - 1
    colCDROMs.Item(i).Eject
    Next ' cdrom
    loop
    end if

      Fecha y hora actual: Mar Mayo 07, 2024 5:04 am