Module temporisation N Secondes

Bonsoir @ tous.

Je cherche une solution pour temporiser un bout de code en faisant appel à un script Vbs externe.

Le but est simple de mon code initial faire appel à un module externe tempo.vbs qui s'ouvre attend n secondes et se ferme.

Comme j'ai plus l'habitude de faire du batch que du Vbs, je rame un peu.

Avez vous une idée?

pourquoi un vbs externe ?

essai popup ... :faq:
Faire disparaitre une MsgBox au bout d'un certain temps ?

Bonsoir,

Merci de la rapidité à répondre.

En cherchant un peu et en testant tout et n importe quoi, j'ai fini par trouver une solution.

Pourquoi un module Externe en Vbs?
Car mon code de départ est un script batch et que je n'ai pas trouvé de solution fonctionnant à la fois sur Windows XP et Seven 64 Bits ( Choice / Sleep / Wait / ... )

Mon boute de code Vbs me semble pas très convaincant, mais à au moins le mérite de fonctionner.

Code:

---

1 2 3 4 5 6 7

tps_debut=Timer tps_fin=Timer While (tps_debut + n secondes >tps_fin) tps_fin=Timer Wend

---

Dans la pratique c'est même tps_debut + n-1 secondes si l'on veut que le temps soit juste, mais comme dans mon cas l’exactitude du temps importe peu.

Toutefois s'il existe une façon plus propre de coder un timer en vbs permettant d'attendre x secondes, je suis preneur.

Merci.

Code:

---

1 2 3 4 5 6 7 8

Function Wait(lngSeconds) start=timer do i=timer loop until i-start>=lngSeconds Wait = Cstr(i-start) End Function msgbox "Durée écoulée : " & Wait(10) & " secondes",0,"TIMER"

---

Citation:

---

Envoyé par fabrice.s

Bonsoir @ tous.
Je cherche une solution pour temporiser un bout de code en faisant appel à un script Vbs externe.
Le but est simple de mon code initial faire appel à un module externe tempo.vbs qui s'ouvre attend n secondes et se ferme.
Comme j'ai plus l'habitude de faire du batch que du Vbs, je rame un peu.
Avez vous une idée?

---

:salut:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Set objWSHShell = CreateObject("WScript.Shell") Sub Time2Sleep(intSeconds) Dim strCommand strCommand = "%COMSPEC% /c ping -n " & intSeconds & " 127.0.0.1>nul" objWSHShell.Run strCommand, 0, True End Sub Time2Sleep 10 objWSHShell.run "calc.exe" Time2Sleep 10 objWSHShell.run "iexplore.exe" Time2Sleep 10 MsgBox "Je quitte Bye Bye !!!",64,"Time2Sleep" Wscript.Quit

---

bonjour,
comme c'est un vbs externe, donc sous wsh...

Code:

---

WScript.Sleep n

---

où n est une valeur numérique en millisecondes
ça a en plus l'avantage de ne pas mettre à genoux le cpu pendant la boucle ;)