Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1776to1780
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Logindaten befüllen

Logindaten befüllen
28.08.2020 13:19:42
Alex
Schönen guten Tag zusammen,
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
doppelt (kwT)
28.08.2020 13:21:03
Zwenn

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige