CrLf

最直观的是用 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()
复制代码