PDA

Visualizza la versione completa : X FAVORE E' MOLTO IMPORTANTE!!!


BlackDemon
15-07-2002, 13:36
:adhone: :master: :cry:
Salve a tutti una domanda: IL CODICE PER APRIRE/CHIUDERE IL CASSETTINO DEL LETTORE CD?
Un grazie infinite se me lo inviate.

userfra
15-07-2002, 13:51
Dici in VB

BlackDemon
17-07-2002, 13:39
SI IN VB

Janx
17-07-2002, 18:00
copia
__________________________________________________ _________________

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
Private Sub ApriCD(lettera_drive As String)
Dim str_msg As String * 255
Dim ret_value As Long
lettera_drive = lettera_drive & ":\"
ret_value = mciSendString("open " & lettera_drive & _
" Type cdaudio Alias cd", str_msg, 255, 0)
ret_value = mciSendString("set cd door open", _
vbNullString, 0, 0)
ret_value = mciSendString("close cd", 0&, 0, 0)
End Sub
Private Sub ChiudiCD(lettera_drive As String)
Dim str_msg As String * 255
Dim ret_value As Long
lettera_drive = lettera_drive & ":\"
ret_value = mciSendString("open " & lettera_drive & _
" Type cdaudio Alias cd", str_msg, 255, 0)
ret_value = mciSendString("set cd door closed", _
vbNullString, 0, 0)
ret_value = mciSendString("close cd", 0&, 0, 0)
End Sub
__________________________________________________ _________________

ad esempio per aprire il cassetto del drive D:\ fai così:

ApriCD "D"

per chiuderlo fai:

ChiudiCD "D"

.......continua

Janx
17-07-2002, 18:06
..... continuo

se però non puoi prevedere la lettera del lettore, e non hai voglia di fare una ricerca/verifica sul tipo di drive per scovare la presenza di lettori, fai cosi:

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 ret_value As Long

' questo apre il cassetto
retvalue = mciSendString("set CDAudio door open", returnstring, 127, 0)

' questo lo chiude
retvalue = mciSendString("set CDAudio door closed", returnstring, 127, 0)


NOTA
***************************
funziona solo con il primo drive CD-Rom trovato
es. se hai il lettore D: e il masterizzatore E:
questo esempio funziona solo col primo (D:)
per la scelòta del drive devi usare il primo esempio
che ti ho spedito.
**************************

fammi sapere!!
Ciao!

BlackDemon
19-07-2002, 13:44
GRAZIE INFINITE FUNZIONA A MERAVIGLIA SE HAI QUALCHE DOMANDA FAMMELA ANCHE SE NON SO SE TI POTRO' RISP. XCHE' SONO ALLE PRIME ARMI CON VB!!!
SENTI UN'ALTRA COSA, SE INVECE VOLESSI SCRIVERE NEL REGISTRO??? SO CHE SI DEVE UTILIZZARE UN MODULO MA NON LO RIESCO A TROVARE E' PURTROPPO NON HO LA GUIDA!!!
HELP ME!!!
CIAO E GRAZIE ANCORA

Janx
19-07-2002, 14:31
per scrivere e leggere sul registro dovresti usare Windows Scripting Host (WSH), se non sono indiscreto.....
cosa ci devi fare?

BlackDemon
19-07-2002, 14:42
COSA è WSH???

vonkranz
19-07-2002, 17:22
Originariamente inviato da janx
per scrivere e leggere sul registro dovresti usare Windows Scripting Host (WSH), se non sono indiscreto.....
cosa ci devi fare?
Questo :D (http://forum.html.it/forum/showthread.php?threadid=281332)

BlackDemon
19-07-2002, 21:34
mi servirebbe saperlo, in quanto sto scrivendo un programma con VB, e vorrei scrivere una chiave nel registro, in modo che se il programma viene disinstallato, una volta riinstallato si avranno le stesse impostazioni di prima, tutto qui!!!

Loading