OUVRIR ET REFERMER LECTEUR DE CD-ROM

Commentaire de vjeux le 06/06/2003 17:23:04

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 ?

Merci !

Commentaire de agentTMORT le 07/06/2003 14:10:09

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

Commentaire de agentTMORT le 07/06/2003 18:52:09

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 :-(

Commentaire de Sibelle07 le 02/10/2003 17:15:36

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+

Commentaire de Cafeine911 le 12/04/2004 21:24:06

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.

@+