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}"
欢迎光临 批处理之家 (http://bathome.net./) | Powered by Discuz! 7.2 |