[网络连接] 批处理用IE隐藏打开指定网页并不断刷新网页

On Error Resume Next

Set IE = CreateObject("InternetExplorer.Application")
IE.Navigate "http://bbs.bathome.net"
IE.Visible = 1
'''''''Visible数值0隐藏，1新窗口'''''''

Wscript.Sleep 5000
Set O = IE.Document
Do While True
    Wscript.Sleep 20000
    O.Location.Reload(True)
    If Err <> 0 Then
        Wscript.Quit
    End If
Loop
复制代码