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.net WebBrowser页面与WinForm交互技巧

相关推荐