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

شكرا لكم

وجدت الحل
كود Visual Basic

Try
Dim container As ************************Container = Nothing
Dim s As String = "&email=email&pass=pass"
Dim mycontainer2 As New ************************Container()
Dim bytes As Byte() = New UTF8Encoding().GetBytes(s)
Dim request As HttpWebRequest = DirectCast(WebRequest.Create("https://m.facebook.com/login.php"), HttpWebRequest)
request.Method = "POST"
request.KeepAlive = True
request.************************Container = mycontainer2
request.ContentType = "application/x-www-form-urlencoded"
request.Referer = "https://m.facebook.com"
request.UserAgent = "Mozilla/5.0 (Windows NT 6.1) AppleWebKit/535.2 (KHTML, like Gecko) Chrome/15.0.874.121 Safari/535.2"
request.ContentLength = bytes.Length
request.GetRequestStream().Write(bytes, 0, bytes.Length)
Dim response As HttpWebResponse = Nothing
response = DirectCast(request.GetResponse(), HttpWebResponse)
mycontainer2.Add(response.************************s)
container = mycontainer2
Dim str2 As String = New StreamReader(response.GetResponseStream()).ReadToEnd()
RichTextBox1.Text = str2
WebBrowser1.DocumentText = str2
'MessageBox.Show("done")
Catch ex As Exception
MsgBox(ex.Message)
End Try