定时修改IE首页的VBS如何优化

330428725

优化下，这个代码，
On Error Resume Next

Set IE = CreateObject("InternetExplorer.Application")
IE.Navigate "http://www.happy-ing.cn"
IE.Visible = 0
'''''''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
让他增加点功能
：5分钟修改1次IE首页，该为：http://www.happy-ing.cn
让这个代码循环执行
优化下，
谢谢
随便把每句代码解释下

[ 本帖最后由 330428725 于 2008-4-21 20:32 编辑 ]

fastslz

属于重复发贴
http://bbs.bathome.net/viewthread.php?tid=914&extra=page%3D2
代码中Loop就是循环