[Hilfe VB 10] komme beim Bot schreiben nicht weiter

12/05/2011 18:15 XipeTotec#1
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
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
12/05/2011 19:42 .exTremez™#2
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 
12/05/2011 20:16 XipeTotec#3
@ .exTremez™ danke erstmal für deine Mühe !

Button löst leider weiterhin nicht aus.

Gruß Xipe
12/05/2011 20:23 .exTremez™#4
Im Webbrowser habe ich mal als test: [Only registered and activated users can see links. Click Here To Register...] geladen
und es hat geklappt bei mir
12/05/2011 20:30 XipeTotec#5
ok danke jetzt hat es auch geklappt.

Gruß Xipe
12/19/2011 21:36 XipeTotec#6
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.
12/19/2011 21:55 Kraizy​#7
Naja, die Namen stehen ja wahrscheinlich im Quelltext. Da kannste die dann rausfiltern.