vb.net WebBrowser页面与WinForm交互技巧

VB 前端之家
前端之家收集整理的这篇文章主要介绍了vb.net WebBrowser页面与WinForm交互技巧，前端之家小编觉得挺不错的，现在分享给大家，也给大家做个参考。

最近看到博客园入门教学文章比较流行，自己最近又偷懒比较多，没啥心得，不妨写一篇没啥深度的入门文章吧。

话说有了WebBrowser类，终于不用自己手动封装SHDocVw的AxWebBrowser这个ActiveX控件了。这个类如果仅仅作为一个和IE一模一样浏览器，那就太没意思了（还不如直接用IE呢）。那么，无论我们是想做一个“定制版IE”，还是希望利用HTML来做用户界面（指WinApp而非WebApp。许多单机软件，包括Windows的帮助支持中心，都是HTML做的），都少不了Windows Form和包含在WebBrowser中的Web页面的交互。本文将通过几个实际的例子，初步介绍一下WinForm和WebBrowser所包含的Web页面之间的交互。

下面的代码假设你已经建立了一个Windows Form，上面有一个WebBrowser名为“webBrowser”。

Study Case 1：用WinForm的Event Handler响应Web页面的事件

现在有这样一个Windows Application，它的界面上只有一个WebBrowser，显示一个本地的HTML文件作为界面。现在的问题是，所有逻辑都可以放在HTML文件里，唯独“关闭”按钮遇到了困难——通常，Web页面是没有办法直接控制浏览器的，更不用说结束这个WinForm程序了。

但是，在.Net 2.0当中，“由Windows Form响应Web页面的事件”已经成为了现实。

在.Net 2.0中，整个HTML文档以及其包含的各个HTML元素，都和一个个HtmlDocument、HtmlElement之类的.Net对象对应。因此只要找到这个“关闭”按钮对应的HtmlElement对象，为其click事件添加Event Handler即可。

假设HTML源代码如下：

@H_502_23@<html> @H_502_23@
<body> @H_502_23@
<inputtype="button"id="btnClose"value="关闭"/> @H_502_23@
</body> @H_502_23@
</html>

那么找出该按钮并为之添加Event Handler的代码如下：

@H_502_23@HtmlDocumenthtmlDoc= @H_502_23@webBrowser.Document;
HtmlElementbtnElement=htmlDoc.All["btnClose" @H_502_23@];
if(btnElement!=null @H_502_23@)
{
btnElement.click+=new @H_502_23@HtmlElementEventHandler(HtmlBtnClose_Click);
}

其中HtmlBtnClose_Click是按下Web按钮时的Event Handler。

很简单吧？那么稍稍高级一点的——我们都知道一个HTML元素可能有很多各种各样的事件，而HtmlElement这个类只给出最常用、共通的几个。那么，如何响应其他事件呢？这也很简单，只需要调用HtmlElement的AttachEventHandler就可以了：

@H_502_23@btnElement.AttachEventHandler("onclick",new @H_502_23@EventHandler(HtmlBtnClose_Click));
//这一句等价于上面的btnElement.click+=newHtmlElementEventHandler(HtmlBtnClose_Click);

对于其他事件，把"onclick"换成该事件的名字就可以了。例如：

@H_502_23@formElement.AttachEventHandler("onsubmit",newEventHandler(HtmlForm_Submit));


Study Case 2：表单（form）的自动填写和提交

要使我们的WebBrowser具有自动填表、甚至自动提交的功能，并不困难。

假设有一个最简单的登录页面，输入用户名密码，点“登录”按钮即可登录。已知用户名输入框的id（或Name，下同）是username，密码输入框的id是password，“登录”按钮的id是submitbutton，那么我们只需要在webBrowser的DocumentCompleted事件中使用下面的代码即可：

@H_502_23@HtmlElementbtnSubmit=webBrowser.Document.All["submitbutton" @H_502_23@];
HtmlElementtbUserid=webBrowser.Document.All["username" @H_502_23@];
HtmlElementtbPasswd=webBrowser.Document.All["password" @H_502_23@];

