http://www.xuebuyuan.com/1701620.html

Delphi中TWebBrowser中注入Js

2014年01月08日 ⁄ 综合 ⁄ 共 409字 ⁄ 字号 小 中 大 ⁄ 评论关闭

最近帮朋友做一个软件，其中要自动化某网页中的操作，最简的操作是调用自己写的代码。

代码如下：

procedure TForm1.Button2Click(Sender: TObject);
var
  i:integer;
  h:IHTMLHeaderElement;
  o:OleVariant;
begin
  o:=webbrowser1.OleObject.document.createElement('script');
  o.type:='text/javascript';
  o.text:='var a=1;alert(document);';
  WebBrowser1.OleObject.document.getElementsByTagName('head').item(0).appendChild(o);
end;

注意:WebBrowser中的OleObject可是个好东西。功能非常强大，但其又是把双刃剑。一定要仔细使用。