vb.net 教程 12-3 HtmlElement类 6
来源:互联网 发布:甲骨文广播铃声软件 编辑:程序博客网 时间:2024/06/08 16:24
经过上面两节的学习,我们已经可以做到填充数据和提交表单了。
作为一个自动填表软件,自然需要同时完成以上两方面的功能。
简单的是我们可以直接将两段代码合并在一起:
Private Sub btnOneKey1_Click(sender As Object, e As EventArgs) Handles btnOneKey1.Click Dim strName As String = "张三" Dim strAge As String = "12" Dim htmlAlls As HtmlElementCollection htmlAlls = wbMain.Document.All For Each htmlSingle As HtmlElement In htmlAlls Select Case htmlSingle.GetAttribute("name") Case "studentname" htmlSingle.SetAttribute("value", strName) Case "studentage" htmlSingle.SetAttribute("value", strAge) Case Else '不处理 End Select Next For Each htmlSingle As HtmlElement In htmlAlls Select Case htmlSingle.GetAttribute("name") Case "submit1" htmlSingle.RaiseEvent("onclick") Case Else '不处理 End Select Next End Sub
当然代码会遍历了网页内的所有元素,但实际上我们只需要Input标签的数据。
那么可以将
htmlAlls = wbMain.Document.All
修改为:
htmlAlls = wbMain.Document.GetElementsByTagName("Input")
完整代码:
Private Sub btnOneKey2_Click(sender As Object, e As EventArgs) Handles btnOneKey2.Click Dim strName As String = "李四" Dim strAge As String = "21" Dim htmlAlls As HtmlElementCollection htmlAlls = wbMain.Document.GetElementsByTagName("Input") For Each htmlSingle As HtmlElement In htmlAlls Select Case htmlSingle.GetAttribute("name") Case "studentname" htmlSingle.SetAttribute("value", strName) Case "studentage" htmlSingle.SetAttribute("value", strAge) Case Else '不处理 End Select Next For Each htmlSingle As HtmlElement In htmlAlls Select Case htmlSingle.GetAttribute("name") Case "submit1" htmlSingle.RaiseEvent("onclick") Case Else '不处理 End Select Next End Sub
还是需要两次枚举,因为我们不能在数据没有填充完之前就提交。
那么,还可以采用一种指定对象的方法:HtmlDocument.GetElementById(),参数为网页元素的ID,通常这个是不重复的。
具体代码如下:
Private Sub btnOneKey3_Click(sender As Object, e As EventArgs) Handles btnOneKey3.Click Dim strName As String = "王五" Dim strAge As String = "7" Dim htmlName As HtmlElement htmlName = wbMain.Document.GetElementById("studentname") htmlName.SetAttribute("value", strName) Dim htmlAge As HtmlElement htmlAge = wbMain.Document.GetElementById("studentage") htmlAge.SetAttribute("value", strAge) Dim htmlSubmit As HtmlElement htmlSubmit = wbMain.Document.GetElementById("submit1") htmlSubmit.RaiseEvent("onclick") End Sub
运行效果如下:
由于.net平台下C#和vb.NET很相似,本文也可以为C#爱好者提供参考。
学习更多vb.net知识,请参看vb.net 教程 目录
阅读全文
0 0
- vb.net 教程 12-3 HtmlElement类 6
- vb.net 教程 12-3 HtmlElement类 3
- vb.net 教程 12-3 HtmlElement类 2
- vb.net 教程 12-3 HtmlElement类 4
- vb.net 教程 12-3 HtmlElement类 1
- vb.net 教程 12-3 HtmlElement类 5
- vb.net 教程 12-3 HtmlElement类 7
- vb.net 教程 12-3 HtmlElement类 8 突破网页限制
- NET Framework 类库 HtmlElement 类
- vb.net 教程 12-2 HtmlDocument类 3
- vb.net 教程 12-1 WebBrowser 3
- vb.net 教程 12-4 msHtml 3
- vb.net 教程 3-12 资源文件 1-3
- vb.net 教程 12-6 webbrowser 文本编辑器 1
- vb.net 教程 12-6 webbrowser 文本编辑器 2
- vb.net 教程 12-5 webbrowser 与窗体交互3
- vb.net 教程 3-12 资源文件 1-1
- vb.net 教程 3-12 资源文件 1-2
- 可变参数列表解析
- 【Javascript笔记】1.2 Javascript使用形式
- POJ 1426 Find The Multiple
- input框清空
- 初始java (ki)
- vb.net 教程 12-3 HtmlElement类 6
- 06.19 MySQL数据库主从复制服务及优化(高级)
- E
- Ubuntu16.04配置Mac主题
- Debian之 update-alternatives命令配置软链接
- Unique Paths II问题及解法
- JavaScript实战-DOM操作之动态添加tr、td
- 获取系统相册并裁剪图片
- C语言——实例006 用*号输出字母C的图案。