在同一选项卡和窗口中运行脚本

Question

如何在一个窗口和同一个标签上反复运行此脚本（例如10次）？

list = Array("example.com")
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True


For Each url In list
  ie.Navigate url
  While ie.ReadyState <> 4
  Wend
  wscript.sleep 100000  

Next 

Answer 1

Const RepeatCount = 10

Dim i As Integer

List = Array("example.com")
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True

For i = 1 To RepeatCount

    For Each URL In List
        ie.Navigate URL
        While ie.ReadyState <> 4
        Wend
        wscript.sleep 100000

    Next

Next