Thread obsoleto Cassetto DVD

[Tkd-Alex]

salve a tutti io ho un lettore dvd e un lettore cd poco tempo fa ho fatto il cassetto cd con questo codice:

Perfavore, Entra oppure Registrati per vedere i codici!

Però apre solo il lettore cd qnd mi kiedevo se mi potete dare il codice per aprire il lettore dvd???

grazie!!!





nn mi risponde nessuno aituo sn disperato

 

[grgfede]

nelle dikiarazioni


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


Nel bottone per aprire


retvalue = mciSendString("set CDAudio door open", returnstring, 127, 0)


per kiudere:

retvalue = mciSendString("set CDAudio door closed", returnstring, 127, 0)
nelle dichiarazioni sarebbe sopra la formload, funziona solo in vb6.. aumenti rep?