تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ممكن شرح هذا الكود؟
#1
السلام عليكم
ممكن شرح هذا الكود هو عبارة عن تسجيل الدخول للفيس:

كود :
Dim cookieContainer As New CookieContainer()
   Dim cookies As New CookieCollection()

   Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
       Dim getUrl As String = "https://www.facebook.com/login.php?login_attempt=1"
       Dim postData As String = [String].Format("email={0}&pass={1}", "ايميل", "باسورد")
       Dim getRequest As HttpWebRequest = DirectCast(WebRequest.Create(getUrl), HttpWebRequest)
       getRequest.CookieContainer = New CookieContainer()
       getRequest.CookieContainer.Add(cookies)
       'recover cookies First request
       getRequest.Method = WebRequestMethods.Http.Post
       getRequest.UserAgent = "Mozilla/5.0 (Windows NT 6.1) AppleWebKit/535.2 (KHTML, like Gecko) Chrome/15.0.874.121 Safari/535.2"
       getRequest.AllowWriteStreamBuffering = True
       getRequest.ProtocolVersion = HttpVersion.Version11
       getRequest.AllowAutoRedirect = True
       getRequest.ContentType = "application/x-www-form-urlencoded"

       Dim byteArray As Byte() = Encoding.ASCII.GetBytes(postData)
       getRequest.ContentLength = byteArray.Length
       Dim newStream As Stream = getRequest.GetRequestStream()
       'open connection
       newStream.Write(byteArray, 0, byteArray.Length)
       ' Send the data.
       newStream.Close()

       Dim getResponse As HttpWebResponse = DirectCast(getRequest.GetResponse(), HttpWebResponse)
       Using sr As New StreamReader(getResponse.GetResponseStream())
           Dim sourceCode As String = sr.ReadToEnd()
           'MsgBox(sourceCode)
           RichTextBox1.Text = sourceCode
       End Using

   End Sub
الرد }}}}
تم الشكر بواسطة:
#2
هذا كود تسجيل دخول الى فيس بوك عبر WebRequest
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ممكن شرح لطريقة ربط أكثر من جدول اكسس ؟ أبووسم 5 136 24-02-17, 12:23 AM
آخر رد: أبووسم
  [VB.NET] مشكلة نقل الكود من Form2 الي Form1 3asfa~mdmra 2 81 17-02-17, 02:44 AM
آخر رد: الماجيك مسعد
  توليد الادوات في FlowLayoutPanel بواسطة الكود وحذفها (تم ارفاق المشروع) اليوم مبتدئة وغداً محترفة 16 385 13-02-17, 07:43 AM
آخر رد: اليوم مبتدئة وغداً محترفة
  ما الفرق بين اضافة قاعدة البيانات عن طريق الكود و اضافى قاعدة البيانات عن طريق add ne noway 1 61 12-02-17, 08:06 PM
آخر رد: مساعدة
  ممكن احد يساعدني في التكست بوكس محمد بوقزاحة 4 103 01-02-17, 07:04 PM
آخر رد: محمد بوقزاحة
  [VB.NET] تعديل بيسط على الكود ليصيح جاهزآ 3asfa~mdmra 0 84 27-01-17, 06:01 PM
آخر رد: 3asfa~mdmra
  [VB.NET] رجاء تصحيح الكود التالي dubai.eig 4 125 25-01-17, 03:02 PM
آخر رد: مساعدة
  ممكن كود البوتن بالشكل ده MOSTAFA.KAMEL 7 220 24-01-17, 02:14 AM
آخر رد: مساعدة
  [VB.NET] ممكن حل مشكلة الكود MOSTAFA.KAMEL 1 184 22-01-17, 09:37 PM
آخر رد: MOSTAFA.KAMEL
  [سؤال] ما هو الخطأ في الكود التالي .. أرجو المساعدة abo_alaa315 0 73 22-01-17, 02:27 PM
آخر رد: abo_alaa315

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


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