Foxtable(狐表)用户栏目专家坐堂 → 如何接受跳转后的网页


  共有3009人关注过本帖树形打印复制链接

主题:如何接受跳转后的网页

美女呀,离线,留言给我吧!
qianqian1530
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:746 积分:5567 威望:0 精华:0 注册:2013/12/4 8:56:00
如何接受跳转后的网页  发帖心情 Post By:2014/4/9 16:02:00 [只看该作者]

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") 是 上面这个地址,   但  打开地址以后 是 自动跳转,后打开所要采集的地址, 
 
有没有办法 实现, 跳转后采集数据呢?

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/4/9 16:03:00 [只看该作者]


 回到顶部