Logindaten befüllen
28.08.2020 13:19:42
Alex
habe mir einen Code zum automatischen aufrufen einer Website und dem automatischen Eintragen der Zugangsdaten gebaut. Seite wird aufgerufen, eMail wird korrekt eingetragen. Der Klick auf den "Weiter"-Button funktioniert ebenfalls. Ich bekomme dann aber die Fehlermeldung, dass ich mich mit einer korrekten Adresse anmelden solle. Wenn ich jedoch händisch in das Eingabefeld klicke und auf weiter funkioniert alles wunderbar.
D.h. ich bräuchte in meinem untenstehenden Code noch einen Befehl der den Cursor in der Eingabemaske platziert. So zumindest jetzt mein Gedanke. Freue mich über jede Hilfe:
With ie
ie.Visible = True
ie.navigate "Homepage"
Do While .readyState 4: DoEvents: Loop
Application.Wait (Now + TimeValue("0:00:02"))
'set user name and password
Set htmlDoc = .document
Set htmlColl = htmlDoc.getElementsByTagName("INPUT")
Do While htmlDoc.readyState "complete": DoEvents: Loop
For Each htmlInput In htmlColl
If htmlInput.Name = "loginfmt" Then
htmlInput.Value = "eMail-Adresse"
(Hier bräuchte ich den Befehl)
Else
If htmlInput.Name = "pass" Then
htmlInput.Value = "PASSWORT"
End If
End If
Next htmlInput
'click login
Set login = htmlDoc.getElementById("idSIButton9")
'login.submit
Do While .readyState 4: DoEvents: Loop
Application.Wait (Now + TimeValue("0:00:02"))
login.Click
Set htmlDoc = Nothing
Set ie = Nothing
End With
Vielen Dank und viele Grüße Alex