参考代码
Dim web As new System.Windows.Forms.WebBrowser
web.navigate("C:\Users\dv rrxaI600 007\Downloads\resume\resume.html")
Do Until web.ReadyState = 4
Application.DoEvents
Loop
Dim tbs As object = web.Document.GetElementsByTagName("table")
'For i As Integer = 0 To tbs.count-1
'If tbs(i).Innerhtml.contains("luo111in@126.com")
'output.show(i)
'output.show(tbs(i).InnerHTML)
'output.show("-------------")
'End If
'Next
Dim str = tbs(8).GetElementsByTagName("tr")(0).GetElementsByTagName("strong")(0)
msgbox(str.Innertext)
str = tbs(10).GetElementsByTagName("tr")(0).GetElementsByTagName("td")(1)
msgbox(str.Innertext)
str = tbs(11).GetElementsByTagName("tr")(0).GetElementsByTagName("td")(1)
msgbox(str.Innertext)
[此贴子已经被作者于2019/4/18 12:16:42编辑过]