Dim WshShell

Set WshShell=WScript.CreateObject("WScript.Shell")

WshShell.Run "abc.exe"

WScript.Sleep 2000
WshShell.AppActivate "登录1"
WshShell.SendKeys "%p"
WScript.Sleep 200
WshShell.SendKeys "s"
WshShell.SendKeys "{TAB}"
WScript.Sleep 200
WshShell.SendKeys "admin"
WScript.Sleep 200
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "admin"
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "192.168.5.200"
WshShell.SendKeys "{ENTER}"
WScript.Sleep 7000
WshShell.SendKeys "%{F4}"