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? :wall:


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

[DP-Maintenance]

Dieses Thema wurde von "Matze" von "Open-Source" nach "Internet / LAN / ASP.NET" verschoben.
Es handelt sich nicht um ein Open-Source-Programm.

[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 :

Delphi-Quellcode:

WebBrowser1.OleObject.document.forms.item(1).elements.item('user_name').value:='hallo';

Vielen Dank :thumb:

Gruß

[taktaky]

Hallo

mit der Felder hat funktioniert aber Login-Button nicht gefunden !!
alle Möglichkeit verwendet ohne erfolg:

Delphi-Quellcode:

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?

Delphi-Quellcode:

WebBrowser.OleObject.Document.Forms.item('login').Submit;

Oder den grafischen Button finden?

Delphi-Quellcode:

WebBrowser.OleObject.Document.Forms.item('login').all.namedItem('login').Click;

Grüße vom marabu

[taktaky]

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

Gruß

[taktaky]

Noch eine Frage :mrgreen:

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

[taktaky]

Zitat:

Zitat von 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

Hi

sehe Anhang. Ich möchte das Button "senden" und auch das Button "logout" klicken
Das Button Logout ist links in Bereich "PIA" . Es kann sein dass bei Dir die Bilder nicht angezeigt werden aber der Quellcode ist alles da.

[marabu]

Hallo,

das Prinzip ist das gleiche wie schon beim Login. Du schaust nach, wo das gesuchte Element sich befindet: Document oder Form oder Frame.Document? Der grafische Button "senden" befindet sich auf der Form "emailform". Da grafische Buttons nicht in der Form.Elements-Collection ausgewiesen werden, musst du über die all-Collection gehen:

Delphi-Quellcode:

WebBrowser.OleObject.Document.Forms.item('emailform').all.namedItem('senden').Click;

Beim Logout ist es etwas anders, hier liegt eine verweis-sensitive Grafik (map) vor. Die Map liegt direkt im Document und der sechste Bereich (area) löst das Logout aus:

Delphi-Quellcode:

WebBrowser.OleObject.Document.all.namedItem('pia_closed_links').areas(5).Click;

Getippt und nicht getestet.

PS: Wann hast du das letzte mal in deine DP-Mailbox geschaut?

[taktaky]

Hi vielen Dank für Deine Hilfe

mit dem Button "senden" funktioniert jetzt

Mit dem Button Logout, versuche ich immer noch :gruebel:

Und Danke auch für die Privat-Nachricht!

Gruß