- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 求助：网页中表元素引用，数值传递 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=161308)
-- 发布时间：2021/3/12 16:27:00
-- 求助：网页中表元素引用，数值传递
各位老师：
打开一个网页，想引用网页中表的元素，但编码不知道怎么写？
网页如下！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:网页.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
各位老师辛苦！请指教！
谢谢！
-- 发布时间：2021/3/12 16:56:00
--
自己学一下相关知识吧：https://docs.microsoft.com/zh-cn/dotnet/api/system.windows.forms.htmlelement?view=netframework-4.8
-- 发布时间：2021/3/15 10:57:00
--
谢谢，蓝老师！
但网页打不开？
-- 发布时间：2021/3/15 11:15:00
--
这是微软的官方网站，打不开我也没有办法，换个网络呗
-- 发布时间：2021/3/15 13:33:00
--
蓝老师：第二个问题已解决！谢谢
现在第一个问题没有解决！
1、怎样在解析：<TD class=page colSpan=18>共<SPAN>50</SPAN>条 。。。中找到 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>条 每页<SELECT id=ctl00_C_gv_ctl23_drop style="TEXT-ALIGN: left; WIDTH: 65px" name=ctl00$C$gv$ctl23$drop>。。。。
请老师费心！
谢谢！