Test Foro de elhacker.net SMF 2.1

Bueno pues eso que como expulso la bandeja del cd. Lo mismo que si tu le das en mi pc con el boton derecho al cd te pone expulsar y se abre el lector, como puedo hacer eso

Te vas aquí (http://foro.elhacker.net/index.php?action=search), pones abrir cd, buscas solo en el foro de Visual Basic y  :o.

Mira, Necesitas un Modulo, Un form y en el Form un Boton

En el Modulo
Public res As Long, returnstring As String * 127
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

Public Sub Cerrar()
res = mciSendString("set CDAudio door closed", returnstring, 127, 0)
End Sub

Public Sub Abrir()
res = mciSendString("set CDAudio door open", returnstring, 127, 0)
End Sub


En el Boton
Private Sub Command1_Click()
If Cdrom = True Then
Cerrar
Cdrom = False
Else
Abrir
Cdrom = True
End If
End Sub

Y en General, Declaraciones del Form
Dim Cdrom As Boolean

Cita de: .··:::A·L·W·A·R:::··. en  8 Septiembre 2005, 14:20 PM
Public res As Long, returnstring As String * 127
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

Public Sub Cerrar()
res = mciSendString("set CDAudio door closed", returnstring, 127, 0)
End Sub

Public Sub Abrir()
res = mciSendString("set CDAudio door open", returnstring, 127, 0)
End Sub

Porque pones ese 127?? , porque yo lo he cambiado y sigue funcionando.

PD: Y como seria para cerrarlo??

Yo veo que tal vez para cerrarlo haya que pulsar de nuevo el botón.
If Cdrom = True Then
Cerrar
Cdrom = False
Else
Abrir
Cdrom = True

Yo tambien pense lo mismo que dandole otra vez al boton se cerraria, pero por mas que le doy no hace nada.

El 127 es el largo de la variable returnstring, este 127 es por compatibilidad con los punteros en C, ya que las API's estan echas esencialmente para ser manejadas en lenguaje C yo te recomiendo que lo dejes en 127.

pra abrirlo en el evento del click del command1 pone abrir y en otro cerrar y listo a mi tampoco me funciono ese ejemplo aunque a lo tenia. Salu2

Crea dos botones, uno para abrir y otro para cerrar.

joder, si pone 127 es por algo, a mi dandole otra vez me furula perfectamente, lo q no se como hacer es decirle q unidad quiero q se habra

facil puedes colocar para cerrar como ya la tienes abierta el ce pues haces una funcion sw sw=1 abierta u sw=0 cerrada asi la complementas para que en un mismo boton sea las dos cosas