WebBrowser执行脚本和调用外部方法

控制WebBrowser实际上就是控制IE，最简单的方法就是执行javascript或vbscript，省去了接口的转换。
如何执行脚本？以前我一直用mshtml中IHTMLWindow2接口的execScript()方法，在Delphi中需要uses MSHTML单元：

  1. uses MSHTML;
  3. procedure TForm1.Button1Click(Sender: TObject);
  4. begin
  5.   (WebBrowser1.Document as IHTMLDocument2).parentWindow.execScript(
  6.     'alert("hello");', 'javascript')
  7. end;

在CSharp中则需要在工程添加Micrsoft.mshtml，后来得到在地址栏执行脚本的启发。用WebBrowser的Navigate()方法更简单：

  1. procedure TForm1.Button1Click(Sender: TObject);
  2. begin
  3.   WebBrowser1.Navigate('javascript:alert("hello");')
  4. end;

省去了添加引用的麻烦。

如何调用外部的方法？先看一段在IE中添加收藏夹的代码：

  1. window.external.AddFavorite(url, title);

脚本中window.external对象就是一个外部对象，AddFavorite()则是这个外部对象的方法！
查了一下资料，原来可以通过IDocHostUIHandler接口的GetExternal()方法，指定脚本的外部对象。
在CSharp中更简单，有WebBrowser.ObjectForScripting属性直接对应window.external，参考如下代码：

    1. [ComVisible(true)] 
    2. public partial class Form1 : Form
    3. {
    4.     public Form1()
    5.     {
    6.         InitializeComponent();
    7.     }
    9.     private void Form1_Load(object sender, EventArgs e)
    10.     {
    11.         webBrowser1.DocumentText = @"
    12.             <html>
    13.                 <input type=""button"" value=""测试"" onclick=""alert('Zswang 路过');"">
    14.             </html>
    15.             ";
    16.     }
    18.     public void alertMessage(string s)
    19.     {
    20.         MessageBox.Show(s, "囧");
    21.     }
    23.     private void webBrowser1_DocumentCompleted(object sender, WebBrowserDocumentCompletedEventArgs e)
    24.     {
    25.         webBrowser1.Navigate(@"javascript:
    26.             function alert(str)
    27.             {
    28.                 window.external.alertMessage(str);
    29.             }");
    30.         webBrowser1.ObjectForScripting = this;
    31.     }
    32. }

 

http://blog.csdn.net/zswang/article/details/3020109

posted @ 2017-01-24 22:16  findumars  Views(2345)  Comments(0)  Edit  收藏  举报