Dim web As New System.Windows.Forms.WebBrowser()
web.Navigate("d:\test.htm")
Do Until web.ReadyState = 4
Application.DoEvents
Loop
Dim elems As object = web.Document.GetElementById("table7").GetElementsByTagName("table")
For Each elem As object In elems
Dim tdelems As object = elem.GetElementsByTagName("td")
For Each tdelem As object In tdelems
If tdelem.Children.count > 1 Then
output.show(tdelem.Children(1).GetAttribute("href"))
output.show(tdelem.Children(1).innerText)
output.show(tdelem.InnerText)
End If
Next
Next
加好友 
发短信
Post By：2014/7/27 21:54:00 [显示全部帖子]
