vjeux
Messages postés92Date d'inscriptionlundi 14 avril 2003StatutMembreDernière intervention 5 décembre 2003
-
6 juin 2003 à 17:23
orko38450
Messages postés5Date d'inscriptionlundi 27 novembre 2000StatutMembreDernière intervention14 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.
linkinpark88
Messages postés7Date d'inscriptionsamedi 27 mars 2004StatutMembreDernière intervention14 avril 2004 11 avril 2004 à 00:20
slt a tous! g vu d dizene de sources pr ouvrir les lecteurs cd, et sa marche sans pb, mais j'ai aussi vu des dizaines de scripts pour fermer le lecteur, et là, aucun n'a marché... si quelqu'un pourrait écrire la source uniquement pour fermer le lecteur cd sa serait très sympa! :o)
+ + + !!
Sibelle07
Messages postés206Date d'inscriptiondimanche 14 septembre 2003StatutMembreDernière intervention25 mars 2005 2 oct. 2003 à 17:15
Sa sait fait avec l'ocx de windows media player !!!
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+
Cafeine911
Messages postés19Date d'inscriptionmardi 10 octobre 2000StatutMembreDernière intervention28 août 2005 10 juin 2003 à 10:17
si mes souvenir sont bon il detecte si le lecteur est prêt ou non.
agentTMORT
Messages postés19Date d'inscriptiondimanche 16 février 2003StatutMembreDernière intervention22 juillet 2003 7 juin 2003 à 18:52
si il doit y avoir un moyen mais en passant par les API et je ne suis assez qualifier pour faire cela je debute le VB la dsl :-(
vjeux
Messages postés92Date d'inscriptionlundi 14 avril 2003StatutMembreDernière intervention 5 décembre 2003 7 juin 2003 à 17:44
Merci !
Sinon il n'y a pas un moyen de savoir dans quelle position est un lecteur ? (S'il est ouvert ou fermé)
agentTMORT
Messages postés19Date d'inscriptiondimanche 16 février 2003StatutMembreDernière intervention22 juillet 2003 7 juin 2003 à 14:10
salut
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
stevebelgium
Messages postés180Date d'inscriptionlundi 17 mars 2003StatutMembreDernière intervention 7 juin 20031 6 juin 2003 à 22:06
*Est-ce qu'il peut fermer / ouvrir un 2eme lecteur ?:
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
vjeux
Messages postés92Date d'inscriptionlundi 14 avril 2003StatutMembreDernière intervention 5 décembre 2003 6 juin 2003 à 17:23
Qques questions : J'ai un portable avec un seul lecteur CD et qui ne peut pas se refermer automatiquement alors je me demande :
*Est-ce que ton proggr referme le lecteur ?
*Est-ce qu'il peut fermer / ouvrir un 2eme lecteur ?
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 !