VBScript

Utilisateur anonyme -  
xeo56 Messages postés 92 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

J'aimerai savoir le code en VBScript pour fermer le premier lecteur puis ouvrir le deuxieme , ne pas refermer le deuxieme et ceci a une heure, une minute et une seocbnde précise.

Merci de'avance j'en ai besoin pour dans quelques jours.

Merci d'avance


53 réponses

xeo56 Messages postés 92 Date d'inscription   Statut Membre Dernière intervention   24
 
Tu fait un nouveaux fichier .txt que tu renomme en .vbs tu tape dedans :
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 
colCDROMs.Item(i).Eject 
Next ' cdrom 
End If

enregistre , ensuite tu fait click droit sur poste de travaille -> géré -> Planificateur de tache -> créer un tache , ensuite tu remplis le formulaire et c est bon
0
Utilisateur anonyme
 
Oui mais le problème est qu'avec le planificateur de tâches on ne peut pas planifier la seconde c'est ca qui est chiant
0
Utilisateur anonyme
 
Et au fait le lecteur , avec ton script, referme le 2eme lecteur et il ne faut pas . UIl faut qu'il reste ouvert. Comment faire ?

Merci d'avance
0
xeo56 Messages postés 92 Date d'inscription   Statut Membre Dernière intervention   24
 
fais un délai entre chaque et pour le planificateur tu peux le régler a la seconde
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Utilisateur anonyme
 
Euh planificateur de taches n'est pas dans gérer de poste de travail je ne le trouve pas :S
Et quand tu dis faire un délai : c'est entre quoi et quoi?
0
xeo56 Messages postés 92 Date d'inscription   Statut Membre Dernière intervention   24
 
entre la fermeture et l'ouverture de ton lecteur de cd et tu a quoi comme systeme d'exploitation
0
Utilisateur anonyme
 
Euh mai je veux qu'il ne se referme jamais le deuxieme.
Jsui en win xp 32 bits
0
xeo56 Messages postés 92 Date d'inscription   Statut Membre Dernière intervention   24
 
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

et sinon je suis sous win 7 donc je ne sais pas et il ya lomptemp que je suis pas aller sur xp mais sa doit etre la meme chose
0
Utilisateur anonyme
 
Ici, le lecteur 1 s'ouvre, le deuxieme s'ouvre mais le premier ne se ferme pas. Le premier doit se fermer.

Merci d'avance
0
Utilisateur anonyme
 
De plus, ton script contient un virus
0
xeo56 Messages postés 92 Date d'inscription   Statut Membre Dernière intervention   24
 
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 
i=i+0.5
Next ' cdrom 
End If

voila
0
Utilisateur anonyme
 
Oui sauf qu la le premier ne s'ouvre plus ni se referme plus
0
xeo56 Messages postés 92 Date d'inscription   Statut Membre Dernière intervention   24
 
bah c est ce que tu mas demande
0
Utilisateur anonyme
 
Non.
Je veux que le premier lecteur s'ouvre, se refermer et que le deuxième s'ouvre.
C'est tout.
0
xeo56 Messages postés 92 Date d'inscription   Statut Membre Dernière intervention   24
 
Mais aufaite a quois cela va te servire???
0
Utilisateur anonyme
 
Euh , le lecteur tirra quelque chose de pas lour c'est juste un fil qui tirera ( en laine).
peux-tu me fairele script correspondant à ce que je demande vraiment stp (Je veux que le premier lecteur s'ouvre, se refermer et que le deuxième s'ouvre.)
Je te remercie enormement
0
xeo56 Messages postés 92 Date d'inscription   Statut Membre Dernière intervention   24
 
voila
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
colCDROMs.Item(i).Eject
i=0
colCDROMs.Item(i).Eject
i=10000000000
Next ' cdrom
End If
0
Utilisateur anonyme
 
Ah tu y est presque mdr.
La le deuxieme s'ouvre et se ferme et le premier s'ouvre et ne se ferme pa. Mais il faudrait juste inverser le sens des deux lecteurs et inverser le sens.
Que ce soit le premier qui commence par s'ouvrir et se refermer et que le deuxieme s'ouvre et soit ouvert.
Merci det on prochain script, o, y est presque,

Je te remercie encore
0
xeo56 Messages postés 92 Date d'inscription   Statut Membre Dernière intervention   24
 
a ok alors
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
colCDROMs.Item(i).Eject
i=1
colCDROMs.Item(i).Eject
i=10000000000
Next ' cdrom
End If
0
Utilisateur anonyme
 
Ah, et je me suis trompé , donc je récapitule en mettant préciemenet ce que je veux :

Le deuxième lecteur s'ouvre et reste ouvert, 15 secondes après, le premier lecteur s'ouvre et se referme.

Merci d'avance
0