Lecteur de cd

[Philboy]

Bonjour a tout le forum, et aussi bravo pour la qualite de travail de tous ceux qui le font tourner.


J'aimerai connaitre le code pour commander l'ouvrir de tiroir du lecteur cd, je voudrai forcer l'utilisateur a mettre un cd.

C'a doit pas etre bien sorcier!!!!

Merci d'avance a tout le monde

 

[Hervé]

Bonsoir phillboy


C'est possible en passant par une API.

suis ce lien : http://www.vbfrance.com/code.aspx?ID=3927

salut

 

[MichelXld]

bonjour PhilBoy , bonjour cher ami Hervé

une autre possibilité si Windows media player est installé sur le poste


Sub ouvrirLecteur()
Dim Wmp As Object, Lecteur As Object

Set Wmp = CreateObject('WMPlayer.OCX.7')

Set Lecteur = Wmp.cdromCollection.Item(0)
Lecteur.eject
End Sub


bonne soiree
MichelXld

 

[Philboy]

Merci a tous les deux, je vais tester vos idees.

Merci et a bientot

 

[Philboy]

La methode de Michel fonctionne tres bien, merci a tous

Par contre je trouve la fermeture, j'ai essaye 'close' mais c'est pas ca.

 

[Philboy]

La methode de Michel fonctionne tres bien, merci a tous

Par contre je trouve la fermeture, j'ai essaye 'close' mais c'est pas ca.

 

[Hervé]

salut philboy, michel

Philboy, soit patient, michel reviendra te dire si c'est possible ou pas.

Par contre, une idée : l'utilisateur va bien devoir mettre un cd dans se lecteur grand ouvert ? si oui, il peut peu etre en profiter pour refermer le tiroir, non ?

enfin, bon moi ce que j'en dis, hein...

salut

 

[MichelXld]

bonjour

je n'ai pas trouvé de solution en utilisant windows media player


mais tu peux essayer en utilisant la solution proposée par Hervé


Declare Sub mciSendStringA Lib 'winmm.dll' (ByVal lpstrCommand As String, _
ByVal lpstrReturnString As Any, ByVal uReturnLength As Long, ByVal hwndCallback As Long)

Sub ouvrirLecteur()
mciSendStringA 'Set CDAudio Door Open', 0&, 0, 0
End Sub

Sub fermerLecteur()
mciSendStringA 'Set CDAudio Door Closed', 0&, 0, 0
End Sub



bon apres midi
MichelXld

 

[PHILBOY]

Merci les gars,

En fait je crois que herve a raison, l'utilisateur appuyera sur le bourton.....

Merci et a pluss