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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ممكن حل المشكلة فى الكود التالي - من مشاركة استاذنا القدير / عبدالله الدوسري new_programer 4 169 02-03-24, 07:36 PM
آخر رد: new_programer
  ماهو حل هذا الخطأ في الكود melad2002 7 264 25-02-24, 12:25 AM
آخر رد: justforit
  كيفية انشاء سكريبت لقاعدة بيانات من خلال الكود heem1986 1 193 20-02-24, 12:00 AM
آخر رد: Kamil
Sad ممكن حل لهذا المشكل melad2002 0 239 30-01-24, 08:01 PM
آخر رد: melad2002
  ممكن استفسار عن m3u8 malekmohamed155 0 232 20-01-24, 07:47 PM
آخر رد: malekmohamed155
  [VB.NET] أرغب فى استخدام هذا الكود بالتحديد على الإصدار 10 AmeenRashed 3 206 19-01-24, 12:42 PM
آخر رد: Taha Okla
  ممكن تعديل في كود التفقيط للارقام melad2002 2 333 01-01-24, 08:47 PM
آخر رد: melad2002
  [VB.NET] ما الخطأ فى هذا الكود - كود البحث المتعدد Ashraf Elafify 7 464 27-12-23, 10:50 PM
آخر رد: Ashraf Elafify
  [VB.NET] السلام عليكم ممكن مساعدة اخوان احتاج يكون تسجيل الدخول textbox1 + textbox2 Coder_iraqii 4 400 18-12-23, 06:46 PM
آخر رد: Kamil
  [VB.NET] اريد تعديل في الكود عند طباعة DGV abu_hisham7 1 431 03-12-23, 02:40 AM
آخر رد: abu_hisham7

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


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