|
最近幫朋友做一個軟件，其中要自動化某網(wǎng)頁中的操作，最簡的操作是調(diào)用自己寫的代碼。
代碼如下：
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可是個好東西。功能非常強(qiáng)大，但其又是把雙刃劍。一定要仔細(xì)使用。 最近幫朋友做一個軟件，其中要自動化某網(wǎng)頁中的操作，最簡的操作是調(diào)用自己寫的代碼。
代碼如下：
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可是個好東西。功能非常強(qiáng)大，但其又是把雙刃劍。一定要仔細(xì)使用。
|
