Webbrowser js-Links auslesen

[API]

Zitat von marabu:

Hallo,

ich habe dann aber doch mal reingeschaut ...

Die Aufrufe von JavaScript-Code findest du, wenn du über alle Attribute des Dokuments iterierst. Beginnt der Attributname mit "on", dann handelt es sich in der Regel um ein Event und du kannst den Attributwert näher untersuchen um deine JS-Links zu extrahieren.

Grüße vom marabu

danke, funktioniert:

PS: Titel geändert.

Delphi-Quellcode:

function GetElementOnClick(Element: IHTMLElement): string;
var
  AttrCollection: IHTMLAttributeCollection;
  DOMAttribute: IHTMLDOMAttribute;
  j: Integer;
  DomNode: IHTMLDomNode;
  Dispatch: IDispatch;
  oVar: OleVariant;
begin
  Result := '';
  DomNode := Element as IHTMLDomNode;
  if DomNode <> nil then
  begin
    AttrCollection := DomNode.attributes as IHTMLAttributeCollection;
    if AttrCollection <> nil then
    begin
      for j := 0 to AttrCollection.length - 1 do
      begin
        oVar := j;
        Dispatch := AttrCollection.item(oVar);
        if ASSIGNED(Dispatch) then
        begin
          DOMAttribute := Dispatch as IHTMLDOMAttribute;
          if ASSIGNED(DOMAttribute) then
          begin
            try
              if DOMAttribute.nodeName = 'onclick' then
              begin
                Result := DOMAttribute.nodeValue;
              end;
            except
            end;
          end;
        end;
      end;
    end;
  end;
end;