Set html = CreateObject("htmlfile")
Set http = CreateObject("Msxml2.ServerXMLHTTP")
html.designMode = "on" ' 开启编辑模式
http.open "GET", "http://www.cnblogs.com/", False
http.send
strHtml = http.responseText
html.write strHtml ' 写入数据
Set post_list = html.getElementById("post_list")
For Each el In post_list.children
WScript.Echo el.getElementsByTagName("a")(0).innerText
Next
其实方法很简单，但是重点是会vbs的，却不一定都会 dom 操作，所以这个很纠结。
我也没办法，只能靠你们自己了，我只是分享一下思路而已、
