Ich versuche schon seit einer Weile Vergeblich folgenden Code mit WebKit in Visual Basic Express 2010 zum laufen zu bekommen. Mit dem Standart Webbrowser ließ sich ein Login Script eines Users aus einem anderen Programmiervorum perfekt ausführen, ich bin jedoch vollkommen ratlos, wo mein Fehler in der Modifizierung liegt.
Daher hier zunächst mein aktueller Login Code:
Im Detail liegt das Problem meines Erachtens an:
Ohne die Definierung als HtmlElementCollection funktioniert auch der Rest, zB:
nicht mehr!
Daher folgende Frage: Kann mir jemand den Code so anpassen, dass ein Login auf der angegebenen Website über das Webkit funktioniert (automatisiert) oder mir eine radikale Änderung anbieten, die es ermöglicht mit vorher bekanntem Namen und Passwort einen Login durchzuführen, ohne dass der User am ende einen Klick tätigen muss?
Vielen herzlichen Dank im Vorraus,
Grüße
RiX
⇄
Sprache erkennen » German
⇄
Sprache erkennen » German
Daher hier zunächst mein aktueller Login Code:
VB.NET-Quellcode
- Private Sub Login()
- AlleFelderAusgefüllt = False
- Try
- BattlelogBrowser.Navigate("https://www.ea.com/profile/login") ' Webseite laden
- Catch ex As Exception
- Beep()
- End Try
- Do While BattlelogBrowser.IsBusy = True ' Warten bis Webseite vollständig geladen
- Application.DoEvents()
- Loop
- Dim ElementListe
- If AlleFelderAusgefüllt = False Then
- ElementListe = BattlelogBrowser.Document.GetElementsByTagName("input")
- For Each Element In ElementListe ' Liste durchlaufen
- Select Case ("input")
- Case "email"
- Element.SetAttribute("Value", TextBox1.Text) ' Benutzername einfüllen
- AnzahlFelderAusgefüllt += 1
- Case "password"
- Element.SetAttribute("Value", TextBox2.Text) ' Passwort einfüllen
- AnzahlFelderAusgefüllt += 1
- End Select
- Next
- 'MessageBox.Show(AnzahlFelderAusgefüllt & " Felder ausgefüllt")
- AlleFelderAusgefüllt = True
- For Each Element In ElementListe
- If Element.GetAttribute("value").Equals("Login") Then
- 'MessageBox.Show("Klick /Submit wird ausgeführt")
- Element.InvokeMember("click") ' Klick ausführen
- BattlelogBrowser.Visible = True
- End If
- Next
- End If
- End Sub
Im Detail liegt das Problem meines Erachtens an:
Ohne die Definierung als HtmlElementCollection funktioniert auch der Rest, zB:
nicht mehr!
Daher folgende Frage: Kann mir jemand den Code so anpassen, dass ein Login auf der angegebenen Website über das Webkit funktioniert (automatisiert) oder mir eine radikale Änderung anbieten, die es ermöglicht mit vorher bekanntem Namen und Passwort einen Login durchzuführen, ohne dass der User am ende einen Klick tätigen muss?
Vielen herzlichen Dank im Vorraus,
Grüße
RiX
⇄
Sprache erkennen » German
⇄
Sprache erkennen » German