SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: AYCUL en Sábado 14 de Febrero de 2004, 05:49

Título: Abrir Puerta
Publicado por: AYCUL en Sábado 14 de Febrero de 2004, 05:49

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:

Título: Re: Abrir Puerta
Publicado por: Brroz en Sábado 14 de Febrero de 2004, 12:14

Código: Text

1.  
2. Private Declare Function mciSendString Lib "winmm.dll" Alias _
3. "mciSendStringA" (ByVal lpstrCommand As String, ByVal _
4. lpstrReturnString As String, ByVal uReturnLength As Long, _
5. ByVal hwndCallback As Long) As Long
6.  
7. Private Sub Abrir()
8.     Dim str1 As String * 127
9.     mciSendString "set CDAudio door open", str1, 127, 0
10. End Sub
11.  
12. Public Sub Cerrar()
13.     Dim str1 As String * 127
14.     mciSendString "set CDAudio door closed", str1, 127, 0
15. End Sub
16.  
17.  

Título: Re: Abrir Puerta
Publicado por: AYCUL en Sábado 14 de Febrero de 2004, 14:27

gracias brroz  :angel: