vb.net 教程 12-3 HtmlElement类 4- VB

在上一节提供的网页代码中有两个文本框，

name分别是 studentname 和 studentage，分别模拟学生姓名和年龄，由于本教程并不是讲 html和javascript方面的，

所以我们并没有判断是否年龄是数字，姓名长度够不够等，很多判断都略去了。

请自行学习相关html和javascript方面的知识，当然，如果确实有需要，我也可以写一些这方面的教程。

回到正题，我们已经知道网页中的两个变量名称，那么通过webbrowser就可以完成一键填表的操作。

需要使用到 HtmlElement 类的 GetAttribute 和 SetAttribute 方法。

设计界面如下：

具体代码：

转到网页：

Private Sub btnGoto_Click(sender As Object, e As EventArgs) Handles btnGoto.Click
wbMain.Navigate(txtUrl.Text)
End Sub

一键填表：

Private Sub btnFill_Click(sender As Object, e As EventArgs) Handles btnFill.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
End Sub
GetAttribute(参数)：返回网页元素的某个属性的值（String），参数为该网页元素的某个属性，代码中为文本框的name

SetAttribute（参数1，参数2）：设置网页元素的某个属性的值，参数1、2均为String类型，参数1为属性的名称，代码中为文本框的value，参数2为新值。

运行结果：

SetAttribute()对按钮同样适用，以下代码实现为按钮的value设置新值，同时将第二个按钮设置为可用：

Private Sub btnEnabled_Click(sender As Object, e As EventArgs) Handles btnEnabled.Click

Dim htmlAlls As HtmlElementCollection
htmlAlls = wbMain.Document.All

For Each htmlSingle As HtmlElement In htmlAlls
Select Case htmlSingle.GetAttribute("name")
Case "submit1"
htmlSingle.SetAttribute("value", "submit")
Case "submit2"
htmlSingle.Enabled = True
Case Else
'不处理
End Select
Next
End Sub
运行后将按钮一的value修改为了“submit”，按钮2修改为了可用状态。如下图：