Banner klicken per twebbrowser?

[sniper_w]

Wenn es schon eine ID gibt, kann man das dazugehörige Element finden. Ich habe mir dafür eine Funktion gebastelt:

Delphi-Quellcode:

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;

//
  if GetElementByID( WebBrowser, 'contentl', DivElement) then
  begin
    DivElement.click();
  end;