Dim web As New System.Windows.Forms.WebBrowser
web.Navigate(r("URL"))
Do Until web.ReadyState = 4
Application.DoEvents
Loop
Dim elems As System.Windows.Forms.HtmlElementCollection
Elems = web.Document.GetElementsByTagName("table")
For Each elem As System.Windows.Forms.Htmlelement In elems
If elem.GetAttribute("summary") Like "履歴情報" Then
Dim e_Info As System.Windows.Forms.HtmlElement = elem.GetElementsByTagName("tbody")(0)
Dim e_Info1 As System.Windows.Forms.HtmlElement = e_Info.GetElementsByTagName("tr")(2).GetElementsByTagName("td")(0)
Dim e_Info2 As System.Windows.Forms.HtmlElement = e_Info.GetElementsByTagName("tr")(2).GetElementsByTagName("td")(1)
Dim e_Info3 As System.Windows.Forms.HtmlElement = e_Info.GetElementsByTagName("tr")(2).GetElementsByTagName("td")(2)
r("出荷日") = e_Info1.InnerText
r("配達状況") = e_Info2.InnerText & e_Info3.InnerText
End If
Next
跳转地址 http://thira.plavox.info/transport/api/?t=[sagawa]&no=564410245044 这个
r("URL") 是 上面这个地址, 但 打开地址以后 是 自动跳转,后打开所要采集的地址,
有没有办法 实现, 跳转后采集数据呢?