Paso 3: El Auto Typer
Set shellobj = CreateObject("WScript.Shell")
shellobj.Run "cmd"
hacer
shellobj.SendKeys "Y"
Wscript.Sleep 200
Shellobj.SendKeys "o"
Wscript.Sleep 200
lazo
Set shellobj = CreateObject("WScript.Shell")
shellobj.Run "cmd"
hacer
shellobj.SendKeys "Y"
Wscript.Sleep 200
Shellobj.SendKeys "o"
Wscript.Sleep 200
lazo