if(tbUserid==null||tbPasswd==null||btnSubmit==null @H_502_23@)
return @H_502_23@;

tbUserid.SetAttribute("value","smalldust" @H_502_23@);
tbPasswd.SetAttribute("value","12345678" @H_502_23@);

btnSubmit.InvokeMember("click");

这里我们用SetAttribute来设置文本框的“value”属性，用InvokeMember来调用了按钮的“click”方法。因为不同的Html元素，其拥有的属性和方法也不尽相同，所以.Net 2.0提供了统一的HtmlElement来概括各种Html元素的同时，提供了这两个方法以调用元素特有的功能。关于各种Html元素的属性和方法一览，可以查阅MSDN的DHTML Reference。

※关于表单的提交，的确还有另一种方法就是获取form元素而不是button，并用form元素的submit方法：

@H_502_23@HtmlElementformLogin=webBrowser.Document.Forms["loginForm" @H_502_23@];
//…… @H_502_23@
formLogin.InvokeMember("submit");

本文之所以没有推荐这种方法，是因为现在的网页，很多都在submit按钮上添加onclick事件，以对提交的内容做最基本的验证。如果直接使用form的submit方法，这些验证代码就得不到执行，有可能会引起错误。


Study Case 3：查找并选择文本

这次我们希望实现一个和IE一模一样的查找功能，以对Web页面内的文字进行查找。

文本查找要借助于TextRange对象的findText方法。但是，.Net里并没有这个对象。这是因为，.Net 2.0提供的HtmlDocument，HtmlWindow，HtmlElement等类，只不过是对原有mshtml这个COM组件的不完整封装，只提供了mshtml的部分功能。所以许多时候，我们仍旧要借助mshtml来实现我们需要的功能。好在这些.Net类都提供了DomDocument这个属性，使得我们很容易把.Net对象转换为COM对象使用。下面的代码演示了如何查找Web页面的文本。
（需要添加mshtml的引用，并加上using mshtml;）

@H_502_23@publicpartialclass @H_502_23@SearchDemo:Form
{
//建立一个查找用的TextRange（IHTMLTxtRange接口）
@H_502_23@privateIHTMLTxtRangesearchRange=null @H_502_23@;
public @H_502_23@SearchDemo()
{
InitializeComponent();
}

privatevoidbtnSearch_Click(object @H_502_23@sender,EventArgse)
{
//Document的DomDocument属性，就是该对象内部的COM对象。
@H_502_23@IHTMLDocument2document= @H_502_23@(IHTMLDocument2)webBrowser.Document.DomDocument;
stringkeyword= @H_502_23@txtKeyword.Text.Trim();
if(keyword=="" @H_502_23@)
return @H_502_23@;

// @H_502_23@IE的查找逻辑就是，如果有选区，就从当前选区开头+1字符处开始查找；没有的话就从页面最初开始查找。
//这个逻辑其实是有点不大恰当的，我们这里不用管，和IE一致即可。
@H_502_23@if(document.selection.type.ToLower()!="none" @H_502_23@)
{
searchRange= @H_502_23@(IHTMLTxtRange)document.selection.createRange();
searchRange.collapse(true @H_502_23@);
searchRange.moveStart("character",1 @H_502_23@);
}
else
@H_502_23@{
IHTMLBodyElementbody @H_502_23@= @H_502_23@(IHTMLBodyElement)document.body;
searchRange= @H_502_23@(IHTMLTxtRange)body.createTextRange();
}

//如果找到了，就选取（高亮显示）该关键字；否则弹出消息。
@H_502_23@if(searchRange.findText(keyword,1,0 @H_502_23@))
{
searchRange.select();
}
else
@H_502_23@{
MessageBox.Show( @H_502_23@"已搜索到文档结尾。" @H_502_23@);
}
}
}

到此为止，简单的查找就搞定了。至于替换功能，看了下一个例子，我相信你就可以触类旁通轻松搞定了。

Study Case 4：高亮显示

