تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] طلب عمليه دخول واضافه يوزر جديد
#1
السلام عليكم ورحمة الله وبركاتة 

اخباركم اخواني ان شاءلله بخير 
اخواني انا عندي مشروع بسيطط 
المشروع تكمن فكرته كتالي 
1:تسجيل دخول عبر لوحة التحكم 
2:اضافة مستخدم جديد
 لاكن المشكلة هنا ان عمليه تسجيل الدخول تمت ولاكن المشكله الاخرى هي ان عمليه الطلب الاخر وهو تنفيذ يوزر جديد لم تنفذ بسبب الكوكيز ويطلب المستخدم من والباسورد من جديد 

مثااال 

في البدايه الاستخدام HttpWebRequest 
عندي في الطلب الاول login  وراح تكون قيمه البوست 

[JS]Dim postData As String = "admin=" & TextBox1.Text & "&pass=" & TextBox2.Text
[/JS]
تماام في عمليه الطلب الاول اريده ان يتم حفض الكوكيز حتا استطيع الدخول الى الصفحة الاخرى وهي 
تحمل البوست التالي 
[JS]        Dim postData As String = "user=" & TextBox3.Text & "&password=" & TextBox4.Text
[/JS]

يعني الفكره بتكون بعمليه طلبين post في وقت واحد 
مجرد مل 
login 
TextBox1.text = "admin"
TextBox2.Text= "pass"
add users
 TextBox3.Text "user1"
 TextBox3.Text "pass"
اذا في مثال يعمل طلبين post مع حفض الكوكيز بطلب الكوكيز اتمنا تزويدنا به وشكرا لكم

Login

كود :
Dim postData As String = "admin=" & TextBox1.Text & "&pass=" & TextBox2.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("http://127.0.0.1/admin/index.php"), HttpWebRequest)
        postReq.Method = "POST"
        postReq.KeepAlive = True
        postReq.CookieContainer = tempCookies
        postReq.ContentType = "application/x-www-form-urlencoded"
        postReq.Referer = "http://127.0.0.1/admin/index.php"
        postReq.UserAgent = "Mozilla/5.0 (Windows; U; Windows NT 6.1; ru; rv:1.9.2.3) Gecko/20100401 Firefox/4.0 (.NET CLR 3.5.30729)"
        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


add user

كود :
Dim postData As String = "user=" & TextBox3.Text & "&password=" & TextBox4.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("http://127.0.0.1/admin/add.php"), HttpWebRequest)
      postReq.Method = "POST"
      postReq.KeepAlive = True
      postReq.CookieContainer = tempCookies
      postReq.ContentType = "application/x-www-form-urlencoded"
      postReq.Referer = "http://127.0.0.1/admin/add.php"
      postReq.UserAgent = "Mozilla/5.0 (Windows; U; Windows NT 6.1; ru; rv:1.9.2.3) Gecko/20100401 Firefox/4.0 (.NET CLR 3.5.30729)"
      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


كمثال ^ 
الفكره كلها اريد عمل برنامج يتحكم في لوحة التحكم الخاصه بموفعي من اضافه يوزر جديد الى اضافه موضوع جديد
الرد
تم الشكر بواسطة:
#2
معقوله ولا رد !!
الرد
تم الشكر بواسطة:
#3
ليش تحتاجة الكوكيز ؟
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  إنشاء حقل جديد kebboud 3 365 25-08-21, 02:53 PM
آخر رد: asemshahen5
  تصدير البيانات من نوع جديد اليوم السابع 3 757 18-08-21, 09:37 PM
آخر رد: يونس علي
Heart [VB.NET] عمل فورم دخول بمستخدمين وصلاحيات للمستخدمين رضوان الجماعي 8 806 18-03-21, 03:39 AM
آخر رد: رضوان الجماعي
  انتقال إلى سطر جديد بواسطة ضغط الزر انتر Alhootti1 10 1,305 03-02-21, 01:23 PM
آخر رد: Alhootti1
  مشكله فى حفظ سجل جديد سلام و محبه 7 912 13-01-21, 06:43 PM
آخر رد: moosa_alabri
  مساعده فى فورم اضافه سجل جديد سلام و محبه 9 1,207 06-01-21, 12:58 AM
آخر رد: سلام و محبه
  [VB.NET] كيفية الانتقال لسطر جديد في السطور الطويلة Naefabdo 0 781 06-02-20, 05:36 PM
آخر رد: Naefabdo
  [سؤال] لو سمحت يا شباب انا جديد فى المجال وانا بعمل الابلكيشن ظهرتلى المشاكل دي ahmed0rabea 1 820 17-09-19, 12:07 AM
آخر رد: ميدو الفنان
  [سؤال] كيف احذف اول مسافة فقط في تيكست بوكس واجعلها في سطر جديد dametucorazon 6 1,276 02-09-19, 04:39 PM
آخر رد: dametucorazon
  [سؤال] تسجيل دخول الفيس من خلال تطبيق ابو روضة 4 2,268 25-07-19, 02:15 AM
آخر رد: bakriano30@yahoo.com

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


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