VBScript

Fermé
Utilisateur anonyme - Modifié par BmV le 22/12/2011 à 17:21
xeo56 Messages postés 92 Date d'inscription mardi 23 novembre 2010 Statut Membre Dernière intervention 15 janvier 2014 - 19 août 2012 à 17:01
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 mardi 23 novembre 2010 Statut Membre Dernière intervention 15 janvier 2014 24
21 déc. 2011 à 22:17
on en aurra baver lol
0
Utilisateur anonyme
21 déc. 2011 à 22:18
oui lol mai je te signale que tu n'as toujours pas réussi.
Regarde le message qui précede le tien.
0
xeo56 Messages postés 92 Date d'inscription mardi 23 novembre 2010 Statut Membre Dernière intervention 15 janvier 2014 24
21 déc. 2011 à 22:21
le deuxieme en partant du haut du bas
0
Utilisateur anonyme
21 déc. 2011 à 22:24
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
0

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

Posez votre question
xeo56 Messages postés 92 Date d'inscription mardi 23 novembre 2010 Statut Membre Dernière intervention 15 janvier 2014 24
21 déc. 2011 à 22:35
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
0
Utilisateur anonyme
21 déc. 2011 à 22:36
Voilà!!!!
Merci lol^^.
Reste plus qu'une chose lol.
Comment planifier à la seconde près ce script ?

Merci d'avoir trouvé mdr
0
xeo56 Messages postés 92 Date d'inscription mardi 23 novembre 2010 Statut Membre Dernière intervention 15 janvier 2014 24
21 déc. 2011 à 22:40
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
0
Utilisateur anonyme
21 déc. 2011 à 22:44
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
0
xeo56 Messages postés 92 Date d'inscription mardi 23 novembre 2010 Statut Membre Dernière intervention 15 janvier 2014 24
21 déc. 2011 à 23:09
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
0
Utilisateur anonyme
21 déc. 2011 à 23:11
Nonmais je veux juste programmer l'heureà la seconde que j'aurais décidé quoi. Ne peut-on pas planifier ceci dans le script ?
0
xeo56 Messages postés 92 Date d'inscription mardi 23 novembre 2010 Statut Membre Dernière intervention 15 janvier 2014 24
21 déc. 2011 à 23:12
non dsl mais je vais chercher
0
Utilisateur anonyme
21 déc. 2011 à 23:15
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.
0
xeo56 Messages postés 92 Date d'inscription mardi 23 novembre 2010 Statut Membre Dernière intervention 15 janvier 2014 24
Modifié par xeo56 le 21/12/2011 à 23:27
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
0
Utilisateur anonyme
21 déc. 2011 à 23:28
nan ta pas compris. Avant que le deuxieme lecteur s'ouvre il fau attendre 45 secondes. C'estca que jte di
0
xeo56 Messages postés 92 Date d'inscription mardi 23 novembre 2010 Statut Membre Dernière intervention 15 janvier 2014 24
21 déc. 2011 à 23:30
oui mais reprend le je vien juste de le modifier
0
Utilisateur anonyme
21 déc. 2011 à 23:31
Tu as fais une faute xD : Tu as écris 15 ( la premiere fois) au lieu de 45
0
xeo56 Messages postés 92 Date d'inscription mardi 23 novembre 2010 Statut Membre Dernière intervention 15 janvier 2014 24
Modifié par xeo56 le 21/12/2011 à 23:33
ah oui merci et sa marche


xeo56
0
Utilisateur anonyme
21 déc. 2011 à 23:34
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
0
xeo56 Messages postés 92 Date d'inscription mardi 23 novembre 2010 Statut Membre Dernière intervention 15 janvier 2014 24
Modifié par xeo56 le 21/12/2011 à 23:44
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
0
xeo56 Messages postés 92 Date d'inscription mardi 23 novembre 2010 Statut Membre Dernière intervention 15 janvier 2014 24
21 déc. 2011 à 23:47
et si ta un projet demande moi sa me feras passer le temp lol
0
Utilisateur anonyme
21 déc. 2011 à 23:52
lol t super sympa toi lol. J'en ai un autre alors mdrrrrrrrr.

Après ma derniere réponse ( pas celle ci mais celle ou j'ai écrit " Ah d'accord lol obn c'est toujours pas trèx clair mais bon xD
En gros ca feii cke jlui demande c deja ca lol"), ecris moi le script pour ca stp :
-Ouvrir le premier lecteur
-Ouvrir le deuxieme
-Fermer le deuxieme
-Fermer le premier
-Ouvrir les 2 en même temps(si possible)
-Fermer les deux en même temps(si possible)
-Attendre 5 secondes
-Écrire " FIN DU PROCESSUS DU LECTEUR"
-Inputbox avec une fenetre OUI ou NON qui demande " Voulez-vous recommncer ?":
. Si oui, recommencer le processus,
. Si non; passez à l'épreuve suivante
-Rechercher le fichier appellé 001.wav ( avec fileexists)
-Le supprimmer
-Afficher un message qui dit que 001.wav est supprimé.

Voilà merci.
0
Utilisateur anonyme
21 déc. 2011 à 23:45
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
0