25-02-16, 02:18 AM
السلام عليكم
عجبنى جدا Http Web Request
اكتر من ال web browser
وبحاول فهمها والتعمق فيها
المهم
حاولت عمل تسجيل الدخول الى الفيس بوك
الكود المستخدم
وكانت النتيجة
http://pastebin.com/raw/YhBSMrzb
ياترى سبب المشكلة ايه وايه حلها؟
عجبنى جدا 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
ياترى سبب المشكلة ايه وايه حلها؟