用一把 Microsoft HTML Library 的钥匙,我成功的打开了 WebBrowser.document 属性。终于可以定制自己的浏览器了。
我到昨晚才发现原来获取网页的所有元素是这么简单:
Dim theHTML As New HTMLDocument
Set theHTML = wb.document ' wb = ActiveX WebBrowser
' theHTML.All 就是它了!
……所以获得所有链接也就易如反掌了!:Dim collLink As IHTMLElementCollection
' Get all linksSet col...