VBScript, Lancer le script après 5sec.

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

Code:

---

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 ?

Citation:

---

Envoyé par Astrone

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

Code:

---

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:

---

1 2 3

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

---

Citation:

---

Envoyé par kevin254kl

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'

Une autre idée ?

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

Citation:

---

Envoyé par Astrone

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 :resolu:
Voici une autre façon ;) :king:

Code:

---

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 '***************************************************************

---