上一个例子中我们学会了查找文本——究跟到底，对Web页面还是只读不写。那么，如果说要把所有的搜索结果高亮显示呢？我们很快会想到把所有匹配的文字颜色、背景改一下就可以了。

首先想到的可能是直接修改HTML文本吧……但是，与SourceCode的高亮显示不同，我们需要并且只需要高亮页面中的文本部分。HTML标签、脚本代码等等是绝对不应该去改动的。因此我们不能把整个页面的Source Code读进来然后replace，那样有破坏HTML文件结构的可能；我们只能在能够分离出文本与其他内容（标签，脚本……）的前提下进行。

具体方法有很多，下面提供两个比较简单的方法。

方法一：使用TextRange（IHTMLTxtRange）
有了上一个Case的基础，相信大家立刻会想到使用TextRange。没错，TextRange除了提供查找方法之外，还提供了一个pasteHTML方法，以指定的HTML文本替换当前TextRange中的内容。代码片断如下：

@H_502_23@publicpartialclass @H_502_23@HilightDemo:Form
{
//定义高亮显示效果的标签。 @H_502_23@
stringtagBefore="<spanstyle='background-color:yellow;color:black'>" @H_502_23@;
stringtagAfter="</span>" @H_502_23@;

//…… @H_502_23@

@H_502_23@ @H_502_23@privatevoidbtnHilight_Click(object @H_502_23@sender,EventArgse)
{
HtmlDocumenthtmlDoc= @H_502_23@webBrowser.Document;
stringkeyword= @H_502_23@txtKeyword.Text.Trim();
if (keyword == "")
return;

objectoTextRange=htmlDoc.Body.InvokeMember("createTextRange" @H_502_23@);

mshtml.IHTMLTxtRangetxtrange=oTextRangeas @H_502_23@mshtml.IHTMLTxtRange;

while(txtrange.findText(keyword,4 @H_502_23@))
{
try @H_502_23@
{
txtrange.pasteHTML(tagBefore+keyword+ @H_502_23@tagAfter);
}
catch @H_502_23@{}
txtrange.collapse(false @H_502_23@);
}
}
}


※这段代码里获取IHTMLTxtRange的方式和上面的例子稍稍不同，其实所谓条条大路通罗马，本质是一样的。

方法二：使用DOM（文档对象模型）
将HTML文档解析为DOM，然后遍历每个节点，在其中搜索关键字并进行相应替换处理即可。

@H_502_23@publicpartialclass @H_502_23@HilightDemo:Form
{
//…… @H_502_23@

@H_502_23@ @H_502_23@privatevoidbtnHilight_Click(object @H_502_23@sender,EventArgse)
{
HTMLDocumentdocument= @H_502_23@(HTMLDocument)webBrowser.Document.DomDocument;
IHTMLDOMNodebodyNode= @H_502_23@(IHTMLDOMNode)webBrowser.Document.Body.DomElement;
stringkeyword= @H_502_23@txtKeyword.Text.Trim();
if(keyword=="" @H_502_23@)
return @H_502_23@;

HilightText(document,bodyNode,keyword);
}

privatevoidHilightText(HTMLDocumentdocument,IHTMLDOMNodenode,string @H_502_23@keyword)
{
//nodeType=3：text节点 @H_502_23@
if(node.nodeType==3 @H_502_23@)
{
stringnodeText= @H_502_23@node.nodeValue.ToString();
//如果找到了关键字 @H_502_23@
if @H_502_23@(nodeText.Contains(keyword))
{
IHTMLDOMNodeparentNode= @H_502_23@node.parentNode;
//将关键字作为分隔符，将文本分离，并逐个添加到原text节点的父节点 @H_502_23@
string[]result=nodeText.Split(newstring @H_502_23@[]{keyword},StringSplitOptions.None);
for(inti=0;i<result.Length-1;i++ @H_502_23@)
{
if(result[i]!="" @H_502_23@)
{
IHTMLDOMNodetxtNode= @H_502_23@document.createTextNode(result[i]);
parentNode.insertBefore(txtNode,node);
}
IHTMLDOMNodeorgNode= @H_502_23@document.createTextNode(keyword);
IHTMLDOMNodehilightedNode=(IHTMLDOMNode)document.createElement("SPAN" @H_502_23@);
IHTMLStylestyle= @H_502_23@((IHTMLElement)hilightedNode).style;
style.color="black" @H_502_23@;
style.backgroundColor="yellow" @H_502_23@;
hilightedNode.appendChild(orgNode);

parentNode.insertBefore(hilightedNode,node);
}
if(result[result.Length-1]!="" @H_502_23@)
{
IHTMLDOMNodepostNode=document.createTextNode(result[result.Length-1 @H_502_23@]);
parentNode.insertBefore(postNode,node);
}
parentNode.removeChild(node);
}//EndofnodeText.Contains(keyword) @H_502_23@
@H_502_23@}
else @H_502_23@
{
//如果不是text节点，则递归搜索其子节点 @H_502_23@
IHTMLDOMChildrenCollectionchildNodes=node.childNodesas @H_502_23@IHTMLDOMChildrenCollection;
foreach(IHTMLDOMNodenin @H_502_23@childNodes)
{
HilightText(document,n,keyword);
}
}
}
}

