[VB.NET] شرح انشاء برنامج لتسجيل الدخول للمنتدى

كود :

Dim CC As New CookieContainer

    Dim RQ As HttpWebRequest

    Dim RP As HttpWebResponse

    Public Function GetResponse(ByVal url As String, ByVal referer As String) As String

        RQ = CType(HttpWebRequest.Create(url), HttpWebRequest)

        RQ.CookieContainer = CC



        If referer <> "" Then

            RQ.Referer = referer

        End If



        RP = CType(RQ.GetResponse(), HttpWebResponse)



        Return New StreamReader(RP.GetResponseStream()).ReadToEnd()

    End Function



    Public Function GetResponse(ByVal url As String, ByVal post As String, ByVal referer As String) As String

        RQ = CType(HttpWebRequest.Create(url), HttpWebRequest)

        RQ.Method = "POST"

        RQ.CookieContainer = CC

        RQ.UserAgent = "AppleWebKit/537.36 (KHTML, like Gecko) Mozilla/5.0 (Windows NT 6.1) Chrome/28.0.1468.0 Safari/537.36"



        If referer <> "" Then

            RQ.Referer = referer

        End If



        Dim byteArr() As Byte = Encoding.Default.GetBytes(post)

        RQ.ContentLength = byteArr.Length



        Dim dataStream As Stream = RQ.GetRequestStream()

        dataStream.Write(byteArr, 0, byteArr.Length)



        RP = CType(RQ.GetResponse(), HttpWebResponse)



        Return New StreamReader(RP.GetResponseStream()).ReadToEnd()

    End Function

كود :

Dim html As String = GetResponse("http://vb4arb.com/vb/member.php?action=login/", "")

        Dim token As String = html.Substring(html.IndexOf("csrfmiddlewaretoken")).Split(""""c)(2)

        Dim username As String = TextBox1.Text

        Dim password As String = TextBox2.Text



        Dim S_B As New StringBuilder

        S_B.Append("csrfmiddlewaretoken=" & token)

        S_B.Append("&username=" & username)

        S_B.Append("&password=" & password)



        html = GetResponse("http://vb4arb.com/vb/member.php?action=login", S_B.ToString, "http://vb4arb.com/vb/member.php?action=login/")



        If html.Contains("""username"":""" & username) Then

            MsgBox("Successfully Logged In", MessageBoxIcon.Information)

        ElseIf html.Contains("Please enter a correct username and password.") Then

            MsgBox("Invalid Username or Password", MessageBoxIcon.Error)

        Else

            MsgBox("Unable Login Error", MessageBoxIcon.Error)

        End If