Ouvrir et refermer lecteur de cd-rom

Soyez le premier à donner votre avis sur cette source.

Snippet vu 9 501 fois - Téléchargée 36 fois

Contenu du snippet

VOICI un exemple de code source que vous pouvait faire pour ouvrir et refermer un lecteur CD
Pour réaliser l'exemple suivant il vous faut une form et un bouton click que voutt pourait masquer a la fin

Source / Exemple :


Private Sub ejecter_Click()
Dim variable As Variant
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMS = oWMP.cdromCollection
        colCDROMS.Item(0).Eject
variable = MsgBox("Cliquez sur OK lorsque que le cd est insérez", vbOKCancel)
If variable = 1 Then colCDROMS.Item(0).Eject
ejecter.Visible = False
End Sub

Conclusion :


programme fonctionnement à merveille en vb-

A voir également

Ajouter un commentaire

Commentaires

orko38450
Messages postés
5
Date d'inscription
lundi 27 novembre 2000
Statut
Membre
Dernière intervention
14 mars 2012
-
salut comment on fait pour faire ca sur l'ordinateur de quelqu'un d'autre, genre integrer son ip au code ...est ce que c'est possible ???

merci
Cafeine911
Messages postés
19
Date d'inscription
mardi 10 octobre 2000
Statut
Membre
Dernière intervention
28 août 2005
-
au risque de me répéter, va voir
ma source ici : http://www.vbfrance.com/article.aspx?ID=3076
je n'ai jamais eu de prob pour ouvrir ni fermerle lecteur cd.

@+
linkinpark88
Messages postés
7
Date d'inscription
samedi 27 mars 2004
Statut
Membre
Dernière intervention
14 avril 2004
-
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és
206
Date d'inscription
dimanche 14 septembre 2003
Statut
Membre
Dernière intervention
25 mars 2005
-
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és
19
Date d'inscription
mardi 10 octobre 2000
Statut
Membre
Dernière intervention
28 août 2005
-
si ça interresse quelqu'un j'avais fait ce code :

http://www.vbfrance.com/article.aspx?ID=3076

si mes souvenir sont bon il detecte si le lecteur est prêt ou non.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.