vb.net 教程 12-3 HtmlElement类 5

当前位置:

首页 > 编程开发 > VBScript >

vb.net 教程 12-3 HtmlElement类 5

上一节讲了如何自动填充网页数据，这一节讲如何提交网页数据。

方法一：使用 HtmlElement 类提供的RaiseEvent()方法：

当获得网页元素（HtmlElement）后，调用RaiseEvent(参数)方法，该方法中参数是该元素对应的事件，例如onclick、onchanged等。

代码如下：

Private Sub btnSubmit1_Click(sender As Object, e As EventArgs) Handles btnSubmit1.Click

Dim htmlAlls As HtmlElementCollection

htmlAlls = wbMain.Document.All

For Each htmlSingle As HtmlElement In htmlAlls

Select Case htmlSingle.GetAttribute("name")

Case "submit1"

htmlSingle.RaiseEvent("onclick")

Case Else

'不处理

End Select

End Sub

方法二、比上一个方法更简单，使用HtmlDocument类的InvokeScript()方法。

这个方法直接调用网页内的已经定义的脚本。

在本例中我们直接调用网页上的 check()，代码如下：

Private Sub btnSubmit2_Click(sender As Object, e As EventArgs) Handles btnSubmit2.Click

wbMain.Document.InvokeScript("check")

End Sub

看起来更简洁。

当然InvokeScript()还有个重载的方法：

Public Function InvokeScript (scriptName As String, args As Object() ) As Object

参数scriptName：要调用的脚本的名称。

参数args：要传递给脚本scriptName的参数。

例如下面的html代码(PS:此网页已经传到我的网站：http://www.qqrec.com/vblessons/vbnet20-2-2.htm)：

<html>

<head>

<title>这是配合vb.net教程的网页</title>

function check(studentname,studentage)

{

if(studentname=="")

{

alert("姓名没有填写");

return false;

}

if(studentage.length>2)

{

alert("年龄长度超过2位");

return false;

}

alert("数据木有问题:"+studentname+"的年龄是"+studentage);

}

</script>

</head>

<body>

</body>

</html>

其中使用脚本check()检查数据，脚本包含两个参数，一个是学生姓名，一个是学生年龄。

我们在代码中采用如下方法调用脚本：

Private Sub btnCheck_Click(sender As Object, e As EventArgs) Handles btnCheck.Click

Dim scriptName As String = "check"

Dim args As Object() = {"李四", "8"}

wbMain.Document.InvokeScript(scriptName, args)

End Sub

当直接按下网页上的按钮：

当按下窗体上的”检查数据“按钮：

由于.net平台下C#和vb.NET很相似，本文也可以为C#爱好者提供参考。

学习更多vb.net知识，请参看 vb.net 教程目录

————————————————

原文链接：https://blog.csdn.net/uruseibest/article/details/76349988

栏目列表