Einloggen per VBA bei XING

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Ok | Anbei der relevante Code:


Sub XING_Login(ByRef ie As SHDocVw.InternetExplorer, username As String, password As String)

' Dieser Code ist ein Beispiel, um den Login-Prozess auf der XING Seite auf Nachfrage
' mit VBA SourceCode zu erklären
' Für einen sicheren Ablauf der Routine wären noch Fehlerbehandlungen erforderlich,
' die für das eigentliche Problem jedoch nicht relevant sind und den Code nur schwieriger
' lesbar gestalten würden
Dim document_XING_Login As HTMLDocument              ' das HTMLDocument zum Einloggen
Dim any_Collection As IHTMLElementCollection         ' eine Sammlung von Elementen
Dim any_Element As IHTMLElement                      ' irgendein Element
Dim inputField_Username As IHTMLElement              ' das Input-Element für den Usernamen
Dim inputField_Password As IHTMLElement              ' das Input-ELement für das Passwort
Dim button_Login As IHTMLElement                     ' die Schaltfläche zum Einloggen

' => Login-Seite aufrufen
' ============================================

' Zur Login-Seite navigieren
ie.Navigate "login.xing.com"

' Warten, bis die Seite geladen wurde
waitForReadiness ie

' Document übernehmen
Set document_XING_Login = ie.document

' => Elemente SUCHEN !!!
' ============================================

' Auf der Login-Seite von XING sind ID oder ClassName vieler Element nicht verfügbar,
' nicht statisch bzw. eindeutig.
' Entsprechend muss gesucht werden, weil ein gezielter, eideutiger und immer wieder
' funktionierender Zugriff nicht möglich ist.
' Beispiel:
' Der ClassName vom Input-Element für den Usernamen lautet
' "malt-input-Input-input-eb6b6d2b malt-input-Input-m-5119b60a malt-input-_
' Input-xdl-4238cb54"
' Die Zahlenwerte im Classname ändern sich über die Zeit und der Sub-String "input" findet
' sich auch in anderen Classnames wieder.
' Das Suchen über die zum Glück (noch statischen) Attribute bzw.
' Schaltflächen-Bezeichnungen ist aktuell zielführender.

' => Eingabe-Felder suchen
' ============================================

' Alle InputFields einsammeln
Set any_Collection = document_XING_Login.getElementsByTagName("input")

' Nach den beiden erforderlichen InputFields suchen
For Each any_Element In any_Collection
Select Case any_Element.getAttribute("name")
Case "username": Set inputField_Username = any_Element
Case "password": Set inputField_Password = any_Element
End Select
Next any_Element

' => Schaltfläche suchen
' ============================================

' Alle Schaltflächen einsammeln
Set any_Collection = document_XING_Login.getElementsByTagName("button")

' Nach der erforderlichen Schaltfläche suchen
For Each any_Element In any_Collection
If LCase(any_Element.innerText) Like "einloggen" Then
Set button_Login = any_Element
Exit For
End If
Next any_Element

' => Einloggen
' ============================================
If Not inputField_Username Is Nothing And _
Not inputField_Password Is Nothing And _
Not button_Login Is Nothing Then

' Alle Login-Elemente gefunden
' Username und Passwort setzen
inputField_Username.Value = username
inputField_Password.Value = password

' Den Login-Button clicken
button_Login.Click

' ACHTUNG
' Dieser CLICK führt auch manuell ausgeführt zum selbigen Ergebnis.
' Die eingetragenen Werte in den InputField verschwinden und es
' erscheint eine Fehlermeldung (was bei fehlenden Login-Daten auch
' verständlich ist)
' Entweder müssen "username & password" anders gesetzt oder
' ein Event muss danach bzw. während der Eingabe aktiviert werden.
' Leider kann ich keine Events an den Elemente finden und eine Suche
' im ganzen Dokument zeigt nur definierte onClick-Events ... allerdings
' nicht an den InputFields.
' ... und an dieser STELLE komme ich nun nicht weiter
Else

' ERROR
End If
End Sub

Hallo "Mumpel",
vielen Dank für Deine Mühe. Allerdings bist Du aktuell auf Nebenschauplätzen unterwegs.
1. ... mit Einloggen versuchen ...
Im Ergebnis einer LCASE-Anweisung auf Großbuchstaben zu testen, wird immer ein FALSE liefern. Hätte ich aber aufgrund eines solchen Fehlers die Schaltfläche nicht gefunden, wäre das aufgefallen.
Ich habe kein Problem damit, die Elemente zur Eingabe der Werte (InputFields) und zum Anklicken (Button) zu finden, sondern damit, dass die Werte von den InputFields nach der EIngabe zwar angezeigt aber beim Klick nicht verarbeitet/verwendet werden.
2. ... waitForRediness ...
Beim Automatisieren eines Browsers muss man darauf achten, dass nach dem NAVIGATE die Seite geladen wurde, bevor in weiteren Schritten auf diese zugegriffen wird. Das nachfolgende Vorgehen führt jedoch nie zu einem sicheren Ergebnis und wurde in vielen Beiträgen schon diskutiert.


While IE.Busy Or _
IE.ReadyState  READYSTATE_COMPLETE Or _
IE.document.ReadyState  READYSTATE_COMPLETE
DoEvents
Wend

Oft ist es zielführender, auf ein spezielles Element im HTMLDocument zu warten. In unserem Beispiel wäre es z.B. eine Schaltfläche mit der Beschriftung "Einloggen".
In meiner Wait-Routine warte ich
a. auf die erwartete URL (welche nicht zwingend die angesteuerte URL wg. Weiterleitung sein muss,
b. auf ein definiertes Element und prüfe dieses gegebenenfalls auf seine Eigenschaften ab und
c. warte nur eine vorgegeben Zeit, sonst Timeout + ErrorEvent.
Der Vorteil dieses Vorgehen ist, dass die Seite wirklich geladen ist und man nicht auf die unsichere Methode des IE's vertrauen muss. Der Nachteil besteht darin, dass für jede Seite eine eigene "waitForSomething"-Definition hinterlegt sein muss. Das Warten auf ETWAS kann in einer allgemeinen Funktion definiert werden, deren Parameter jedoch Seiten-typisch sein müssen. Hier würde ich jedoch ein anderes Thema aufmachen, was ich im Interesse meines Anliegens vorerst gern vermeiden möchte (zumal es dafür viele Beiträge im Netz zu finden gibt, was hingegen auf mein Problem nicht zutrifft).
Diese Routine hat aber auch nicht mit meinem Anliegen zu tun. Im Zweifel kann durch einen simplen Breakpoint im Debug-Mode das WARTEN selbst veranlasst und das erfolgte Laden der richtigen Seite im IE geprüft werden.
Mich beschäftigt aktuell alleinig das Problem, warum nach dem KLICK (den ich auch manuell im IE tätigen kann) die Werte aus den Feldern username und password nicht zur Anwendung kommen.
Um das Code-Beispiel zur Beschreibung meines Anliegens nicht zu kompliziert zu machen, habe ich diese Routine nur erwähnt, nicht aber mitgeliefert.
Ich bin überzeugt, dass derjenige, welcher mir an dieser Stelle weiterhelfen kann, diese Methode und deren Anliegen versteht. Der Hinweis auf diese Wait-Routine soll alleinig nur zeigen, dass auf die Verfügbarkeit des HTMLDocuments gewartet wurde.
Nochmals vielen Dank und mit den besten Wünschen für das Wochenende,
Torsten

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

57 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Einloggen per VBA bei XING

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

57 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread