Abrir y Cerrar la puerta del CD-ROM

Publicado por Eliseo en Ejemplos, Humor, Tutoriales el 09 1st, 2009 | 14 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.



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

  1. Bitacoras.com dice:
    01/09/2009 a las 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 a las 9:28 am

    A ver si se duerme así.
    saludos

    Responder
  3. Bitacoras.com dice:
    01/09/2009 a las 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 a las 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 a las 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 a las 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 a las 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 a las 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 a las 2:39 pm

    Esta bueno el programita!

    Responder
  10. jrchico dice:
    12/09/2010 a las 3:40 pm

    hola amigo yo utilizo este codigo me funciona a la perfeccion:

    Public Class Form1
    Private Declare Function mciSendString Lib “winmm.dll” Alias “mciSendStringA” (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles a.Click
    AbrirCDROM()
    a.Enabled = False
    c.Enabled = True
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles c.Click
    cerrarCDROM()
    c.Enabled = False
    a.Enabled = True
    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

    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Application.Exit()
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    End Sub
    End Class

    Responder
  11. jrchico dice:
    12/09/2010 a las 3:56 pm

    deben agregar 3 botones y label y una picture
    a
    c
    Button1

    boton a es para abrir el cdrom
    boton c es para cerrar
    button1 es para salir de la aplicacion
    label es opcional
    picture es opcional

    Responder
  12. Eduardo dice:
    05/06/2011 a las 2:16 am

    gracias jrchico

    Responder

Comentar