07-02-17, 01:58 PM
السلام عليكم
HttpWebRequest مشكل في تسجيل الدخول في الفيسبوك ,,, مشكل .تفعيل الكوكيز بالركم من اني فعلته
هذا هو الكود الذي استعمته
poste data استخرجته كما هو من http live للفيرفوكس
هذي هي النتيجة
<img src="http://store6.up-00.com/2017-02/148645840668511.jpg" class="bbCodeImage LbImage" alt="[IMG]" data-url="http://store6.up-00.com/2017-02/148645840668511.jpg">
عملت اكتيف للكوكيز في انترنت اكسبلورل و كروم و فايرفوكس
<img src="http://store6.up-00.com/2017-02/148645858441941.jpg" class="bbCodeImage LbImage" alt="[IMG]" data-url="http://store6.up-00.com/2017-02/148645858441941.jpg">
HttpWebRequest مشكل في تسجيل الدخول في الفيسبوك ,,, مشكل .تفعيل الكوكيز بالركم من اني فعلته
كود :
Imports System.Net
Imports System.IO
Imports System.Text
Public Class Form1
Private Property logincookie As CookieContainer
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim postData As String = "lsd=AVpqjwzC&email=mn4%40gmail.com&pass=abcd&timezone=-60&lgndim=eyJ3IjoxMzY2LCJoIjo3NjgsImF3IjoxMzY2LCJhaCI6NzI4LCJjIjoyNH0%3D&lgnrnd=230104_8Lyp&lgnjs=1486396862&ab_test_data=AAAAAAAAAAAAAAAAA%2FAVAVAAAAVAAAAAAAAAAAAAJJbtk%2FkAAAEFAJ&locale=fr_FR&next=https%3A%2F%2Fwww.facebook.com%2F"
Dim tempC oo kies As New Coo kie Container
Dim encoding As New UTF8Encoding
Dim byteData As Byte() = encoding.GetBytes(postData)
Dim postReq As HttpWebRequest = DirectCast(WebRequest.Create("Log into Facebook | Facebook"), HttpWebRequest)
postReq.Method = "POST"
postReq.KeepAlive = True
postReq.Coo kieCo ntainer = tempC ookies
postReq.ContentType = "application/x-www-form-urlencoded"
postReq.Referer = "Log into Facebook | Facebook"
postReq.UserAgent = "Mozilla/5.0 (compatible; MSIE 10.0; Windows NT 6.1; WOW64; Trident/6.0; SLCC2; .NET CLR 2.0.50727; .NET CLR 3.5.30729; .NET CLR 3.0.30729; Media Center PC 6.0; InfoPath.3; .NET4.0C; .NET4.0E)"
postReq.ContentLength = byteData.Length
Dim postreqstream As Stream = postReq.GetRequestStream()
postreqstream.Write(byteData, 0, byteData.Length)
postreqstream.Close()
Dim postresponse As Http Web Response
postresponse = DirectCast(postReq.GetResponse(), Http Web Response)
temp Co okies.Add(postresponse.Coo kies)
login co okie = tempCo okies
Dim postreqreader As New StreamReader(postresponse.GetResponseStream())
Dim thepage As String = postreqreader.ReadToEnd
TextBox1.Text = thepage
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Clipboard.SetText(TextBox1.Text)
TextBox1.Focus()
TextBox1.SelectAll()
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
WebBrowser1.DocumentText = TextBox1.Text
End Sub
End Class
هذا هو الكود الذي استعمته
poste data استخرجته كما هو من http live للفيرفوكس
هذي هي النتيجة
<img src="http://store6.up-00.com/2017-02/148645840668511.jpg" class="bbCodeImage LbImage" alt="[IMG]" data-url="http://store6.up-00.com/2017-02/148645840668511.jpg">
عملت اكتيف للكوكيز في انترنت اكسبلورل و كروم و فايرفوكس
<img src="http://store6.up-00.com/2017-02/148645858441941.jpg" class="bbCodeImage LbImage" alt="[IMG]" data-url="http://store6.up-00.com/2017-02/148645858441941.jpg">