تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] HttpWebRequest مشكل في تسجيل الدخول في الفيسبوك ,,, مشكل .تفعيل الكوكيز بالركم من اني
#1
السلام عليكم

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">
الرد
تم الشكر بواسطة: الماجيك مسعد
#2
اتفضل كود الدخول للفيس متنساش تكتب 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
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] استخدام الكوكيز مع اداة ويب براوزر عبدالرحمن المكاوي 1 41 منذ 3 ساعة مضت
آخر رد: سعود
  [سؤال] تسجيل الدخول لإيميل هوتميل تنمية المعرفة 2 140 31-03-18, 02:18 PM
آخر رد: سعود الشامان
  طلب كود تسجيل اكثر من حساب UAE 0 44 27-03-18, 02:04 PM
آخر رد: UAE
  [سؤال] لو سمحتم صنع برنامج مثل برنامج تدوين لاكن معي إضافة صغيرة له يرجي الدخول هام جدا omartarek2016 0 76 18-03-18, 11:56 PM
آخر رد: omartarek2016
  المساعدة - في تفعيل نسخة VB 2015 emamtron2014 1 39 26-02-18, 07:10 AM
آخر رد: emamtron2014
  تسجيل دخول تلقائي عبدالرحمن المكاوي 2 35 23-02-18, 08:07 PM
آخر رد: عبدالرحمن المكاوي
  [VB.NET] عرض العملاء الى عملو تسجيل عضوية فى قاعدة البيانات mysql MOSTAFA.KAMEL 0 27 14-02-18, 09:32 PM
آخر رد: MOSTAFA.KAMEL
  مشكل بعد تجميع البرنامج YASSINEZG 8 39 11-02-18, 11:24 AM
آخر رد: Adrees
  الدخول ال sql2000 و sql2008 atefkhalf2004 1 30 03-02-18, 03:56 PM
آخر رد: محمود صالح
  [VB.NET] مشكل برمجي للخبراء YASSINEZG 4 80 27-01-18, 06:25 PM
آخر رد: عبدالله الدوسري

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم