Foxtable(狐表)用户栏目专家坐堂 → 求助 读取网页数据 网页如何刷新


  共有2225人关注过本帖平板打印复制链接

主题:求助 读取网页数据 网页如何刷新

帅哥哟,离线,有人找我吗?
fanllys668
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:198 积分:2544 威望:0 精华:0 注册:2012/8/12 23:46:00
求助 读取网页数据 网页如何刷新  发帖心情 Post By:2018/4/22 23:26:00 [只看该作者]

我按论坛上的代码 可以实现读取网页数据 现在有一个问题,网页每次要手动刷新才能读取最新数据,请教大家一下,怎么在这代码中 加一个刷新的代码 类型IE的 F5 刷新

Dim web As New System.Windows.Forms.WebBrowser()

web.ScriptErrorsSuppressed = True


web.Navigate("http://lot.mayaba8.com/home/History?lotteryId=12")

Do Until web.ReadyState = 4
    Application.DoEvents
Loop

Dim tb As object = web.Document.GetElementsByTagName("table")(0)
Dim trs = tb.GetElementsByTagName("tr")
For i As Integer = 1 To trs.count-1 Step 3
    Dim tds As object =  trs(i).GetElementsByTagName("td")
    For j As Integer = 0 To tds.count-1 '       Step 3
        Output .show(i & "行" & j & "列:" & tds(j).innerText )
        ' MessageBox.Show( i & "行" )
        If j = 0
        MessageBox.Show(i & "行" & j & "列:" & tds(j).innerText )
        End If
    Next
Next

 回到顶部