2016-07-26 222 views

回答

1

简单地浏览到的URL中一个接一个循环后:

list = Array("http://www.example.com", ...) 

Set ie = CreateObject("InternetExplorer.Application") 
ie.Visible = True 

For Each url In list 
    ie.Navigate url 
    While ie.ReadyState <> 4 
    WScript.Sleep 100 
    Wend 
    WScript.Sleep 300000 'wait 5 min before loading the next page 
Next 

你最想要的网址后重新开始添加外环。

相关问题