求助：多页网页代码获取时，提示错误！ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

代码如下：

Dim web As new System.Windows.Forms.WebBrowser

web.ScriptErrorsSuppressed = True

web.Navigate("http://www.gzwengan.jcy.gov.cn/gzdt/")

Do Until web.ReadyState = 4

Application.DoEvents

Loop

Dim obj = web.document.GetElementsByTagName("table")(37) '页面代码TABLE的一共有82个含<table></table>

Dim count = obj.InnerText.Substring(1,1)

output.Show(count)

Dim str As String = ""

For i As Integer = 1 To count

Dim pg = web.Document.GetElementById("num")

pg.SetAttribute("Value", i)

Dim inputs = web.Document.GetElementsByTagName("input")

For Each input As object In inputs

If input.GetAttribute("type") = "submit" Then

input.InvokeMember("click")

Do Until web.document.GetElementsByTagName("table").count > 36

Application.DoEvents

Loop

Dim tb1s = web.document.GetElementsByTagName("table")(36) '页面代码TABLE的一共有82个含<table></table>即从第36个<Table>开始查找

For Each tb1 As object In tb1s.GetElementsByTagName("tr")'遍历TR'

Dim sa = tb1.GetElementsByTagName("a")'获取A标签元素'

If sa.count > 0 Then

Dim a = sa(0)

str &= a.InnerHtml

str &= a.GetAttribute("href")

Dim shijian As String= (FileSys.GetName(a.GetAttribute("href")).Insert(5,"-")).Insert(8,"-")

Dim Parts() As String = shijian.Split("_")

str & =Parts(0).Remove(0,1)

End If

output.Show(str)

错误如下：

此主题相关图片如下：111.png

如果将代码去掉“下一页”所有操作代码如下：

Dim web As new System.Windows.Forms.WebBrowser

web.ScriptErrorsSuppressed = True

web.Navigate("http://www.gzwengan.jcy.gov.cn/gzdt/")

Do Until web.ReadyState = 4

Application.DoEvents

Loop

Dim obj = web.document.GetElementsByTagName("table")(37) '页面代码TABLE的一共有82个含<table></table>

Dim count = obj.InnerText.Substring(1,1)

output.Show(count)

Dim str As String = ""

Dim tb1s = web.document.GetElementsByTagName("table")(36) '页面代码TABLE的一共有82个含<table></table>即从第36个<Table>开始查找

For Each tb1 As object In tb1s.GetElementsByTagName("tr")'遍历TR'

Dim sa = tb1.GetElementsByTagName("a")'获取A标签元素'

If sa.count > 0 Then

Dim a = sa(0)

str &= a.InnerHtml

str &= a.GetAttribute("href")

Dim shijian As String= (FileSys.GetName(a.GetAttribute("href")).Insert(5,"-")).Insert(8,"-")

Dim Parts() As String = shijian.Split("_")

str & =Parts(0).Remove(0,1)

End If

output.Show(str)

运行结果如下：

此主题相关图片如下：111.png

这边测试么有问题

此主题相关图片如下：1.jpg

Dim count as integer = val(obj.InnerText.Substring(1,1))

Dim web As new System.Windows.Forms.WebBrowser
web.ScriptErrorsSuppressed = True
web.Navigate("http://www.gzwengan.jcy.gov.cn/gzdt/")
Do Until web.ReadyState = 4 AndAlso web.document.GetElementsByTagName("table").count > 37
    Application.DoEvents
Loop
Dim tbs As object = web.document.GetElementsByTagName("table")
'For i As Integer = 0 To tbs.count-1
    'output.show(i & " " & tbs(i).InnerText)
'Next
Dim obj = tbs(37) '页面代码TABLE的一共有82个含<table></table>
'output.show(obj.InnerHtml)
Dim strKey As String = "</script>"
Dim idx As Integer = obj.InnerHtml.IndexOf(strKey)
Dim count = obj.Innerhtml.Substring(idx+strKey.Length+1,2).replace("页", "")
msgbox(count)
Dim str As String = ""
For i As Integer = 1 To count
    Dim pg = web.Document.GetElementById("num")
    pg.SetAttribute("Value", i)
    Dim inputs = web.Document.GetElementsByTagName("input")
    For Each input As object In inputs
        If input.GetAttribute("type") = "submit" Then
            input.InvokeMember("click")
            Do Until web.document.GetElementsByTagName("table").count > 36
                Application.DoEvents
            Loop
            Dim tb1s = web.document.GetElementsByTagName("table")(36) '页面代码TABLE的一共有82个含<table></table>即从第36个<Table>开始查找
            For Each tb1 As object In tb1s.GetElementsByTagName("tr")'遍历TR'
                Dim sa = tb1.GetElementsByTagName("a")'获取A标签元素'
                If sa.count > 0 Then
                    Dim a = sa(0)
                    str &= a.InnerHtml
                    str &= a.GetAttribute("href")
                    Dim shijian As String= (FileSys.GetName(a.GetAttribute("href")).Insert(5,"-")).Insert(8,"-")
                    Dim Parts() As String = shijian.Split("_")
                    str & =Parts(0).Remove(0,1)
                End If
            Next
        End If
    Next
Next
output.Show(str)

主题：求助：多页网页代码获取时，提示错误！