上面的两段代码都是为了清晰易懂而精简得不能再简的，有很多地方很不完善。比如，没考虑到如何从高亮显示状态复原；也没有大小写匹配等等。当然，掌握了原理之后相信这些都不会太难。

这两种方法各有优缺点：
使用TextRange较轻量迅速，而且有一个特长，就是可以把跨标签（Tag）的关键字挑出来。例如，有这么一段HTML：

@H_502_23@<b>Hel</b>loWorld!

先不管作者出于什么目的让Hel三个字母成为粗体，总之显示在页面上的是一句“Hello World!”。在我们希望高亮页面中的“Hello”这个关键字时，如果用DOM分析的话，会得出含有“Hel”的<b>节点和文本节点“lo World!”两个节点，因此无法将其挑出来。而TextRange则能正确识别，将其设置为高亮。因此也可以说TextRange是只和文本有关，和HTML语法结构无关的对象。

但是，TextRange也有其致命缺点，加亮容易，反向的话就很难。换句话说，去除高亮显示的时候不能再用TextRange，而需要采用其他方法。

而DOM方法则正好相反， 由于DOM的树状结构特性，虽然不能（或者很难）跨越Tag搜索关键字，但是去除高亮显示并不繁琐。

Study Case 5：与脚本的互操作

在Case 1当中，我们已经看到，Web页面的HTML元素的事件，可以由Windows Form端来响应，可以在某种程度上看作是Web页面调用WinForm；那么反过来，WinForm除了可以直接访问Web页面的HTML元素之外，能否调用Web页面里的各种Script呢？

首先是调用Web页面的脚本中已经定义好的函数。假设HTML中有如下Javascript：

@H_502_23@function @H_502_23@DoAdd(a,b){
returna+ @H_502_23@b;
}

那么，我们要在WinForm调用它，只需如下代码即可：

@H_502_23@objectoSum=webBrowser.Document.InvokeScript("DoAdd",newobject[]{1,2 @H_502_23@});
intsum=Convert.ToInt32(oSum);

其次，如果我们想执行一段Web页面中原本没有的脚本，该怎么做呢？这次.Net的类没有提供，看来还要依靠COM了。IHTMLWindow2可以将任意的字符串作为脚本代码来执行。

@H_502_23@stringscriptline01=@"functionShowPageInfo(){" @H_502_23@;
stringscriptline02=@"varnumLinks=document.links.length;" @H_502_23@;
stringscriptline03=@"varnumForms=document.forms.length;" @H_502_23@;
stringscriptline04=@"varnumImages=document.images.length;" @H_502_23@;
stringscriptline05=@"varnumScripts=document.scripts.length;" @H_502_23@;
stringscriptline06=@"alert('网页的统计结果：\r\n链接数：'+numLinks+" @H_502_23@;
stringscriptline07=@"'\r\n表单数：'+numForms+" @H_502_23@;
stringscriptline08=@"'\r\n图像数：'+numImages+" @H_502_23@;
stringscriptline09=@"'\r\n脚本数：'+numScripts);}" @H_502_23@;
stringscriptline10=@"ShowPageInfo();" @H_502_23@;

