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
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 :
vielleicht hab ich ja Glück und ihr könnt mir unter die Arme greifen
Danke im voraus
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
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
-
- Class Form1
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- WebBrowser1.AllowNavigation = True
- WebBrowser1.Navigate("http://speed2.schulterglatze.de/")
- End Sub
- Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
- Dim theElementCollection As HtmlElementCollection
- theElementCollection = WebBrowser1.Document.GetElementsByTagName("input")
- For Each curElement As HtmlElement In theElementCollection
- Dim controlName As String = curElement.GetAttribute("name").ToString
- If controlName = "loginname" Then
- curElement.SetAttribute("Value", "MEINNAME")
- ElseIf controlName = "loginpwd" Then
- curElement.SetAttribute("Value", "MEINPASSWORT")
- End If
- Next
- theElementCollection = WebBrowser1.Document.GetElementsByTagName("input")
- For Each curElement As HtmlElement In theElementCollection
- WebBrowser1.Document.Forms(0).InvokeMember("submit") '<----- Der Übeltäter xD
- Next
- End Sub
- End Class
vielleicht hab ich ja Glück und ihr könnt mir unter die Arme greifen
Danke im voraus