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

Dim web As New System.Windows.Forms.WebBrowser()
web.Navigate("http://cx.cqjsxx.com:8010/CX_SGQYMRPM2.aspx")
Do Until web.ReadyState = 4
    Application.DoEvents
Loop

Dim mc = web.Document.GetElementByID("txt_mc")
mc.setattribute("value", "重庆建工住宅建设有限公司")

Dim cx = web.Document.GetElementByID("btn_c")
cx.InvokeMember("click")

 汗，你会不会测试？

Dim web As New System.Windows.Forms.WebBrowser()
web.Navigate("http://cx.cqjsxx.com:8010/CX_SGQYMRPM2.aspx")
Do Until web.ReadyState = 4
    Application.DoEvents
Loop

Dim mc = web.Document.GetElementByID("txt_mc")
mc.setattribute("value", "重庆建工住宅建设有限公司")

Dim temp As String = web.documenttext
Dim cx = web.Document.GetElementByID("btn_c")
cx.InvokeMember("click")

Do Until web.ReadyState = 4 AndAlso temp <> web.documentText
    Application.DoEvents
Loop

Dim elems As object = web.Document.GetElementById("GV_SGPM").GetElementsByTagName("tr")
For Each elem As object In elems
    Dim tdelems As object =  elem.GetElementsByTagName("td")
    If tdelems.count >= 10 Then
        output.show(tdelems(0).innertext & "  " & tdelems(1).innertext & "  " & tdelems(2).innertext)
    End If
Next

代码的意义是，你模拟点击下一页，但页面不会马上加载完毕的，需要等候一段时间。

那就需要判断前后两个页面是否相同，如果相同，那就是没有跳转完毕。

你也可以这样写

Dim web As New System.Windows.Forms.WebBrowser()
web.Navigate("http://cx.cqjsxx.com:8010/CX_SGQYMRPM2.aspx")
Do Until web.ReadyState = 4
    Application.DoEvents
Loop

Dim pg As Integer = 0
Dim cp As Integer = 0
For Each sp As object In web.Document.GetElementsByTagName("span")
    If sp.id IsNot Nothing
        If sp.id.contains("LabelPageCount") Then
            pg = sp.InnerText.split(" ")(1)
        ElseIf sp.id.contains("LabelCurrentPage") Then
            cp = sp.InnerText.split(" ")(1)
        End If
    End If
Next
msgbox(pg & " " & cp)
For i As Integer = cp To pg-1
    Dim elems As object = web.Document.GetElementById("GV_SGPM").GetElementsByTagName("tr")
    For Each elem As object In elems
        Dim tdelems As object =  elem.GetElementsByTagName("td")
        If tdelems.count >= 10 Then
            output.show(tdelems(0).innertext & "  " & tdelems(1).innertext & "  " & tdelems(2).innertext)
        End If
    Next
   
    '调试
    If i = 3 Then '第三页后退出
        Exit For
    End If
   
    Dim btn = web.Document.GetElementById("GV_SGPM_ctl16_LinkButtonNextPage")
    btn.InvokeMember("click")
   
    Dim temp = web.documentText
    Do Until web.ReadyState = 4 AndAlso temp <> web.documentText
        Application.DoEvents
    Loop
Next