Firefox仅在不存在时打开URL

Question

我制作了这个脚本，所以它检查新内容，它工作正常，我唯一的问题是我只想打开URL，如果没有加载。我的剧本就是这个

On Error Resume Next

Dim WebPage(2)
WebPage(0) = "http://domain/page.aspx?page=1"
WebPage(1) = "http://domain/page.aspx?page=2"
waitTime= 60000 'wait period in milliseconds

Do
  Set o = CreateObject("WScript.Shell")
  o.Run "firefox.exe " & WebPage(i)
  WScript.Sleep waitTime
  Set o = Nothing 

  ' check our loop
  i = i + 1

  ' reset no
  If i = 2 Then
    i = 0
  End If
Loop