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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  فكرة تسجيل الحضور اليومي عبد العزيز البسكري 29 652 26-02-24, 02:15 PM
آخر رد: saud1004
  المساعدة - في تفعيل نسخة VB 2015 emamtron2014 2 5,102 24-12-23, 05:08 AM
آخر رد: laban
  [VB.NET] السلام عليكم ممكن مساعدة اخوان احتاج يكون تسجيل الدخول textbox1 + textbox2 Coder_iraqii 4 400 18-12-23, 06:46 PM
آخر رد: Kamil
  تسجيل الدخول من قاعدة البيانات um_noor20 3 374 19-10-23, 02:40 PM
آخر رد: aljzazy
  [سؤال] مشكلة تسجيل وقت فقط بحقل جدول SQL dr.programming 2 304 01-09-23, 04:32 AM
آخر رد: اسامه الهرماوي
Rainbow [كود] كود الدخول على قائمه Run محمد مسافر 2 374 27-07-23, 02:26 AM
آخر رد: محمد مسافر
Rainbow [كود] كود الدخول على لوحه التحكم محمد مسافر 2 374 22-07-23, 05:31 PM
آخر رد: Taha Okla
  أريد كود لغلق جميع النوافذ عند تسجيل الخروج Emam emam 2 502 10-07-23, 02:12 AM
آخر رد: Emam emam
  إستخدام CheckBox لتعطيل أو تفعيل مجموع الأدوات YANNOURI 3 436 17-04-23, 04:49 AM
آخر رد: Taha Okla
  مشكل إختفاء الفرومات من مشروع YANNOURI 1 438 13-04-23, 03:41 AM
آخر رد: Taha Okla

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


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