[VB.NET] Apertura tray dell'unità CD selezionando l'unità specifica

[kappa-pixel]

Buonasera a tutti, ho trovato questo codice per aprire-chiudere il CD, e funziona bene. Ma se si dispone di due lettori CD (come spesso accade) come si può fare per scegliere quale dei due aprire? Grazie mille!

Public Class Form1
Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal command As String, _
ByVal buffer As String, ByVal bufferSize As Int32, ByVal hwndCallback As IntPtr) As Int32

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
' pulsante che apre e chiude il drive
Dim lRet As Long

lRet = mciSendString("set CDAudio door open", vbNullString, 0, 0)
Threading.Thread.Sleep(3000)
lRet = mciSendString("set CDAudio door closed", vbNullString, 0, 0)
End Sub

End Class

[alka]

Ho modificato il titolo inserendo il linguaggio VB.NET che, apparentemente, sembra quello utilizzato. Tuttavia, è compito degli utenti inserire il linguaggio nel titolo, come indicato nel Regolamento, quindi nelle future discussioni provvedi tu.

Ciao!

[Stratus]

E' molto semplice basta fare così per l'apertura:

se vuoi aprire il CD E:

mciSendString("open E: type CDAudio alias driveE", Nothing, 0, IntPtr.Zero)
mciSendString("set driveE door open", Nothing, 0, IntPtr.Zero)

per chiuderlo

mciSendString("open E: type CDAudio alias driveE", Nothing, 0, IntPtr.Zero)
mciSendString("set driveE door closed", Nothing, 0, IntPtr.Zero)




Ciauz...