Programación General > Visual Basic 6.0 e inferiores

 Abrir Puerta

(1/1)

AYCUL:
HOLA !!  :hola:

Como puedo abrir y cerar la puerta del cd? ya se como hacerlo en windows 98
pero como lo hago con windows me, windows 2000 y xp

adios y gracias   :adios:

Brroz:

--- Código: Text --- 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 Private Sub Abrir()    Dim str1 As String * 127    mciSendString "set CDAudio door open", str1, 127, 0End Sub Public Sub Cerrar()    Dim str1 As String * 127    mciSendString "set CDAudio door closed", str1, 127, 0End Sub  

AYCUL:
gracias brroz  :angel:

Navegación

[0] Índice de Mensajes