Mail logIn : WebBrowser1.OleObject.document.forms.item(0)...

[taktaky]

Hallo

Felder ausfüllen klappt nicht bei allen Webseiten?

Bei googlemail geht

Delphi-Quellcode:

// seite aufrufen
procedure TForm1.Button17Click(Sender: TObject);
begin
Webbrowser1.Navigate('http://www.arcor.de/login/login.jsp');
end;

// Felder ausfüllen
procedure TForm1.Button2Click(Sender: TObject);
begin
WebBrowser1.OleObject.document.forms.item(0).elements.item('Email').value:='ich';
WebBrowser1.OleObject.document.forms.item(0).elements.item('Passwd').value:='geheim';
end;
...

// aber bei arcor geht es leider nicht !!
// seite aufrufen
procedure TForm1.Button13Click(Sender: TObject);
begin
Webbrowser1.Navigate('http://www.arcor.de/login/login.jsp');
end;

// Hier ist das Problem wenn ich die Felder ausfülle
procedure TForm1.Button14Click(Sender: TObject);
begin
WebBrowser1.OleObject.document.forms.item(0).elements.item('user_name').value:='meinName';
WebBrowser1.OleObject.document.forms.item(0).elements.item('password').value:='meinPasswort';
end;

Warum klappt bei arcor.de nicht?
Ich kann nicht die Felder von LogIn ausfüllen !

Delphi findet wahrscheinlich die Felder nicht, obwohl ich weiss wie die heissen und zwar
für UserName :user_name
Passwort: password

What to do?


Gruß

[FAlter]

Hi,

auf der Seite gibt es mehrere Formulare. Dein items(0) dürfte nicht das richtige sein.

websuche - 0
login - 1

Es gibt noch ein auskommentiertes drittes Form darin (für Passwort vergessen), aber wie gesagt auskommentiert.

mfg
FAlter

[taktaky]

Hallo

für Submit-Button kenne ich das Problem und die Lösung:
Wenn meherere Buttons gibt dann so:

Delphi-Quellcode:

ovElements := WebBrowser1.OleObject.Document.forms.item(0).elements;
          for i := 0 to (ovElements.Length - 1) do
              if (ovElements.item(i).type = 'submit') and (ovElements.item(i).Value = 'UPLOAD') then
                 begin
                      ovElements.item(i).Click;
                 end;

Für die Felder habe ich nicht gewusst!


also dann so :
WebBrowser1.OleObject.document.forms.item(1).elements.item('user_name').value:='hallo'; Vielen Dank

Gruß

[taktaky]

Hallo

mit der Felder hat funktioniert aber Login-Button nicht gefunden !!
alle Möglichkeit verwendet ohne erfolg:
WebBrowser1.OleObject.Document.Forms.item(0).elements.item('login').click;
wenn ich den Quellcode der Seite anschaue, finde ich den Index für das Button Login ist "3" :

Code:

tabindex="3" width="51" height="16" name="login"

Welche tabindex hat das Button LOGIN ? "3" ? geht auch nicht !!!

Gruß

[taktaky]

diese funktion findet auch das richtige Button nicht :
http://www.delphi-forum.de/viewtopic...9b1694ff5c17d7
ha jemand eine Idee?

wenn ich den Quellcode sehe, finde ich

tabindex="3" und name="login", diese habe ich eingetragen, trotzdem funktioniert nicht!


Gruß

[marabu]

Hallo,

willst du die Form abschicken?

WebBrowser.OleObject.Document.Forms.item('login').Submit; Oder den grafischen Button finden?

WebBrowser.OleObject.Document.Forms.item('login').all.namedItem('login').Click; Grüße vom marabu

[taktaky]

Hallo marabu
oh es geht, Problem gelöst. Danke!

Gruß

[taktaky]

Noch eine Frage

Was ist mit dem Button 'Logout' Klick. Wenn ich den Quellcode anschaue, sehe ich alles mit area und javascript gemacht. Ich finde kein tabindex!!!

Gruß

[marabu]

Wie kann ich dir da helfen? Logout ist ja erst nach Login möglich und ich habe keinen Account (will auch keinen). Wenn du magst, dann hänge das HTML-Dokument als ZIP an und habe etwas Geduld.

Freundliche Grüße