米琪卡哇伊也添加编引用Microsoft.mshtml然后在页面上ImportsmshtmlFunctionparseMyHtml(ByValhtm 米琪卡哇伊 也添加编引用Microsoft.mshtml然后在页面上Imports mshtmlFunction parseMyHtml(ByVal htmlToParse$) As S
米琪卡哇伊
也添加编引用Microsoft.mshtml然后在页面上Imports mshtmlFunction parseMyHtml(ByVal htmlToParse$) As String
Dim htmlDocument As IHTMLDocument2 New HTMLDocumentClass()
htmlDocument.write(htmlToParse)
htmlDocument.close()
Dim allElements As IHTMLElementCollection htmlDocument.body.all Dim allInputs As IHTMLElementCollection allElements.tags("a")
Dim element As IHTMLElement For Each element In allInputs
element.title element.innerText Next
Return htmlDocument.body.innerHTMLEnd Function如在这里找到