vb.net 教程 12-3 HtmlElement类 5

来源：互联网发布：程序员离职能干嘛编辑：程序博客网时间：2024/06/05 18:05

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

方法一：使用 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        Next    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><script language="javascript">function check(studentname,studentage){if(studentname==""){alert("姓名没有填写");return false;}if(studentage.length>2){alert("年龄长度超过2位");return false;}alert("数据木有问题:"+studentname+"的年龄是"+studentage);}</script></head><body><input type="button" name="submit" id="submit" value="检查数据" onclick="check('张三','12')"></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 教程目录

阅读全文

0 0