Banner klicken per twebbrowser?

[sniper_w]

So sollte es klappen:

Delphi-Quellcode:

uses
  WinInet,
  ActiveX,
  MSHTML;


function GetElementByID(WB: TWebBrowser; elementID: WideString; var element: IHTMLElement): Boolean;
begin
  try
    element := (WB.Document as IHTMLDocument3).getElementById(elementID) as IHTMLElement;
    Result := element <> nil;
  except
    Result := False;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Divelement, child: IHTMLElement;
  children: IHTMLElementCollection;
  i: Integer;
begin
  if GetElementByID( WebBrowser, 'contentl', DivElement) then
  begin
    children := Divelement.children as IHTMLElementCollection;
    for i := 0 to children.length-1 do
    begin
      child := children.item(i, '') as IHTMLElement;
      if child.tagName = 'A' then
      begin
        child.click;
        Break;
      end;
    end;
  end;
end;