Enlaces patrocinados:

Trucos de Visual Basic 6.0 Abrir/Cerrar lector de CD

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
'Abre/Cierra la bandeja de CD.
'Si ST = FALSE, cierra la bandeja.
'Si ST = TRUE, abre la bandeja.
Sub OpenCD(ByVal St As Boolean)
Dim Ret As Integer, ReturnString As String, Aux As String
If St Then
Aux = "open"
Else
Aux = "closed"
End If
Ret = mciSendString("set CDAudio door " + Aux, ReturnString, 127, 0)
End Sub
NUEVO: Si tienes dudas de informática pregunta en nuestros foros

Comentarios sobre Abrir/Cerrar lector de CD

jose dice:

mierad no entiendo esta huevada
Comentario publicado 18/05/2010 5:19:00
rober mtz dice:

no funciono tu codigo en visual basic 6.0
Comentario publicado 01/06/2010 18:50:00
otro jose dice:

papa ponga comentario
Comentario publicado 13/06/2010 17:36:00
JAVIER dice:

LA MAYORIA NO SIRVE
Comentario publicado 10/06/2011 1:41:00
PeTaR_FX dice:

Si que sirve en visual basic 6 xD muy bueno de hecho, copian la parte de "Private Declare Function" arriba de todo sino no les va a andar.. y lo otro lo ponen donde quieran.. el "sub" y deps se hacen un boton y le ponen Call OpenCD(True) para abrir y para cerrar Call OpenCD(False), no es mas que eso
Comentario publicado 01/02/2012 16:20:00
Dejar un comentario
Nombre:

Mail:

Web:

Comentario:

Código de seguridad

Captcha

Inserta el código de seguridad