ممكن شرح هذا الكود؟ - نسخة قابلة للطباعة

كود :

Dim cookieContainer As New CookieContainer()

    Dim cookies As New CookieCollection()

    Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click

        Dim getUrl As String = "https://www.facebook.com/login.php?login_attempt=1"

        Dim postData As String = [String].Format("email={0}&pass={1}", "ايميل", "باسورد")

        Dim getRequest As HttpWebRequest = DirectCast(WebRequest.Create(getUrl), HttpWebRequest)

        getRequest.CookieContainer = New CookieContainer()

        getRequest.CookieContainer.Add(cookies)

        'recover cookies First request

        getRequest.Method = WebRequestMethods.Http.Post

        getRequest.UserAgent = "Mozilla/5.0 (Windows NT 6.1) AppleWebKit/535.2 (KHTML, like Gecko) Chrome/15.0.874.121 Safari/535.2"

        getRequest.AllowWriteStreamBuffering = True

        getRequest.ProtocolVersion = HttpVersion.Version11

        getRequest.AllowAutoRedirect = True

        getRequest.ContentType = "application/x-www-form-urlencoded"

        Dim byteArray As Byte() = Encoding.ASCII.GetBytes(postData)

        getRequest.ContentLength = byteArray.Length

        Dim newStream As Stream = getRequest.GetRequestStream()

        'open connection

        newStream.Write(byteArray, 0, byteArray.Length)

        ' Send the data.

        newStream.Close()

        Dim getResponse As HttpWebResponse = DirectCast(getRequest.GetResponse(), HttpWebResponse)

        Using sr As New StreamReader(getResponse.GetResponseStream())

            Dim sourceCode As String = sr.ReadToEnd()

            'MsgBox(sourceCode)

            RichTextBox1.Text = sourceCode

        End Using

    End Sub