Discussion :

[Astrone]

Bonjour, je débute en programmation VBScript et voici le script que j'ai crée :

Code :

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

1
2
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run """C:\Program Files\CCleaner\ccleaner.exe"""

C'est un script très simple qui lance le logiciel CCleaner dès que je clique dessus, mais j'aimerais trouver une ligne de code à mettre juste avant ce script pour faire en sort qu'il ne lance CCleaner qu'après 5 secondes.

Vous avez des idées ?

[kevin254kl]

Bonjour, je débute en programmation VBScript et voici le script que j'ai crée :

Code :

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

1
2
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run """C:\Program Files\CCleaner\ccleaner.exe"""

C'est un script très simple qui lance le logiciel CCleaner dès que je clique dessus, mais j'aimerais trouver une ligne de code à mettre juste avant ce script pour faire en sort qu'il ne lance CCleaner qu'après 5 secondes.

Vous avez des idées ?

Bonjour peut-être ca:

Code :

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

1
2
3
 Thread.Sleep(5000)
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run """C:\Program Files\CCleaner\ccleaner.exe"""

[Astrone]

Bonjour peut-être ca:
Thread.Sleep(5000)
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run """C:\Program Files\CCleaner\ccleaner.exe"""

Non sa ne fonctionne pas, quand je lance le .vbs il me dit erreur : Objet requis : 'Thread'

[Astrone]

Une autre idée ?

[Astrone]

C'est bon j'ai trouver ! WScript.Sleep 5000 juste avant, merci quand même de votre aide.

[hackoofr]

C'est bon j'ai trouver ! WScript.Sleep 5000 juste avant, merci quand même de votre aide.

N'oubliez pas de passer la discussion en résolu en cliquant sur le bouton en bas sur
Voici une autre façon

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Option Explicit
Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
'on fait une pause de 5 secondes
Pause 5
WshShell.Run DblQuote("C:\Program Files\CCleaner\ccleaner.exe")
'***************************************************************
Sub Pause(Sec)
    Wscript.Sleep(Sec*1000)
End Sub  
'***************************************************************
Function DblQuote(Str)
    DblQuote = Chr(34) & Str & Chr(34)
End Function
'***************************************************************