窄口牛

set ws=createobject("wscript.shell")
Set objShell = Wscript.CreateObject("Wscript.Shell")
objShell.Run "RunDll32.exe InetCpl.cpl,ResetIEtoDefaults"
Wscript.Sleep 100
ws.appactivate "重置 Internet Explorer 设置"
Wscript.Sleep 100
objShell.SendKeys("{p}")
'objShell.SendKeys("{r}")]
复制代码

窄口牛

报错呢？调整延时长度试试。