[الماجيك مسعد]

اتفضل كود الدخول للفيس متنساش تكتب 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