<p>1、控制WebBrowser实际上就是控制IE,最简单的方法就是执行javascript或vbscript,省去了接口的转换。<br />如何执行脚本?以前我一直用mshtml中IHTMLWindow2接口的execScript()方法,在Delphi中需要uses MSHTML单元:</p> <p>usesMSHTML;</p> <p>procedureTForm1.Button1Click(Sender: TObject); <br />begin <br /> (WebBrowser1.Document as IHTMLDocument2).parentWindow.execScript('alert("hello");','javascript') <br />end;</p> <p><br />2、用WebBrowser的Navigate()方法更简单:</p> <p>procedureTForm1.Button1Click(Sender: TObject); <br />begin <br /> WebBrowser1.Navigate('javascript:alert("hello");') <br />end;</p> <p>省去了添加引用的麻烦。</p> Loading... <p>1、控制WebBrowser实际上就是控制IE,最简单的方法就是执行javascript或vbscript,省去了接口的转换。<br />如何执行脚本?以前我一直用mshtml中IHTMLWindow2接口的execScript()方法,在Delphi中需要uses MSHTML单元:</p> <p>usesMSHTML;</p> <p>procedureTForm1.Button1Click(Sender: TObject); <br />begin <br /> (WebBrowser1.Document as IHTMLDocument2).parentWindow.execScript('alert("hello");','javascript') <br />end;</p> <p><br />2、用WebBrowser的Navigate()方法更简单:</p> <p>procedureTForm1.Button1Click(Sender: TObject); <br />begin <br /> WebBrowser1.Navigate('javascript:alert("hello");') <br />end;</p> <p>省去了添加引用的麻烦。</p> 最后修改:2010 年 08 月 10 日 © 允许规范转载 打赏 赞赏作者 支付宝微信 赞 支持就是力量