Login in Webseite

  • VB.NET

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

    Login in Webseite

    Hallo,

    ich möchte mich mit VB auf eine Webseite einloggen (ein Forum; Loginseite genau so aufgebaut wie hier). Mein Code:

    VB.NET-Quellcode

    1. WebBrowser1.Navigate("http://forum.......com/index.php?form=UserLogin")
    3. Do Until WebBrowser1.ReadyState = WebBrowserReadyState.Complete
    4. System.Threading.Thread.Sleep(10)
    5. Application.DoEvents()
    7. Loop
    8. If WebBrowser1.DocumentText.Contains("Der Zutritt zu dieser Seite ist Ihnen leider verwehrt. Sie besitzen nicht die notwendigen Zugriffsrechte, um diese Seite aufrufen zu können.") Then
    9. 'not logged in
    13. Debug.Write("nicht eingeloggt")
    14. WebBrowser1.Document.GetElementById("main").Children(1).SetAttribute("value", "Mein Username")
    15. WebBrowser1.Document.GetElementById("main").Children(3).SetAttribute("value", "Mein Passwort")
    16. 'WebBrowser1.Document.GetElementById("submitForm").InvokeMember("click")
    Aber weder das Feld für den benutzername noch das fürs Passwort wird ausgefüllt.

    Was mache ich falsch?

    Vielen Dank,

    Leseratte

    Versuch es mal so :)

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    4. Try
    5. Dim usr As String = InputBox("Bitte geben sie ihren Username ein", "Username")
    6. Dim psw As String = InputBox("Bitte geben sie ihr Passwort ein", "Password")
    7. WebBrowser1.Document.GetElementById("email").InnerText = usr.ToString
    8. WebBrowser1.Document.GetElementById("pass").InnerText = psw.ToString
    9. WebBrowser1.Document.Forms(0).InvokeMember("submit")
    10. Catch ex As System.Net.WebException
    11. MsgBox(ex.Message)
    12. End Try
    13. End Sub
    15. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    16. WebBrowser1.Navigate("Deine Webseite")
    17. End Sub
    18. End Class
    :D Ein Programm sollte nicht nur Hand und Fuß, sondern auch Herz und Hirn haben. (Michael Anton) :D

    MFG Jörg ;)

    Muss jeder vermeintliche Programmierer ne Signatur haben ??