参考下面的代码来做，得到最后的数据，再处理一下
Dim wbr As new System.Windows.Forms.WebBrowser
wbr.Navigate("http://www.kuaidi100.com/applyurl?key=a163da2878f79e28&com=yunda&nu=1900537590762")
Do Until wbr.ReadyState = 4
Application.DoEvents
Loop
Dim s As String = wbr.DocumentText
Dim reg As System.Text.RegularExpressions.Regex
Dim arr() As String
arr = reg.split(s,"(<PRE>)|(</PRE>)")
wbr.Navigate(arr(2))
Do Until wbr.ReadyState = 4
Application.DoEvents
Loop
output.show(wbr.Document.body.innertext)
[此贴子已经被作者于2013-11-13 20:16:37编辑过]
加好友 
发短信
Post By：2013/11/12 19:44:00 [显示全部帖子]
