Rapidshare Account Checker Problem

    • Rapidshare Account Checker Problem

      Morgen
      Also ich habe bei meinen Checker das Problem , dass das Label nicht angezeigt wird obwohl alles richtig gecodet sein müsste

      hier der code

      Quellcode

      1. Public Class Form1
      3. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      4. WebBrowser1.Navigate("https://ssl.rapidshare.com/premiumzone.html")
      5. End Sub
      7. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles check.Click
      8. WebBrowser1.Document.GetElementById("login").InnerText = TextBox1.Text
      9. WebBrowser1.Document.GetElementById("password").InnerText = TextBox2.Text
      10. WebBrowser1.Document.Forms(0).InvokeMember("submit")
      12. Do While WebBrowser1.ReadyState = WebBrowserReadyState.Complete
      13. Application.DoEvents()
      14. Loop
      16. Dim html As String = WebBrowser1.Document.All(1).OuterHtml
      17. If html.Contains("Das Konto wurde gefunden, aber das Passwort ist falsch.") Then
      18. status.Text = "Login fehlgeschlagen..."
      19. WebBrowser1.Navigate("https://ssl.rapidshare.com/premiumzone.html")
      20. End If
      22. If html.Contains("Das Konto wurde gefunden, aber das Passwort ist falsch.") Then
      23. status.Text = "Login fehlgeschlagen..."
      24. WebBrowser1.Navigate("https://ssl.rapidshare.com/premiumzone.html")
      25. Else
      26. status.Text = "Login erfolgreich..."
      27. WebBrowser1.Document.All("inhaltbox").InvokeMember("submit")
      28. WebBrowser1.Navigate("https://ssl.rapidshare.com/cgi-bin/premiumzone.cgi")
      29. End If
      30. End Sub
      31. End Class
      Alles anzeigen


      hoffe könnt mir helfen

    • Werbung zur Unterstützung des Forums ( Bitte AddBlocker deaktivieren )