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

最新推荐文章于 2019-08-12 21:06:10 发布

王集鹄

最新推荐文章于 2019-08-12 21:06:10 发布

阅读量1.6w

点赞数

文章标签： webbrowser 脚本 javascript vbscript delphi button

本文链接：https://blog.csdn.net/zswang/article/details/3020109

版权

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

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

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

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

省去了添加引用的麻烦。

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

window.external.AddFavorite(url, title);

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

 
 [ComVisible(true)] 
public partial class Form1 : Form
{
    public Form1()
    {
        InitializeComponent();
    }
    private void Form1_Load(object sender, EventArgs e)
    {
        webBrowser1.DocumentText = @"
            <html>
                <input type=""button"" value=""测试"" οnclick=""alert('Zswang 路过');"">
            </html>
            ";
    }
    public void alertMessage(string s)
    {
        MessageBox.Show(s, "囧");
    }
    private void webBrowser1_DocumentCompleted(object sender, WebBrowserDocumentCompletedEventArgs e)
    {
        webBrowser1.Navigate(@"javascript:
            function alert(str)
            {
                window.external.alertMessage(str);
            }");
        webBrowser1.ObjectForScripting = this;
    }
}
 

王集鹄

关注

0
点赞
踩
10

收藏

觉得还不错? 一键收藏
5
评论
WebBrowser执行脚本和调用外部方法。

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

扫一扫