Login Eintragen über DOM

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

'erstmal anklicken, dass man schon angemeldet ist Dim passwort As String 'den Anfang also: IEApp.Document muss du anpassen IEApp.Document.getElementById("registerORlogin_1").Checked = True Do While IEApp.Busy: DoEvents: Loop 'jetz deine Anmeldung ggf. nochanpassen IEApp.Document.getElementById("loginUsername").Value = ActiveSheet.Cells(1, 1) Do While IEApp.Busy: DoEvents: Loop 'ppasswort einlesen, könnte man noch ausbauen und prüfen, was eingegeben wurde passwort = InputBox(, "Passwort") IEApp.Document.getElementById("loginPassword").Value = passwort Do While IEApp.Busy: DoEvents: Loop 'jezt anmelden anklicken IEApp.Document.getElementById("loginButton").Click

Alles klar, das werde ich gleich ändern / testen.
Jedoch scheine ich leider noch einen Fehler in meiner "eingeloggt" Sub zu haben.
Diese wird über Workbook_open geöffnet:

Private Sub Workbook_Open()
Dim Datum As String
Datum = Format(Date, "dd.mm.yyyy")
Dim letztezeile As Long
With ThisWorkbook.Worksheets("Farm")
letztezeile = .Cells(Rows.Count, 6).End(xlUp).Row
'Abfrage ob es eine Spalte für heutige Einnahmen gibt
If .Range(cSchreibSpalte & "1").Value  Datum Then
.Columns(cSchreibSpalte & ":" & cSchreibSpalte).Insert Shift:=xlToRight, CopyOrigin: _
=xlFormatFromRightOrBelow
.Range(cSchreibSpalte & "1").Value = Format(Date, "dd.mm.yyyy")
.Range(cSchreibSpalte & letztezeile).Formula = "=SUM(" & cSchreibSpalte & "2:" &  _
cSchreibSpalte & letztezeile - 1 & ")"
End If
End With
Application.Wait (Now + TimeValue("00:00:02"))
Call eingeloggt
End Sub

Der Code ist dann der folgende:


Option Explicit
Public Sub eingeloggt()
Dim Server As Long
Dim URL As String
Dim oIE As Object
Dim knotenAst As Object
Dim bolLogin As Boolean
Server = ThisWorkbook.Worksheets("Einstellungen").Range("B1")
URL = "https://s" & Server & "-de.battleknight.gameforge.com/world"
'Internetexplorer starten
Set oIE = CreateObject("InternetExplorer.Application")
oIE.Visible = False
oIE.Navigate URL
' Warten, bis die Seite geladen ist
Do While oIE.busy: DoEvents: Loop
Set knotenAst = oIE.document.GetElementsByClassName("startFields")(0)
If Not knotenAst Is Nothing Then
bolLogin = False
Else
bolLogin = True
End If
'Explorer beenden
oIE.Quit
Set oIE = Nothing
ThisWorkbook.Worksheets("Einstellungen").Range("B6") = bolLogin
End Sub

Im eingeloggten Zustand ist alles tutti.
Im ausgeloggten Zustand bekomme ich manchmal den Fehler 438 (Objekt unterstützt Eigenschaft oder Methode nicht)
Die Stelle Set knotenAst ist dabei gelb.
Jedoch kann ich mir dies nicht erklären, denn wenn ich nicht eingeloggt bin (und die oben gepostete Seite geladen wird - was IMMER der Fall ist) muss das Objekt knotenAst doch gebildet werden können.
Wo ist denn hier mein Denkfehler?

Public Sub einloggen() Dim passwort As String Dim username As String Dim URL As String Dim oIE As Object URL = "https://de.battleknight.gameforge.com" username = "RitterRitter" passwort = "123456" 'Internetexplorer starten Set oIE = CreateObject("InternetExplorer.Application") oIE.Visible = True oIE.Navigate URL 'Warten bis Seite geladen ist Do While oIE.Busy: DoEvents: Loop oIE.Document.getElementById("registerORlogin_1").Checked = True 'jetz deine Anmeldung ggf. nochanpassen oIE.Document.getElementById("loginUsername").Value = username Do While oIE.Busy: DoEvents: Loop 'ppasswort einlesen, könnte man noch ausbauen und prüfen, was eingegeben wurde oIE.Document.getElementById("loginPassword").Value = passwort Do While oIE.Busy: DoEvents: Loop 'jezt anmelden anklicken oIE.Document.getElementById("loginButton").Click End Sub

Hallo Florian,
Deine neue Frage ist mir völlig durchgegangen die Woche über. Falls Du das hier noch liest (Thread verschwindet morgen im Archiv).
Der "Klick" kann auf der Seite niemals funktionieren, weil es sich bei dem Login Button um keinen Button als Formularelement handelt ;-) Deshalb gibt es die Methode click gar nicht für ihn. Das ist ein Link, der als solches aber nicht direkt angegeben ist.
Du musst also rausfinden, was der folgende Codeschnipsel auslöst. Ich denke mal, das dürfte mit Wireshark am einfachsten gehen. Sprich, Du musst Deinen Netzwerkverkehr mitschneiden, wenn Du einen Login durchführst und dann nachsehen, was weggeschickt wurde, als Du den Button angeklickt hast.


[a href="#" id="loginLink" class="startButton" tabindex="5"]
[span id="loginButton"]Login[/span]
[/a]

Viele Grüße,
Zwenn

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Login Eintragen über DOM

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread