Login-Formular bei Ing-Diba ausfüllen

[Fritzmaier]

für mein kleines privates Bankingprogramm möchte ich den Login bei der Ing-Diba automatisieren.

hier die URl des Loginformulars:https://banking.ing-diba.de/DIBA?rqh=STARTUP&ZIEL=main

leider bekomme ich keinen Zugriff auf die 3 Eingabefelder.

mit dem üblichen Vorgehen:


var formitem:variant;
begin
FormItem := WebBrowser1.OleObject.Document.forms.Item(0);

erhält man mit formitem.item(0) Zugriff auf die beiden hidden INPUT-Felder "REQUEST_HANDLER" und mit formitem.item(1) auf "FUNKTION"
(was leider uninteressant ist)
das wars aber auch schon. Die eigentlichen Eingabefelder entziehen sich meinem Zugriff.


wie fülle ich "_USER" , "_PWD" und "_IDENT" aus ?


Danke Fritz

[marabu]

Hallo Fritz,

du hast zu früh aufgegeben - die Items 2, 3 und 4 sind _USER, _PWD und _IDENT. Den Inhalt verändern kannst du so:

Delphi-Quellcode:

uses
  MSHTML;

var
  f: IHTMLFormElement;
  doc: IHTMLDocument2;
begin
  doc := WebBrowser.Document as IHTMLDocument2;
  f := doc.forms.item(0, 0) as IHTMLFormElement;
  with f.item('_USER', 0) as IHTMLElement do
    innerText := 'USER';
end;

Grüße vom marabu

[Fritzmaier]

Danke, mit deiner Hilfe habe ich es hinbekommen
allerdings war es doch noch ein wenig schwierig, weil der Direktlink von oben nach Eingabe der Daten und submit zu einem Fehler führt.

Man muß vielmehr dieses Frameformular ausfüllen:
https://banking.ing-diba.de/OnlineBanking/index.html

und den richtigen Frame zu finden und darauf zuzugreifen, machte mir noch Probleme. Aber nun klappt alles.

Danke Fritz