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

前端之家收集整理的这篇文章主要介绍了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源代码如下:

<html>
<body>

<inputtype="button"id="btnClose"value="关闭"/>

</body>

</html>

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

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

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

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

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

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

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


Study Case 2:表单(form)的自动填写和提交

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

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

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

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

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

btnSubmit.InvokeMember(
"click");

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

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

HtmlElementformLogin=webBrowser.Document.Forms["loginForm" ];
//……

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;)

publicpartialclass SearchDemo:Form
{
//建立一个查找用的TextRange(IHTMLTxtRange接口)

privateIHTMLTxtRangesearchRange=null ;
public
SearchDemo()
{
InitializeComponent();
}

privatevoidbtnSearch_Click(object
sender,EventArgse)
{
//Document的DomDocument属性,就是该对象内部的COM对象。

IHTMLDocument2document= (IHTMLDocument2)webBrowser.Document.DomDocument;
stringkeyword=
txtKeyword.Text.Trim();
if(keyword==""
)
return
;

//
IE的查找逻辑就是,如果有选区,就从当前选区开头+1字符处开始查找;没有的话就从页面最初开始查找。
//这个逻辑其实是有点不大恰当的,我们这里不用管,和IE一致即可。

if(document.selection.type.ToLower()!="none" )
{
searchRange
=
(IHTMLTxtRange)document.selection.createRange();
searchRange.collapse(
true
);
searchRange.moveStart(
"character",1
);
}
else

{
IHTMLBodyElementbody
= (IHTMLBodyElement)document.body;
searchRange
=
(IHTMLTxtRange)body.createTextRange();
}

//如果找到了,就选取(高亮显示)该关键字;否则弹出消息。

if(searchRange.findText(keyword,1,0 ))
{
searchRange.select();
}
else

{
MessageBox.Show(
"搜索到文档结尾。" );
}
}
}

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

Study Case 4:高亮显示

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

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

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

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

publicpartialclass HilightDemo:Form
{
//定义高亮显示效果标签

stringtagBefore="<spanstyle='background-color:yellow;color:black'>"
;
stringtagAfter="</span>"
;

//……


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

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

mshtml.IHTMLTxtRangetxtrange
=oTextRangeas
mshtml.IHTMLTxtRange;

while(txtrange.findText(keyword,4
))
{
try

{
txtrange.pasteHTML(tagBefore
+keyword+
tagAfter);
}
catch
{}
txtrange.collapse(
false
);
}
}
}


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

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

publicpartialclass HilightDemo:Form
{
//……


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

HilightText(document,bodyNode,keyword);
}

privatevoidHilightText(HTMLDocumentdocument,IHTMLDOMNodenode,string
keyword)
{
//nodeType=3:text节点

if(node.nodeType==3
)
{
stringnodeText=
node.nodeValue.ToString();
//如果找到了关键字

if
(nodeText.Contains(keyword))
{
IHTMLDOMNodeparentNode
=
node.parentNode;
//将关键字作为分隔符,将文本分离,并逐个添加到原text节点的父节点

string[]result=nodeText.Split(newstring
[]{keyword},StringSplitOptions.None);
for(inti=0;i<result.Length-1;i++
)
{
if(result[i]!=""
)
{
IHTMLDOMNodetxtNode
=
document.createTextNode(result[i]);
parentNode.insertBefore(txtNode,node);
}
IHTMLDOMNodeorgNode
=
document.createTextNode(keyword);
IHTMLDOMNodehilightedNode
=(IHTMLDOMNode)document.createElement("SPAN"
);
IHTMLStylestyle
=
((IHTMLElement)hilightedNode).style;
style.color
="black"
;
style.backgroundColor
="yellow"
;
hilightedNode.appendChild(orgNode);

parentNode.insertBefore(hilightedNode,node);
}
if(result[result.Length-1]!=""
)
{
IHTMLDOMNodepostNode
=document.createTextNode(result[result.Length-1
]);
parentNode.insertBefore(postNode,node);
}
parentNode.removeChild(node);
}
//EndofnodeText.Contains(keyword)

}
else

{
//如果不是text节点,则递归搜索其子节点

IHTMLDOMChildrenCollectionchildNodes=node.childNodesas
IHTMLDOMChildrenCollection;
foreach(IHTMLDOMNodenin
childNodes)
{
HilightText(document,n,keyword);
}
}
}
}

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

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

<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:

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

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

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

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

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

stringstrScript=scriptline01+scriptline02+scriptline03+scriptline04+scriptline05+

scriptline06
+scriptline07+scriptline08+scriptline09+ scriptline10;

IHTMLWindow2win
=
(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相关文章