[网络连接] 批处理打开ie登陆网站

set sh=WScript.CreateObject("WScript.Shell")
set objArgs=WScript.Arguments
sh.Run "iexplore.exe http://192.168.144.1"
WScript.Sleep 5000 '延时5秒
xSend "admin" '用户名
WScript.Sleep 1000
xSend "{tab}"
xSend "showgood" '密码
WScript.Sleep 1000
xSend "{enter}"

Function xSend(string)								'激活窗口发送函数
	sh.AppActivate winTitle							'激活窗口
	sh.SendKeys string								'发送内容
End Function
复制代码