stringstrScript=scriptline01+scriptline02+scriptline03+scriptline04+scriptline05+
@H_502_23@scriptline06 @H_502_23@+scriptline07+scriptline08+scriptline09+ @H_502_23@scriptline10;

IHTMLWindow2win= @H_502_23@(IHTMLWindow2)webBrowser.Document.Window.DomWindow;
win.execScript(strScript,"Javascript");

OK，今天就写到这里吧，再想起什么来再补充吧。欢迎大家多多指正，欢迎讨论。

其它备注：

如何获取引发单击（onclick）事件的网页元素？
我将网页上两个文本框元素 添加事件处理程序：

VB.NET code 
htmldocuments=webbrowser1.document
htmldocuments.GetElementById("YYYY").AttachEventHandler("onfocus",AddressOf LabelShow)
htmldocuments.GetElementById("XXXX").AttachEventHandler("onfocus",AddressOf LabelShow)

Private Sub LabelShow
  '在此处，我如何才能得到处发这个事件的元素ID，也就是YYYY或是XXXX

End Sub



非常着急。

------解决方案--------------------------------------------------------

VB.NET code 
    Private Sub LabelShow(sender As Windows.Forms.HtmlElement,e As EventArgs)

    End Sub

------解决方案--------------------------------------------------------
要想获得你想要的id 那这个自定义函数的委托要正确，换句话说自定义函数跟触发条件的签名是要一致的，楼上的兄弟已经给你样板了。

猜你在找的VB相关文章

VB Format函数
Format[$] ( expr [ , fmt ] ) format 返回变体型 format$ 强制返回为文本 --------------...
vb6/ASP FORMAT MM/DD/YYYY
VB6或者ASP 格式化时间为 MM/dd/yyyy 格式，竟然没有好的办法， Format 或者FormatDateTi...
VB.net 捕获项目全局异常
在项目中添加如下代码：新建窗口来显示异常信息。 Namespace My ‘全局错误处理，新的...
实现用VB.Net/(C#)开发K/3 BOS 插件的真正可行方法
转了这一篇文章，原来一直想用C#做k3的插件开发，vb没有C#用的爽呀，这篇文章写与2011年，...
vb，wps，excel 分裂
Sub 分列() ‘以空格为分隔符，连续空格只算1个。对所选中的单元格进行处理 Dim m...
VB.NET MYSQL DataGridView 增删改查（INSERT,SELECT,UPDATE,DELETE）
  Imports MySql.Data.MySqlClient Public Class Form1 ‘ GLOBAL DECLARATIONS ...
VB.NET 使用ADODB連接資料庫滙出到EXCEL
‘導入命名空間 Imports ADODB Imports Microsoft.Office.Interop   Private Sub A1() Di...
vb.net 多线程運用 ping
Imports System.IO Imports System.Threading Imports System.Diagnostics Public Class F...
VB等待进程结束
VB运行EXE程序，并等待其运行结束 参考：https://blog.csdn.net/useway/article/details/5...
vb中去掉string数组的一部分
今天碰到一个问题，登陆的时候，如果不需要验证手机号为空，则不去验证手机号 因为登陆的时...
PHPJavaJava SEPythonC#C&C++RubyVBasp.NetGoPerlnettyDjangoDelphiJsp.NET CoreSpringFlaskSpringbootSpringMVCLuaLaravelMybatisAspGroovyThinkPHPYiiswoole
文件时间pythonm相等性PHP Warning时间问题问题解决pcntl_signal采样点wav模块动态文本调用频率限制对外暴露多个访问请求更新数据表模型结构type()方法比较速度手写体sobel算子保存模型Image类nn.Conv2dpytorch1.0kaggleDCGAN交并比range()用法打印模型反卷积卷积