Dim web As New System.Windows.Forms.WebBrowser()
web.ScriptErrorsSuppressed = True '禁止弹出脚本错误对话框
web.Navigate("http://www.kuaidi100.com/chaxun?com="& 快递 &"&nu=" & 单号)
Do Until web.ReadyState = 4
Application.DoEvents
Loop
Dim sdt As Date = Date.Now
While Date.Now < sdt.AddSeconds(2)
Application.DoEvents
End While
Dim elems As object = web.Document.GetElementsByTagName("td")
Dim A1,A2,A3 As String
For Each elem As object In elems
........
延迟2秒执行这个是目前效果稍微好一点的。最多只能执行5次,后面就都没加载完全就执行了后面的代码
执行网页如下
http://www.kuaidi100.com/chaxun?com=youzhengguonei&nu=9864325573222
我获取物流记录