最直观的是用 InternetExplorer.Application,示例:- arr = Array("http://www.baidu.com","http://hao.360.cn/")
-
- Set ie = CreateObject("InternetExplorer.Application")
-
- For Each url In arr
- ie.Navigate url
- Do While(ie.ReadyState <> 4) : WScript.Sleep 100 : Loop
- MsgBox ie.Document.documentElement.innerText
- Next
-
- ie.Quit()
复制代码
|