Discussion :

[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?

[SfJ5Rpw8]

pourquoi un vbs externe ?

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

[fabrice.s]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[l_autodidacte]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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"

[hackoofr]

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?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[omen999]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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