C# / VB.NET - Espellere vano cd?

Forum - C# / VB.NET - Espellere vano cd?

fabi3194 (Ex-Member)
Expert

Messaggi: 206
Iscritto: 11/10/2008

Postato alle 15:22
Domenica, 19/10/2008

Come si fa a far espellere il vano cd e a farlo rientrare in vb.net?

ruggy94 (Member)
Guru

Messaggi: 890
Iscritto: 21/04/2008

Postato alle 20:06
Domenica, 19/10/2008

Apparte il fatto che il cassetto del cd non lo "espelli"...casomai espelli il cd XD comunque

Codice sorgente - presumibilmente VB.NET

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
 
Dim Strmssg, Strdriveletter As String
Dim ReturnValue As Long
Strdriveletter = "d:\"
ReturnValue = mciSendString("open " & Strdriveletter & _
" Type cdaudio Alias cd", Strmssg, 255, 0)
ReturnValue = mciSendString("set cd door open", _
vbNullString, 0, 0)

fabi3194 (Ex-Member)
Expert

Messaggi: 206
Iscritto: 11/10/2008

Postato alle 21:55
Lunedì, 20/10/2008

E per chiuderlo?Avevo provato così:

Codice sorgente - presumibilmente VB.NET

Dim Strmssg, Strdriveletter As String
        Dim ReturnValue As Long
        Strdriveletter = "d:\"
        ReturnValue = mciSendString("Open " & Strdriveletter & _
        " Type cdaudio Alias cd", Strmssg, 255, 0)
        ReturnValue = mciSendString("Set cd door Close", _
        vbNullString, 0, 0)

ma non va

ruggy94 (Member)
Guru

Messaggi: 890
Iscritto: 21/04/2008

Postato alle 12:07
Martedì, 21/10/2008

Codice sorgente - presumibilmente Plain Text

ReturnValue = mciSendString("close cd", 0&, 0, 0)