MyBB Forum Login

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von pc-werkstatt.

    MyBB Forum Login

    Hi,

    ich habe eine Frage unzwar wie kann ich in Visual Basic 2010 eine Login Form machen, wo der Benutzer sein Usernamen und sein Passwort seines Mybb Forum Accounts eingibt und dieses dann von der Login Form überprüft wird???





    Danke schon im Vorraus!!! 8-)

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „KING HACKER“ ()

    Genau so eine Funktion habe ich vor kurzen gebraucht ^^

    Ich Poste dir hier meine Funktion, die ich mit Httpwebrequest geschrieben habe. Und nachdem sich die Funktion eingeloggt hat, geht sie direkt auf das Benutzerprofil des eingeloggten und speichert den Quelltext in der Variable Quelltext. =)

    Benutzung:

    VB.NET-Quellcode

    1. If Login ("http://webseite.de/", "igoe", "passwort") = true then
    3. end if


    VB.NET-Quellcode

    1. 'Login_Options
    2. Dim Login_ContentType As String = "application/x-www-form-urlencoded"
    3. Dim Login_UserAgent As String = "Mozilla/5.0 (Windows; U; Windows NT 5.1; de; rv:1.8.1.7) Gecko/20070914 Firefox/2.0.0.7"
    4. Dim Forum_Eingeloggt As Boolean = False
    5. Public Login_Benutzername As String
    6. Public Login_Passwort As String
    7. Dim Quelltext As String
    8. Dim _cookie As String
    10. Public Function Login(ByVal url As String, ByVal Login_Benutzername As String, ByVal Login_Passwort As String) As Boolean
    11. Dim data() As Byte = System.Text.Encoding.ASCII.GetBytes("action=do_login&url=" & url & "index.php&quick_login=1&quick_username=" & Login_Benutzername & "&quick_password=" & Login_Passwort & "&submit=Login&quick_remember=yes")
    12. Dim req As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create(url & "member.php")
    13. req.Method = ("POST")
    14. req.ContentType = Login_ContentType
    15. req.ContentLength = data.Length
    16. req.UserAgent = Login_UserAgent
    17. Dim dataStream As Stream = req.GetRequestStream()
    18. dataStream.Write(data, 0, data.Length)
    19. Dim res As System.Net.HttpWebResponse = req.GetResponse()
    20. Dim resStream As System.IO.Stream = res.GetResponseStream()
    21. Dim sr As New System.IO.StreamReader(resStream)
    22. Quelltext = (sr.ReadToEnd())
    24. If Quelltext.Contains("You have successfully been logged in") Or _
    25. Quelltext.Contains("erfolgreich eingeloggt") = True Then
    26. Forum_Eingeloggt = True
    27. sr.Close()
    28. Dim str As String
    29. Dim str2 As String()
    30. Dim strValue As String
    31. req = System.Net.HttpWebRequest.Create(url & "member.php?action=profile")
    32. For Each str In res.Headers
    33. str2 = res.Headers.GetValues(str)
    34. If str = "Set-Cookie" Then
    35. strValue = res.Headers.Get(str)
    36. strValue = strValue.Replace(",", "; ")
    37. req.Headers.Add("Cookie", strValue)
    38. End If
    39. Next
    40. res = req.GetResponse()
    41. resStream = res.GetResponseStream()
    42. sr = New System.IO.StreamReader(resStream)
    43. Quelltext = (sr.ReadToEnd())
    44. sr.Close()
    45. Forum_Eingeloggt = True
    46. Return True
    47. Exit Function
    48. Else
    49. Forum_Eingeloggt = False
    50. Return (False)
    51. End If
    52. End Function
    Liebe Grüße,
    C.O.D.E

    Testautomatisierung (TA):
    5%
    Du findest meinen Beitrag Hilfreich? :thumbup: Dann drück auf Hilfreich!