تقييم الموضوع :
  • 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
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] تفعيل خاصية TextChanged للبحث عن عناصر listbox & وتفعيل زر Enter waelalmsry75 2 94 12-01-18, 07:58 PM
آخر رد: waelalmsry75
  [سؤال] كيف يمكنني تسجيل مصفوفة ذات بعدين في ملف خارجي؟ أحمد إبراهيم سعد 0 35 01-01-18, 07:25 AM
آخر رد: أحمد إبراهيم سعد
  مشكل اللغة العربية في vb.net fouadhdfouad 4 154 23-11-17, 07:57 PM
آخر رد: fouadhdfouad
  تسجيل الدخول و الخروج أحمد فتح الرحمن 2 149 23-11-17, 01:36 PM
آخر رد: أحمد فتح الرحمن
  [سؤال] تعديل اسم مستخدم قاعدة البيانات ( ايقاف و تفعيل المستخدم ) عماد البشبيشى 4 208 14-11-17, 02:29 PM
آخر رد: عماد البشبيشى
  تسجيل الأداة SKINENGINE أحمد فتح الرحمن 0 76 05-11-17, 10:37 PM
آخر رد: أحمد فتح الرحمن
  اريد طريقة صنع برنامج يقوم بتسجيل الدخول الى الجميل Mina Botros 3 344 29-10-17, 12:46 PM
آخر رد: abolgasim88
  [سؤال] تسجيل الدخول لإيميل هوتميل تنمية المعرفة 1 87 05-10-17, 08:04 PM
آخر رد: MOSTAFA.KAMEL
  تسجيل دخول موقع عن طريق Httprequest pos . للخبراء فقط kingofring 5 217 05-10-17, 01:39 AM
آخر رد: kingofring
  مشكل connectionstring زيد زينوبي 0 84 28-09-17, 02:57 PM
آخر رد: زيد زينوبي

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


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