Delphi中TWebBrowser中注入Js
最近帮朋友做一个软件,其中要自动化某网页中的操作,最简的操作是调用自己写的代码。
代码如下:
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可是个好东西。功能非常强大,但其又是把双刃剑。一定要仔细使用。
http://blog.csdn.net/diligentcatrich/article/details/16994391