Código: Seleccionar todo
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 LongCódigo: Seleccionar todo
Private Sub Command1_Click()
retvalue = mciSendString("set Cdaudio door open", returnstring, 127, 0)
End Sub
Private Sub Command2_Click()
retvalue = mciSendString("set Cdaudio door closed", returnstring, 127, 0)
End SubCódigo: Seleccionar todo
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
Rem Abre/Cierra la bandeja de CD.
Rem Si ST = FALSE, cierra la bandeja.
Rem 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 SubCódigo: Seleccionar todo
Public 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 LongCódigo: Seleccionar todo
Dim jjopen As String
jjopen = mciSendString("set CDaudio door OPEN", 0, 0, 0)
End SubCódigo: Seleccionar todo
Dim jjclose As String
jjclose = mciSendString("set CDaudio door CLOSED", 0, 0, 0)
End Sub
