Web-Bot Quelltext Probleme

  • VB.NET

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von SeriTools.

    Web-Bot Quelltext Probleme

    Hallo liebe Community,
    wie ihr sicher seht, bin ich neu hier und habe auch direkt ein Problem mitgebracht, an dem ich schon eine satte Stunde sitze. Google hilft nix.
    Ich möchte einen Auto-Login Bot für Jappy.de machen. (Nein, das ist NICHT illegal!) Nun habe ich aus dem Quelltext heraus die ID für Passwort und username herausgefunden. Jedoch funktioniert der Type für den Login-Button nicht. Hier mal einen Auszug aus dem Quelltext und aus meinem Code:

    Quelltext:

    HTML-Quellcode

    1. <button type="submit" name="Submit" class="inCo ffA" style="font-size:12px;cursor:pointer;margin:0px;">Login</button>


    Code:

    VB.NET-Quellcode

    1. WebBrowser1.Document.GetElementById("login[u]").InnerText = TextBox2.Text
    2. WebBrowser1.Document.GetElementById("login[p]").InnerText = TextBox3.Text
    3. WebBrowser1.Document.Forms(0).InvokeMember("Submit")


    Der Quelltext ist doch eindeutig, oder? Keine andere Stelle im HTML-Code ist für den Login-Button zuständig.
    Ich hoffe auf Hilfe. Danke im Voraus.

    MfG
    HeyZel1

    nicht für den Login, aber evtl. für einen anderen POST...
    da ich nicht den Kompletten Quellcode habe, kann ich dir nicht sagen, ob es auch wirklich die Form 0 ist, evtl. sind ja noch andere dabei...du könntest aber auch den Button Klicken lassen...

    VB.NET-Quellcode

    1. WebBrowser1.Document.All.GetElementsByName("Submit")(0).InvokeMember("submit")
    Ich wollte auch mal ne total überflüssige Signatur:
    ---Leer---

    Danke schonmal. Jedoch heißt der Button auf der Jappy-Page "Login".
    Ach und es ist die einzige Form auf der Page. :)

    Edit: Ich habe jetzt versucht, ob es mit deinem Code klappt - vergebens.
    Er gibt zwar Username und Passwort ein, jedoch klickt er nicht den Login - Button.
    Ich kopier mal meinen ganzen Code hier hinein, den ich ein wenig umgeändert habe, da ich jetzt lieber ein Enter simulieren möchte.

    VB.NET-Quellcode

    1. Public Class Form1
    5. Event SendKeys(ByVal p1 As String)
    8. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    10. Me.Text = "Working..."
    11. Button1.Enabled = False
    12. Me.Cursor = Cursors.WaitCursor
    13. WebBrowser1.Navigate(TextBox1.Text)
    14. Application.DoEvents()
    16. Do While WebBrowser1.ReadyState <> WebBrowserReadyState.Complete
    17. Application.DoEvents()
    18. Loop
    20. WebBrowser1.Refresh()
    22. Me.Text = "Seite wurde geladen.l"
    23. Button1.Enabled = True
    24. Me.Cursor = Cursors.Arrow
    27. End Sub
    29. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    30. Timer1.Interval = 5000
    31. Timer1.Enabled = True
    32. AddHandler Timer1.Tick, AddressOf OnTimerEvent 'Genau hier ist eine Wellenlinie unter OnTimerEvent
    33. Timer1.Start(20)
    34. WebBrowser1.Document.GetElementById("login[u]").InnerText = TextBox2.Text
    35. Timer1.Stop(100)
    36. Timer1.Start(200)
    37. WebBrowser1.Document.GetElementById("login[p]").InnerText = TextBox3.Text
    38. Timer1.Stop(100)
    39. Timer1.Start(200)
    40. RaiseEvent SendKeys("Enter")
    41. Timer1.Stop()
    43. End Sub
    44. End Class



    PS: Ich weiß nicht wie ich OnTimerEvent deklarieren soll. Hab schon alles versucht. 8|

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „HeyZel1“ ()