Set WshShell = WScript.CreateObject("WScript.Shell")
WScript.Sleep 1500
WshShell.AppActivate("Conectar")
WScript.Sleep 500
WshShell.SendKeys "%{SPACE}"
WScript.Sleep 500
WshShell.SendKeys "X"
WScript.Sleep 500
Wscript.Quit