+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] HttpWebRequest مشكل في تسجيل الدخول في الفيسبوك ,,, مشكل .تفعيل الكوكيز بالركم من اني (/showthread.php?tid=19143)
HttpWebRequest مشكل في تسجيل الدخول في الفيسبوك ,,, مشكل .تفعيل الكوكيز بالركم من اني - m r M T D R - 07-02-17
السلام عليكم
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">
RE: HttpWebRequest مشكل في تسجيل الدخول في الفيسبوك ,,, مشكل .تفعيل الكوكيز بالركم من اني - الماجيك مسعد - 12-03-17
اتفضل كود الدخول للفيس متنساش تكتب 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
RE: HttpWebRequest مشكل في تسجيل الدخول في الفيسبوك ,,, مشكل .تفعيل الكوكيز بالركم من اني - bakriano30@yahoo.com - 15-07-19
(12-03-17, 01:56 PM)الماجيك مسعد كتب : اتفضل كود الدخول للفيس متنساش تكتب 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