Set Shell = WScript.CreateObject("WScript.Shell")
Shell.Popup "ATTENTION, ÇA VA COMMENCER", 2


Shell.Run "http://www.gratilog.net"
Shell.Popup "Ouverture de MSPAINT dans 10 secondes",1
Shell.Popup "Ouverture de MSPAINT dans 9 secondes",1
Shell.Popup "Ouverture de MSPAINT dans 8 secondes",1
Shell.Popup "Ouverture de MSPAINT dans 7 secondes",1
Shell.Popup "Ouverture de MSPAINT dans 6 secondes",1
Shell.Popup "Ouverture de MSPAINT dans 5 secondes",1
Shell.Popup "Ouverture de MSPAINT dans 4 secondes",1
Shell.Popup "Ouverture de MSPAINT dans 3 secondes",1
Shell.Popup "Ouverture de MSPAINT dans 2 secondes",1
Shell.Popup "Ouverture de MSPAINT dans 1 secondes",1

Shell.Run "MSPaint"
WScript.Sleep 2000
Shell.Run "calc"
WScript.Sleep 2000
Shell.Run "notepad"
WScript.Sleep 111
Shell.SendKeys "C'EST PRESQUE FINI !"

WScript.Sleep 2000
Shell.Run "http://www.dhteumeuleu.com/runscript.php?scr=Kaleid.html"
WScript.Sleep 3333
Shell.Popup "C'EST FINI !", 1
Shell.Popup "C'EST FINI !", 1
Shell.Popup "C'EST FINI !", 1

Wscript.quit