تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] (مشكله) في تسجيل الدخول لموقع badoo باستخدام HttpWebRequest
#1
كود :
Imports System.Net
Imports System.Text
Imports System.IO

Public Class Form1

   Dim logincookie As CookieContainer

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim postData As String = TextBox1.Text
       Dim tempCookies As New CookieContainer
       Dim encoding As New UTF8Encoding
       Dim byteData As Byte() = encoding.GetBytes(postData)

       Dim postReq As HttpWebRequest = DirectCast(WebRequest.Create("https://us1.badoo.com/signin"), HttpWebRequest)
       postReq.Method = "POST"
       postReq.Headers.Add("Accept-Language: ar,en-US;q=0.7,en;q=0.3")
       postReq.KeepAlive = True
       postReq.CookieContainer = tempCookies
       postReq.ContentType = "application/x-www-form-urlencoded"
       postReq.Referer = "https://us1.badoo.com/signin"
       postReq.UserAgent = "Mozilla/5.0 (Windows NT 10.0; WOW64; rv:44.0) Gecko/20100101 Firefox/44.0"
       postReq.ContentLength = byteData.Length

       Dim postreqstream As Stream = postReq.GetRequestStream()
       postreqstream.Write(byteData, 0, byteData.Length)
       postreqstream.Close()
       Dim postresponse As HttpWebResponse

       postresponse = DirectCast(postReq.GetResponse(), HttpWebResponse)
       tempCookies.Add(postresponse.Cookies)
       logincookie = tempCookies
       Dim postreqreader As New StreamReader(postresponse.GetResponseStream())
       Dim thepage As String = postreqreader.ReadToEnd

       RichTextBox1.Text = thepage

   End Sub

   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       WebBrowser1.DocumentText = RichTextBox1.Text
   End Sub

End Class
textbox1.text = 
كود :
{"$gpb":"badoo.bma.BadooMessage","version":1,"message_type":15,"message_id":2,"body":[{"$gpb":"badoo.bma.MessageBody","message_type":15,"server_login_by_password":{"$gpb":"badoo.bma.ServerLoginByPassword","remember_me":true,"user":"الايميل","password":"الباسورد"}}]}
اين الخطا
الرد }}}}
تم الشكر بواسطة:
#2
ضع حساب فى الموقع لنجرب عليه
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكله في الاستعلام anas_elwakkad 1 30 20-02-17, 02:34 PM
آخر رد: sendbad100
  مشكله في تثبيت Visual Studio 2015 Test 22 3,812 13-02-17, 04:20 PM
آخر رد: tempman
  [VB.NET] HttpWebRequest مشكل في تسجيل الدخول في الفيسبوك ,,, مشكل .تفعيل الكوكيز بالركم من اني m r M T D R 0 50 07-02-17, 01:58 PM
آخر رد: m r M T D R
  [سؤال] مشكله اثناء تثبيت MICROSOFT VISUAL STUDIO ULTIMATE 2013 tempman 2 88 02-02-17, 12:36 AM
آخر رد: مساعدة
Thumbs Up [VB.NET] ادراج صور وملفات داخل ال sql باستخدام vb khallak86 0 72 31-01-17, 11:40 AM
آخر رد: khallak86
  مساعدة فى انشاء نظام تسجيل و تسحيل الدخول Mohamed20 2 170 15-01-17, 11:48 PM
آخر رد: Mohamed20
  هل يوجد طريقة لارسال رسائل واتساب من البرنامج باستخدام vb.net 2010 ? Dr.Sherif Alazizi 15 624 12-01-17, 11:54 PM
آخر رد: Basil Abdallah
  منع تسجيل بيانات علي جدول الحركات بقاعدة بيانات sql خلال فترة زمنية (اقفال الفترة ا) السيد الجوهري 4 188 09-01-17, 07:22 PM
آخر رد: السيد الجوهري
  تصدير البيانات الى PDF باستخدام ITextSharp لايدعم اللغة العربية فاطمة غ 8 445 04-01-17, 12:00 AM
آخر رد: مساعدة
  [سؤال] تسجيل دخول الفيس من خلال تطبيق ابو روضة 3 205 03-01-17, 05:40 AM
آخر رد: ابو روضة

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


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