Abrir y Cerrar la puerta del CD-ROM

Publicado por Eliseo en Ejemplos, Humor, Tutoriales el 09 1st, 2009 | 11 respuestas

Basandome en este video que vi hoy en internet decidí publicar este sencillo post sobre como hacer, mediante un programa en visual basic .net, que la puerta del lector de CD’s se abra y se cierre.

Para realizar el ejemplo simplemente necesitamos un formulario y dos botones (abrir y cerrar) como se ve en la imagen:

y el siguiente código:

Public Class Form1
    Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _
       (ByVal lpCommandString As String, ByVal lpReturnString As String, _
       ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        AbrirCDROM()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        cerrarCDROM()
    End Sub

    Public Sub AbrirCDROM()
        mciSendString("set CDAudio door open", "", 0, 0)
    End Sub

    Public Sub cerrarCDROM()
        mciSendString("set CDAudio door closed", "", 0, 0)
    End Sub

End Class

Listo! a disfrutarlo y si tienes un bebe… a poner el código dentro de un bucle y a conseguir una cuerda.



11 Responses to “Abrir y Cerrar la puerta del CD-ROM”

  1. Bitacoras.com dice:
    01/09/2009 en 2:07 am

    Información Bitacoras.com…

    Valora en Bitacoras.com: basandome en este video que vi hoy en internet decidí public este sencillo post sobre como hacer, mediante un programa en visual basic .net, que la puerta del lector de CD’s se abra y se cierre. Para realizar el ejemplo simpl…..

    Responder
  2. ares dice:
    01/09/2009 en 9:28 am

    A ver si se duerme así.
    saludos

    Responder
  3. Bitacoras.com dice:
    01/09/2009 en 10:09 am

    Información Bitacoras.com…

    Valora en Bitacoras.com: Basandome en este video que vi hoy en internet decidí publicar este sencillo post sobre como hacer, mediante un programa en visual basic .net, que la puerta del lector de CD’s se abra y se cierre. Para realizar el ejemplo sim…..

    Responder
  4. M.altm dice:
    02/09/2009 en 7:38 pm

    hola, me parecio muy bueno el programa, me gustaria usarlo en visual basic 2005.
    Lo puedes escribir en este lenguaje? muchas gracias. este es el correo al que puedes enviar la respuesta, parisparis2@hotmail.es

    Responder
  5. mustang dice:
    17/09/2009 en 12:29 pm

    una curiosidad lo probe en visual net 2005
    no me tira error ni nada, pero al ejecutarlo en el boton de abrir, abre pero visual tira un mensaje que es el siguiente:

    A call to PInvoke function ‘WindowsApplication1!WindowsApplication1.Form1::mciSendString’ has unbalanced the stack. This is likely because the managed

    error de MDAs..¿que significa eso?

    gracias

    Responder
  6. eFra dice:
    18/09/2009 en 11:26 pm

    Pues lo probe en vb.net 2005 y todo funciona a la perfeccion… me gustaria participar con algunos ejemplos que yo tengo…

    Responder
  7. gustavo dice:
    23/09/2009 en 2:55 pm

    a mi tambien me manda el mismo error que mustang, que es lo que sera?

    Responder
  8. cristian garcia dice:
    13/02/2010 en 6:35 pm

    al principio yo no lo entendia pero viendolo varias veses lo pude entender un poco. pero el que si lo entiende bien es otoniel

    Responder
  9. Ismael dice:
    01/06/2010 en 2:39 pm

    Esta bueno el programita!

    Responder

Comentar