Questo sito utilizza cookies, anche di terze parti, per mostrare pubblicità e servizi in linea con il tuo account. Leggi l'informativa sui cookies.
Username: Password: oppure
C# / VB.NET - Espellere vano cd?
Forum - C# / VB.NET - Espellere vano cd?

Avatar
fabi3194 (Ex-Member)
Expert


Messaggi: 206
Iscritto: 11/10/2008

Segnala al moderatore
Postato alle 15:22
Domenica, 19/10/2008
Come si fa a far espellere il vano cd e a farlo rientrare in vb.net?

PM Quote
Avatar
ruggy94 (Member)
Guru


Messaggi: 890
Iscritto: 21/04/2008

Segnala al moderatore
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

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


PM Quote
Avatar
fabi3194 (Ex-Member)
Expert


Messaggi: 206
Iscritto: 11/10/2008

Segnala al moderatore
Postato alle 21:55
Lunedì, 20/10/2008
E per chiuderlo?Avevo provato così:
Codice sorgente - presumibilmente VB.NET

  1. Dim Strmssg, Strdriveletter As String
  2.         Dim ReturnValue As Long
  3.         Strdriveletter = "d:\"
  4.         ReturnValue = mciSendString("Open " & Strdriveletter & _
  5.         " Type cdaudio Alias cd", Strmssg, 255, 0)
  6.         ReturnValue = mciSendString("Set cd door Close", _
  7.         vbNullString, 0, 0)


ma non va :rotfl::rotfl::rotfl:

PM Quote
Avatar
ruggy94 (Member)
Guru


Messaggi: 890
Iscritto: 21/04/2008

Segnala al moderatore
Postato alle 12:07
Martedì, 21/10/2008
Codice sorgente - presumibilmente Plain Text

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


PM Quote