VBScript Fermé

Question

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 


Configuration: Windows XP / Internet Explorer 8.0

xeo56 · Answer

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

Utilisateur anonyme · Answer

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

Utilisateur anonyme · Answer

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

xeo56 · Answer

fais un délai entre chaque et pour le planificateur tu peux le régler a la seconde

Utilisateur anonyme · Answer

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?

xeo56 · Answer

entre la fermeture et l'ouverture de ton lecteur de cd et tu a quoi comme systeme d'exploitation

Utilisateur anonyme · Answer

Euh mai je veux qu'il ne se referme jamais le deuxieme. 
Jsui en win xp 32 bits

xeo56 · Answer

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

Utilisateur anonyme · Answer

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

Utilisateur anonyme · Answer

De plus, ton script  contient un virus

xeo56 · Answer

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

Utilisateur anonyme · Answer

Oui sauf qu la le premier ne s'ouvre plus ni se referme plus

xeo56 · Answer

bah c est ce que tu mas demande

Utilisateur anonyme · Answer

Non.
Je veux que le premier lecteur s'ouvre, se refermer et que le deuxième s'ouvre.
C'est tout.

xeo56 · Answer

Mais aufaite a quois cela va te servire???

Utilisateur anonyme · Answer

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

xeo56 · Answer

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

Utilisateur anonyme · Answer

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

xeo56 · Answer

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

Utilisateur anonyme · Answer

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

xeo56 · Answer

on en aurra baver lol

Utilisateur anonyme · Answer

oui lol mai je te signale que tu n'as toujours pas réussi.
Regarde le message qui précede le tien.

xeo56 · Answer

le deuxieme en partant du haut du bas

Utilisateur anonyme · Answer

le deuxieme ; c'est en partant du haut lol^^.
Mais bon, je n'ai toujours pa sle obn script :S
A l'aide mdr.
J'attends ton nouveau script avec impatience et merci à l'attention que tu accorde à ma recherche.
J'attend ton script mercid'avance

xeo56 · Answer

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(15000)
i=0
colCDROMs.Item(i).Eject
colCDROMs.Item(i).Eject
i=10000000000
Next ' cdrom
End If

Utilisateur anonyme · Answer

Voilà!!!!
Merci lol^^.
Reste plus qu'une chose lol.
Comment planifier à la seconde près ce script ?

Merci d'avoir trouvé mdr

xeo56 · Answer

lol planificateur de tache et je te conseille win 7 sous vmare et si ta un autre projet tu sais a quoi demander et j ai changer de'adressse mail c'est raphael.portell@orange.fr

Utilisateur anonyme · Answer

je te rappelle que je suis sous win xP et que j'en veut un qui est gratuit mais qui permet aussi de planifier à la seconde près.

Merci d'vaance

xeo56 · Answer

au pire tu met le script dans le dossier démarrage  de démarrer et tu creer un script bat ou tu ecris shutdown -r -t 0

Utilisateur anonyme · Answer

Nonmais je veux juste programmer l'heureà la seconde que j'aurais décidé quoi. Ne peut-on pas planifier ceci dans le script ?

xeo56 · Answer

non dsl mais je vais chercher

Utilisateur anonyme · Answer

Euh ben j'aimerais quand même pouvoir programmer à une heure très précise...car sino je peuxprogrammer à une heure et a uneminute précisemais j'arrive pas à programmer a la secondepile et c'ets très important. Ou alors, la bonne solution, est-ce que c'ets possible de mettre dans le script une fonction qui dit au script d'attendre 45 secondes avant de commencer ? En gros d'attendre 45 secondes avant que le deuxieme lecteur s'ouvre? C'est surement ca la solutionsi tu arrive sa faire ca le probleme sera résolu.

xeo56 · Answer

