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 操作，所以這個很糾結。
我也沒辦法，只能靠你們自己了，我只是分享一下思路而已、
