Dim web As new System.Windows.Forms.WebBrowser
web.ScriptErrorsSuppressed = True
web.Navigate("http://search.jcrb.com/was5/web/search?page=1&channelid=263328&perpage=10000000&outlinepage=10000000")
Do Until web.ReadyState = 4 AndAlso web.document.GetElementsByTagName("table").count > 1
Application.DoEvents
Loop
Dim str As String = ""
Dim tb1s = web.document.GetElementsByTagName("table") '从第4个<Table>开始查找
For i As Integer = 4 To tb1s.count - 1
Dim tb1 = tb1s(i)
Dim sa = tb1.GetElementsByTagName("a")'获取A标签元素'
If sa.count > 0 Then
Dim a = sa(0)
Dim Tel As String = a.InnerHtml
Dim Parts1() As String = Tel.Split("</FONT>")
str &= Parts1(0) & vbcrlf
str &= a.GetAttribute("href") & vbcrlf
Dim shijian As String= (FileSys.GetName(a.GetAttribute("href")).Insert(5,"-")).Insert(8,"-")
Dim Parts() As String = shijian.Split("_")
str & =Parts(0).Remove(0,1) & vbcrlf
End If
Next
output.Show(str)
加好友 
发短信
Post By：2016/11/2 21:03:00 [显示全部帖子]
此主题相关图片如下：1.png