主题：[求助]求高手帮我写个抓取网页数据的代码

http://cx.cqjsxx.com:8010/CX_SGQYMRPM2.aspx

没任何反映。。。。

可以了。。。没看到是output.show....

甜大大 麻烦帮忙在写下  如何自动模拟下一页 再读取数据

大概读懂了，我想用dim str as string = web.Document.GetElementsByTagName("GV_SGPM_ctl15_LabelRecordCount").innerHTML 去获取3847这个数据，结果不支持innerHTML

甜大大   我又有个需求，我要在企业名称的文本框里自动填入当前行的企业名称进去，然后查询，然后下载数据到本地

不行啊    查询不起作用，得到的数据还是13条 不是查询的那个公司

真不会测试，麻烦甜大大了。。。

html正在学，还没接触到你写的代码这种深度，目前只会编编新闻和css

Dim btn = web.Document.GetElementById("GV_SGPM_ctl16_LinkButtonNextPage")
    btn.InvokeMember("click")
    
    Dim ok As Boolean = False
    Do Until web.ReadyState = 4 AndAlso ok
        Application.DoEvents
        For Each sp As object In web.Document.GetElementsByTagName("span")
            If sp.id IsNot Nothing
                If sp.id.contains("LabelCurrentPage") Then
                    If sp.InnerText.split(" ")(1) <> i Then
                        ok = True
                        Exit For
                    Else
                        Application.DoEvents
                        Exit For
                    End If
                End If
            End If
        Next
    Loop