Ouverture et fermeture lecteur cd
Résolu
Utilisateur anonyme
-
Utilisateur anonyme -
Utilisateur anonyme -
Bonjour,
J'ai ce code me permettant d'ouvrir et de fermer consécutivement les 2lecteurs :
Set owmp = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = owmp.cdromCollection
For d = 0 To colCDROMs.Count - 1
colCDROMs.Item(d).Eject
Next
For d = 0 to colCDROMs.Count -1
colCDROMs.Item(d).Eject
Next
For d = 0 To colCDROMs.Count -1
colCDROMs.Item(i).Eject
Next
Ceci permet d'ouvrir le 1er lecteur, d'ouvrir le second, fermer le seocnd et enfin fermer le 1er.
Seulement, j'aimerais MOI faire en sorte que le 1er lecteur, qu'ils reste ouvert pendant x secondes ( prenons pour ex 3 sec), puis, qu'il se referme. Ensuite le second lecteur s'ouvre, se ferme, attend x secondes, s'ouvre et se ferme.
Il faudrait qu'en fait pour le seconde lecteur ca fasse le code ci-dessous, mais poour le deuxieme :
Set owmp = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = owmp.cdromCollection
For d = 0 To colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
For d = 0 to colCDROMs.Count -1
colCDROMs.Item(i).Eject
Next
Bref, ceci est pour apres-demain donc il me faut le code ce soir svp je vous remercie c'est très urgent.
Cordialement.
J'ai ce code me permettant d'ouvrir et de fermer consécutivement les 2lecteurs :
Set owmp = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = owmp.cdromCollection
For d = 0 To colCDROMs.Count - 1
colCDROMs.Item(d).Eject
Next
For d = 0 to colCDROMs.Count -1
colCDROMs.Item(d).Eject
Next
For d = 0 To colCDROMs.Count -1
colCDROMs.Item(i).Eject
Next
Ceci permet d'ouvrir le 1er lecteur, d'ouvrir le second, fermer le seocnd et enfin fermer le 1er.
Seulement, j'aimerais MOI faire en sorte que le 1er lecteur, qu'ils reste ouvert pendant x secondes ( prenons pour ex 3 sec), puis, qu'il se referme. Ensuite le second lecteur s'ouvre, se ferme, attend x secondes, s'ouvre et se ferme.
Il faudrait qu'en fait pour le seconde lecteur ca fasse le code ci-dessous, mais poour le deuxieme :
Set owmp = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = owmp.cdromCollection
For d = 0 To colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
For d = 0 to colCDROMs.Count -1
colCDROMs.Item(i).Eject
Next
Bref, ceci est pour apres-demain donc il me faut le code ce soir svp je vous remercie c'est très urgent.
Cordialement.
A voir également:
- Ouverture et fermeture lecteur cd
- Cd burner - Télécharger - Gravure
- Lecteur windows media - Télécharger - Lecture
- Hiren's boot cd - Télécharger - Divers Utilitaires
- Sytadin fermeture - Télécharger - Transports & Cartes
- Lecteur pptx - Télécharger - Présentation
4 réponses
Hello,
utilises la fonction sleep. Elle prend un nombre en paramètre qui est le temps d'attente en millièmes de seconde.
utilises la fonction sleep. Elle prend un nombre en paramètre qui est le temps d'attente en millièmes de seconde.
Bonjour,
Comme ton code est là, ça fonctionne ? (J'en doute) . Je n'ai pas trouvé la référence à ajouter, c'est la quel ?
Sinon pour Sleep c'est une API.
A mettre dans la partie déclaration de ta form.
pour s'en servir...
A+
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
NOTE : Je ne répond pas aux MP pour les questions techniques.
Comme ton code est là, ça fonctionne ? (J'en doute) . Je n'ai pas trouvé la référence à ajouter, c'est la quel ?
Sinon pour Sleep c'est une API.
A mettre dans la partie déclaration de ta form.
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
pour s'en servir...
Sleep 5000 ' pour 5 secondes
A+
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
NOTE : Je ne répond pas aux MP pour les questions techniques.
Euh oui mon script fonctionne.. Mais je veux en fait, que cela respecte le plan que j'ai dit... J'aimerais savoir ce que serait le code entier du coup pour que ça fonctionne svp parce-que c'est pour demain du coup, donc que je comprenne ou pas, tant que ça fonctionne, c'est bon.
Bon alors c'est bon j'ai trouvé enfin. J'ai juste inversé l'ordre des lecteurs, c'est à dire que c'est le 2e qui s'ouvre en premier et c'est mieux.
Voilà ce que je voulais^^ :
WScript.Sleep(3700)
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
For i = 1 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
WScript.Sleep(1000)
colCDROMs.Item(i).Eject
i=0
WScript.Sleep(0500)
colCDROMs.Item(i).Eject
colCDROMs.Item(i).Eject
colCDROMs.Item(i).Eject
colCDROMs.Item(i).Eject
i=10000000000
Next ' cdrom
End If
Voilà ce que je voulais^^ :
WScript.Sleep(3700)
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
For i = 1 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
WScript.Sleep(1000)
colCDROMs.Item(i).Eject
i=0
WScript.Sleep(0500)
colCDROMs.Item(i).Eject
colCDROMs.Item(i).Eject
colCDROMs.Item(i).Eject
colCDROMs.Item(i).Eject
i=10000000000
Next ' cdrom
End If