[VB.NET] مساعدة فى تعديل كود VB.NET Http Web Request تسجيل الدخول الى موقع

السلام عليكم

عجبنى جدا Http Web Request

اكتر من ال web browser

وبحاول فهمها والتعمق فيها

المهم

حاولت عمل تسجيل الدخول الى الفيس بوك

الكود المستخدم

كود :

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

وكانت النتيجة

http://pastebin.com/raw/YhBSMrzb

ياترى سبب المشكلة ايه وايه حلها؟