主题：求助：网页中表元素引用，数值传递

各位老师：

   打开一个网页，想引用网页中表的元素，但编码不知道怎么写？

 

  网页如下！

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:网页.rar

 我的问题是:

  1、查找共有多少页，找到后将每页张替换成共有多少页！如下图：

 
此主题相关图片如下：微信图片_20210312160945.png

   网页代码：

 
此主题相关图片如下：微信图片_20210312160958.png

 2、引用表头中的选择框并全选

 

此主题相关图片如下：微信图片_20210312161857.png

此主题相关图片如下：微信图片_20210312161850.png

 

    Dim inputs = web1.Document.GetElementsByTagName("Input")
For Each Input As object In Inputs
msgbox(input.id)
    If Input.id = "ctl00_C_gv_ctl02_cb" Then
        Input.SetAttribute("checked","checked")
    End If
Next

 

 

各位老师辛苦！请指教！

谢谢！

谢谢，蓝老师！

但网页打不开？

蓝老师：第二个问题已解决！谢谢

  现在第一个问题没有解决！

  1、怎样在解析：<TD class=page colSpan=18>共<SPAN>50</SPAN>条&nbsp。。。中找到 50 这个数字，

 

Dim web As System.Windows.Forms.WebBrowser = Forms("窗口1").Controls("WebBrowser1").Basecontrol
Dim input = web.Document.GetElementById("ctl00_C_gv_ctl23_drop")
'Input.SetAttribute("value","50")
'msgbox(Input.Parent.Innerhtml)
Dim imgs As System.Windows.Forms.HtmlElementCollection = web.Document.GetElementsByTagName("TD")
For Each ig As object In imgs
If ig.GetAttribute("colSpan") = "共<SPAN>50</SPAN>条" '通过某个属性判断是否需要点击的img标签
  'ig.InvokeMember("click")
Input.SetAttribute("value","50")
End If
Next

用上面的代码找不到！

2、我用标红的代码将50传递给ID为ctl00_C_gv_ctl23_drop的框后，不能刷新新网页，是不是调用JS吗？

<TD class=page colSpan=18>共<SPAN>50</SPAN>条&nbsp;每页<SELECT id=ctl00_C_gv_ctl23_drop style="TEXT-ALIGN: left; WIDTH: 65px" name=ctl00$C$gv$ctl23$drop>。。。。

 

请老师费心！

谢谢！