c# - 将 Adsense 代码插入嵌入式浏览器后如何运行？

Question

我需要使用任何语言(Delphi、C++、C#)的 DOM API 将 Google 广告添加到页面。我可以使用 DOM 在网页中添加 Adsense 代码，但我如何才能触发它运行？

广告代码通常在document.load 事件中运行。如何将我的 函数附加到该事件？ (我也可以使用文档下载事件，但此事件与 DOM 不兼容。)

我需要将我的函数附加到 document.load，并且我需要在运行 Adsense Javascript 代码之前使用 DOM 功能来解析 HTML 代码。

Answer 1

使用 delphi 你可以做到这一点:

procedure TForm1.FormCreate(Sender: TObject);
begin
  WebBrowser1.Navigate('http://stackoverflow.com');
end;

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject; 
  const pDisp: IDispatch; var URL: OleVariant);
var
  Script: WideString;
begin
  Script := 'document.onload=alert("boo!");';
  if (pDisp as IWebBrowser) <> nil then
    ((pDisp as IWebBrowser).Document as IHTMLDocument2).parentWindow.execScript(Script, 'JScript');
end;

这里还有一些关于 sinking events with TWebBrowser 的附加信息.这可能对您有用。请注意:

TEventObject = class(TDebugInterfacedObject, IDispatch)应声明为:TEventObject = class(TInterfacedObject, IDispatch)