[bakriano30@yahoo.com]

اتفضل كود الدخول للفيس متنساش تكتب useragent

  Dim mycontainer2 As New CookieContainer()
   Sub login(user As String, pass As String)
       Dim s As String = String.Format("email={0}&pass={1}", user, pass)
       Dim bytes As Byte() = New UTF8Encoding().GetBytes(s)
       Dim request As HttpWebRequest = WebRequest.Create("https://m.facebook.com/login.php")
       request.Method = "POST"
       request.CookieContainer = mycontainer2
       request.ContentType = "application/x-www-form-urlencoded"
       request.UserAgent = useragent
       request.ContentLength = bytes.Length
       request.GetRequestStream().Write(bytes, 0, bytes.Length)
       Dim response As HttpWebResponse = Nothing
       response = DirectCast(request.GetResponse(), HttpWebResponse)
       mycontainer2.Add(response.Cookies)
       Dim url As String = (response.ResponseUri.ToString())
       If url.Contains("home.php") Then
'تم الدخول

           Else
'فشل الدخول
       End If

   End Sub

ممكن شرح ازاي اعمل 2 TEXT BOX للاميل والباسورد وزرار دخول وعند كتابه الاميل والباس في الTEXT BOX يدخل الي الفيس بوك ويعرض صوره الحساب في PICTR BOX