Browsergame als "Exe"

  • VB.NET

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von Artentus.

    Browsergame als "Exe"

    Hi ihr,

    ich wollte mir mit VB 2010 das Spiel "Schulterglatze" als Exe bereitstellen,
    nun scheitere ich aber :
    Der Login Button hatte keine ID / Name also habe ich den Code

    VB.NET-Quellcode

    1. ​WebBrowser1.Document.Forms(0).InvokeMember("submit")

    benutzt.
    Aber immer wenn ich mich automatisch einlogge, dann hänge ich im Dauer-Refresh Modus fest (ich nenne es einfach mal so) und die Seite hört auch nicht auf sich zu refreshen.
    Ich poste mal den ganzen Code hier rein und hoffe ihr könnt mir helfen das Submitten zu stoppen :

    VB.NET-Quellcode

    1. ​
    3. Class Form1
    4. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    5. WebBrowser1.AllowNavigation = True
    6. WebBrowser1.Navigate("http://speed2.schulterglatze.de/")
    7. End Sub
    8. Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
    9. Dim theElementCollection As HtmlElementCollection
    10. theElementCollection = WebBrowser1.Document.GetElementsByTagName("input")
    11. For Each curElement As HtmlElement In theElementCollection
    12. Dim controlName As String = curElement.GetAttribute("name").ToString
    13. If controlName = "loginname" Then
    14. curElement.SetAttribute("Value", "MEINNAME")
    15. ElseIf controlName = "loginpwd" Then
    16. curElement.SetAttribute("Value", "MEINPASSWORT")
    17. End If
    18. Next
    19. theElementCollection = WebBrowser1.Document.GetElementsByTagName("input")
    20. For Each curElement As HtmlElement In theElementCollection
    21. WebBrowser1.Document.Forms(0).InvokeMember("submit") '<----- Der Übeltäter xD
    22. Next
    23. End Sub
    24. End Class



    vielleicht hab ich ja Glück und ihr könnt mir unter die Arme greifen ;)

    Danke im voraus

Facebook
Telefonspende