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 à 23:51
oue lol
0
Utilisateur anonyme
21 déc. 2011 à 23:56
Alors ? MDR
0
xeo56 Messages postés 92 Date d'inscription mardi 23 novembre 2010 Statut Membre Dernière intervention 15 janvier 2014 24
22 déc. 2011 à 01:29
jme penche dmain bonne nuit
0
Utilisateur anonyme
22 déc. 2011 à 11:14
Coucou,

ALORS ? Mdr
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
22 déc. 2011 à 14:51
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
0
Utilisateur anonyme
22 déc. 2011 à 17:24
euh ben tant que ca sexecute comme avant no csoucis;)
alors ? XD
0
xeo56 Messages postés 92 Date d'inscription mardi 23 novembre 2010 Statut Membre Dernière intervention 15 janvier 2014 24
22 déc. 2011 à 19:27
Va sur raphy2010.free.fr
0
xeo56 Messages postés 92 Date d'inscription mardi 23 novembre 2010 Statut Membre Dernière intervention 15 janvier 2014 24
22 déc. 2011 à 19:28
ilya le logiciel
0
Utilisateur anonyme
22 déc. 2011 à 19:34
Moi ce que je veux c'est le script. Et fais le script pareil que ceux que tu ma deja faits stp c'est important.

merci e'avance, j'aurais besoin de ce script pour cesoir :S
0
xeo56 Messages postés 92 Date d'inscription mardi 23 novembre 2010 Statut Membre Dernière intervention 15 janvier 2014 24
22 déc. 2011 à 19:57
Pour se soir imposible je suis pas chez moi mais mais sir portable ke vais essayer mais se que j ai faisait marche
0
Utilisateur anonyme
22 déc. 2011 à 20:06
J'ai pas compri. Ta di koi
0
xeo56 Messages postés 92 Date d'inscription mardi 23 novembre 2010 Statut Membre Dernière intervention 15 janvier 2014 24
22 déc. 2011 à 21:37
Je suis pas chez moi mais je rentre et donc peut être que tu auras ton script
0
Utilisateur anonyme
22 déc. 2011 à 21:40
J'espere !!!xD
0
xeo56 Messages postés 92 Date d'inscription mardi 23 novembre 2010 Statut Membre Dernière intervention 15 janvier 2014 24
23 déc. 2011 à 10:42
Tu auras ton script ce midi
0
Utilisateur anonyme
23 déc. 2011 à 12:16
Alors ? MDRRRRR
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 23/12/2011 à 13:04
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=0
colCDROMs.Item(i).Eject
i=1
colCDROMs.Item(i).Eject
i=0
colCDROMs.Item(i).Eject
i=1
Vbscript.delay (5000)
AlertBox "Fin du processus du lecteur"
Set Choix=MsgBox("Voulez-vous recommencer",vbYesNo+vbQuestion,"Ejecte Cd")
if Choix>=oui then
else
Set fichier= FileExists (001)
If Fichier >= True then
DeleteFile(001)
Msgbox "Fichier trouver et supprimer"
else
msgbox "Fichier non trouver"
End If
i=1000000000000000
End If
Next ' cdrom
End If
0
Utilisateur anonyme
24 déc. 2011 à 12:57
Euh peux-tu corriger le script stp ? C'est embarassant. Enfin STP hein^^
0
xeo56 Messages postés 92 Date d'inscription mardi 23 novembre 2010 Statut Membre Dernière intervention 15 janvier 2014 24
24 déc. 2011 à 13:00
OUI je me mais de suite mais sa tu vas faire koi avec
0
Utilisateur anonyme
24 déc. 2011 à 13:03
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
0
xeo56 Messages postés 92 Date d'inscription mardi 23 novembre 2010 Statut Membre Dernière intervention 15 janvier 2014 24
24 déc. 2011 à 13:08
bien sûre il est bien met le à la place de se que j ai fais
0
Utilisateur anonyme
24 déc. 2011 à 13:10
Nan il ne marche pas celui que je viens de mettre pourquoi ne fonctionne-t-il pas ?
0
xeo56 Messages postés 92 Date d'inscription mardi 23 novembre 2010 Statut Membre Dernière intervention 15 janvier 2014 24
24 déc. 2011 à 13:22
Enlevé le byval
0
xeo56 Messages postés 92 Date d'inscription mardi 23 novembre 2010 Statut Membre Dernière intervention 15 janvier 2014 24
24 déc. 2011 à 13:34
Enleve le 001.wa au début
0
Utilisateur anonyme
24 déc. 2011 à 13:25
Bon alors là le script s'éxécute mais le fichier ne s'efface pas.
0
xeo56 Messages postés 92 Date d'inscription mardi 23 novembre 2010 Statut Membre Dernière intervention 15 janvier 2014 24
24 déc. 2011 à 13:29
Enlevé le À au tout debut à deletez
0
Utilisateur anonyme
24 déc. 2011 à 13:31
camarche tj pas
0
xeo56 Messages postés 92 Date d'inscription mardi 23 novembre 2010 Statut Membre Dernière intervention 15 janvier 2014 24
24 déc. 2011 à 13:35
Enleve le 001.wa au début s
0
Utilisateur anonyme
24 déc. 2011 à 14:08
pareil :s
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 24/12/2011 à 14:40
Enleve dim fso
0