Hallo zusammen,
ich habe mir ein kleines Login gebastelt, das sich auf einer Webseite einlogt was auch alles wunderbar klappt.
Nur wenn ich die Falschen Zugangsdaten angebe, sollte eine MsgBox erscheinen nur kommt diese nicht.
Jetzt sehe ich den Fehler nicht, evtl. kann mir jemand sage was ich Falsch mache !
Gruß Mario
ich habe mir ein kleines Login gebastelt, das sich auf einer Webseite einlogt was auch alles wunderbar klappt.
Nur wenn ich die Falschen Zugangsdaten angebe, sollte eine MsgBox erscheinen nur kommt diese nicht.
Jetzt sehe ich den Fehler nicht, evtl. kann mir jemand sage was ich Falsch mache !
Gruß Mario
VB.NET-Quellcode
- 'Start Button = Lesen der Daten und Login.
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- WebBrowser1.Visible = True
- Dim INI As New INIDatei
- INI.Pfad = My.Application.Info.DirectoryPath & "\IniDatei.ini"
- Me.WebBrowser1.Document.GetElementById("login[u]").InnerText = INI.WertLesen("Userdaten", "Username", "Username")
- Me.WebBrowser1.Document.GetElementById("login[p]").InnerText = INI.WertLesen("Userdaten", "Passwort", "Passwort")
- Me.WebBrowser1.Document.GetElementById("login[p]").Focus()
- SendKeys.Send("{ENTER}")
- While WebBrowser1.ReadyState <> WebBrowserReadyState.Complete
- Application.DoEvents()
- End While
- If Me.WebBrowser1.DocumentText.Contains("Login fehlgeschlagen") Then
- MsgBox("Login fehlgeschlagen", MsgBoxStyle.OkOnly)
- End If
- Me.MainMenuStrip.Enabled = True
- Me.Button1.Enabled = False
- End Sub
- End Class