Set fso = CreateObject("Scripting.FileSystemObject")

Set WshShell=CreateObject("WScript.Shell") WshShell.run "程序路径" WScript.Sleep 1500 WshShell.SendKeys "{DOWN}" WScript.Sleep 1000 WshShell.SendKeys "{DOWN}" WScript.Sleep 1000 WshShell.SendKeys "{DOWN}" WScript.Sleep 1000 WshShell.SendKeys "{ENTER}" WScript.Sleep 1000 WshShell.SendKeys "账号" WScript.Sleep 1000 WshShell.SendKeys "{TAB}" WScript.Sleep 1000 WshShell.SendKeys "密码" WshShell.SendKeys "{ENTER}" Wscript.Quit