[Hilfe VB 10] komme beim Bot schreiben nicht weiter

[XipeTotec]

Hallo Leutz,

Ich bin noch in der Lernphase und schreibe gerade an ein kleinen Bot zur Internetseite von Jappy.de.

derzeit arbeite ich noch mit ein Browserfenster wo der Login über diesem erfolgt.
jetzt wollte ich aber das über eine Loginforms (erstmal über die selber später über eine andere so das die 2. Forms erst geladen ist wenn Anmeldung richtig war( will aber klein anfangen)) der Automatische Login erfolgt sprich das der die Loginfelder automatisch befüllt und über ein eigenen Button den Loginbutton der website auslöst.

Ich habe nur eine Form. leider wird der Button von der Seite nicht ausgelöst wenn ich die form auf 1 setze löst er zwar aus nimmt aber Loginname sowie Passwort nicht an sprich die Seite meldet das PW oder Loginname nicht richtig sind( obwohl sie es sind)

hier ein ausschnitt vom Code

 Private Sub txtUser_TextChanged(sender As System.Object, e As System.EventArgs) Handles txtUser.TextChanged
        WebBrowser1.Document.GetElementById("login[u]").SetAttribute("value", txtUser.Text)
    End Sub

    Private Sub txtPasswort_TextChanged(sender As System.Object, e As System.EventArgs) Handles txtPasswort.TextChanged
        WebBrowser1.Document.GetElementById("login[p]").SetAttribute("value", txtPasswort.Text)
    End Sub
    Private Sub crmLogin_Click(sender As System.Object, e As System.EventArgs) Handles crmLogin.Click
        
        WebBrowser1.Document.Forms(0).InvokeMember("submit")

Ich weiß für die meisten sicher ein leichtes aber für ein Anfänger sind es meist schon Kleinigkeiten über die man stolpert. für Hilfe oder Pm´s wäre ich dankbar.

Gruß Xipe

[.exTremez™]

PHP Code:

Private Sub txtUser_TextChanged(sender As System.Object, e As System.EventArgs) Handles txtUser.TextChanged
        WebBrowser1.Document.GetElementById("login[u]").SetAttribute("value", txtUser.Text)
    End Sub

    Private Sub txtPasswort_TextChanged(sender As System.Object, e As System.EventArgs) Handles txtPasswort.TextChanged
        WebBrowser1.Document.GetElementById("login[p]").SetAttribute("value", txtPasswort.Text)
    End Sub

    Private Sub crmLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles crmLogin.Click
        For Each element As HtmlElement In WebBrowser1.Document.GetElementsByTagName("button")
            If element.GetAttribute("name") = "Submit" Then
                element.InvokeMember("click")
            End If
        Next
End Sub 


[XipeTotec]

@ .exTremez™ danke erstmal für deine Mühe !

Button löst leider weiterhin nicht aus.

Gruß Xipe

[.exTremez™]

Im Webbrowser habe ich mal als test: geladen
und es hat geklappt bei mir

[XipeTotec]

ok danke jetzt hat es auch geklappt.

Gruß Xipe

[XipeTotec]

Hallo Leutz,

ich bins mal wieder. habe nun fleißig weiter geschrieben auch wenn ich auf Grund Arbeit nicht soviel Zeit habe.

Ich wollte gerne jetzt meine Freundesliste von der Jappyseite auslesen und in einer Listbox im Bot wiedergeben(anzeigen).Wenn möglich mit Onlinestatus in dem der Name dann Grün angezeigt wird.

Für Hilfe, Tipps und Ideen bin ich offen. Es müssen auch nur Ansetze sein und nicht komplette Lösungen. möchte mir auch was selber erarbeiten.

Auf Antwort oder PM´s würde ich mich freuen.

[Kraizy​]

Naja, die Namen stehen ja wahrscheinlich im Quelltext. Da kannste die dann rausfiltern.