OUVRIR ET REFERMER LECTEUR DE CD-ROM
vjeux
Messages postés
92
Date d'inscription
lundi 14 avril 2003
Statut
Membre
Dernière intervention
5 décembre 2003
-
6 juin 2003 à 17:23
orko38450 Messages postés 5 Date d'inscription lundi 27 novembre 2000 Statut Membre Dernière intervention 14 mars 2012 - 1 avril 2006 à 11:39
orko38450 Messages postés 5 Date d'inscription lundi 27 novembre 2000 Statut Membre Dernière intervention 14 mars 2012 - 1 avril 2006 à 11:39
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/7359-ouvrir-et-refermer-lecteur-de-cd-rom
https://codes-sources.commentcamarche.net/source/7359-ouvrir-et-refermer-lecteur-de-cd-rom
1 avril 2006 à 11:39
merci
12 avril 2004 à 21:24
ma source ici : http://www.vbfrance.com/article.aspx?ID=3076
je n'ai jamais eu de prob pour ouvrir ni fermerle lecteur cd.
@+
11 avril 2004 à 00:20
+ + + !!
2 oct. 2003 à 17:15
je l'ai fait en javascript
mais en vb j'avais jamais trouver y a une autre soluce :
avec un form 2 boutons :
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 ouvrir_Click()
ret = mciSendString("Set cdaudio door Open wait", vbNullChar, 0, 0)
End Sub
Private Sub fermer_Click()
ret = mciSendString("Set cdaudio door closed wait", vbNullChar, 0, 0)
End Sub
voila !
a+
10 juin 2003 à 10:17
http://www.vbfrance.com/article.aspx?ID=3076
si mes souvenir sont bon il detecte si le lecteur est prêt ou non.
7 juin 2003 à 18:52
7 juin 2003 à 17:44
Sinon il n'y a pas un moyen de savoir dans quelle position est un lecteur ? (S'il est ouvert ou fermé)
7 juin 2003 à 14:10
vjeux mon prog referme le lecteur
et il peu ouvrir un 2eme lecteur
et un 3 eme osi les gars
vous pouvez le faire en passant par une boucle for next je v vous donner un exemple si dessous ki permet d'ouvrir les 2 lecteur un apres l'autre et vous remet la mem fonction apres et il se refermerons
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
End If
6 juin 2003 à 22:06
item = 1
*Est-ce qu'il peut fermer / ouvrir un 3eme lecteur ?:
item = 2 .....
-------------------------
Private Sub ejecter_Click()
Dim variable As Variant
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMS = oWMP.cdromCollection
colCDROMS.Item(1).Eject
variable = MsgBox("Cliquez sur OK lorsque que le cd est insérez", vbOKCancel)
If variable = 1 Then colCDROMS.Item(1).Eject
ejecter.Visible = False
End Sub
steve
6 juin 2003 à 17:23
*Est-ce que ton proggr referme le lecteur ?
*Est-ce qu'il peut fermer / ouvrir un 2eme lecteur ?
Merci !