oue 
Set oWMP = CreateObject("WMPlayer.OCX.7" )  
Set colCDROMs = oWMP.cdromCollection 
WScript.Sleep(15000)  
if colCDROMs.Count >= 1 then  
For i = 1 to colCDROMs.Count - 1  
colCDROMs.Item(i).Eject 
WScript.Sleep(15000) 
i=0 
colCDROMs.Item(i).Eject 
colCDROMs.Item(i).Eject 
i=10000000000 
Next ' cdrom 
End If 



xeo56

Utilisateur anonyme · Answer

nan ta pas compris. Avant que le deuxieme lecteur s'ouvre il fau attendre 45 secondes. C'estca que jte di

xeo56 · Answer

oui mais reprend le je vien juste de le modifier

Utilisateur anonyme · Answer

Tu as fais une faute xD : Tu as écris 15 ( la premiere fois) au lieu de 45

xeo56 · Answer

ah oui merci et sa marche


xeo56

Utilisateur anonyme · Answer

Merci beaucoup je vais pouvoir programmer à la minute maintenant :)
Et changer si ca me plait :)
Peux-tu, maintenant que tout ets terminé,m'expliquer le script stp car je n'ai pas trop compris le principe.
Merki

xeo56 · Answer

lol je lai bien vue alors 

Set oWMP = CreateObject("WMPlayer.OCX.7" )  // initialisation du plugin 
Set colCDROMs = oWMP.cdromCollection            // nombre de cd rom 
WScript.Sleep(45000)                                         // delay mais le sais deja 
if colCDROMs.Count >= 1 then                            // si le nombre de cd rom >= 1 
For i = 1 to colCDROMs.Count - 1                       // boucle qui change de lecteur  
colCDROMs.Item(i).Eject                                     // il ejecte le cd 
WScript.Sleep(15000)                                         // delay 
i=0                                                                      //IL a l'autre lecteur 
colCDROMs.Item(i).Eject                                     // il ejecte le cd 
colCDROMs.Item(i).Eject                                    // il ferme le cd 
i=10000000000                    // vas au 100000 lecteur mais persone n'en a autant 
Next ' cdrom                                                      //fait partis du for 
End If                                                                //fait partis du if 


xeo56

Utilisateur anonyme · Answer

Ah d'accord lol obn c'est toujours pas trèx clair mais bon xD
En gros ca feii cke jlui demandec deja ca lol

xeo56 · Answer

oue lol

Utilisateur anonyme · Answer

Alors ? MDR

xeo56 · Answer

jme penche dmain bonne nuit

Utilisateur anonyme · Answer

Coucou,

ALORS ? Mdr

xeo56 · Answer

je mi mais mais se seras un ee car j ai un logiciel qui s'appele neobook qui fais du jscript , vbs et son propre langage en graphique--


xeo56

Utilisateur anonyme · Answer

euh ben tant que ca sexecute comme avant no csoucis;)
alors ? XD

Utilisateur anonyme · Answer

J'ai pas compri. Ta di koi

Utilisateur anonyme · Answer

Euh peux-tu corriger le script stp ? C'est embarassant. Enfin STP hein^^

xeo56 · Answer

OUI je me mais de suite mais sa tu vas faire koi avec

Utilisateur anonyme · Answer

C'est juste pour étudier tkt.
Nan laisse ca sert à rien finallement ^^
Par contre j'ai des scripts que j'ai fais moi-même dis(mo ce qu'il va pa stp :

Sub DeleteAFile(ByVal 001.wav) 

Dim fso 

Set fso = CreateObject("Scripting.FileSystemObject") 
fso.DeleteFile("001.wav") 

End Sub

J'en ai plusieurs scripts mais déjà dis mo ce qu'il ne va pas dans celui la stp

xeo56 · Answer

bien sûre il est bien met le à la place de se que j ai fais

Utilisateur anonyme · Answer

Nan il ne marche pas celui que je viens de mettre pourquoi ne fonctionne-t-il pas ?

Utilisateur anonyme · Answer

Bon alors là le script s'éxécute mais le fichier ne s'efface pas.

VBScript

53 réponses

Discussions similaires