Étape 3: L’Auto Typer
Set shellobj = CreateObject("WScript.Shell")
shellobj.Run « cmd »
faire
shellobj.SendKeys « Y »
WScript.Sleep 200
Shellobj.SendKeys « o »
WScript.Sleep 200
boucle
Set shellobj = CreateObject("WScript.Shell")
shellobj.Run « cmd »
faire
shellobj.SendKeys « Y »
WScript.Sleep 200
Shellobj.SendKeys « o »
WScript.Sleep 200
boucle