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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] خطا عن دخول للمنظومة MOHAMMED ALZWI 5 384 10-03-25, 02:03 AM
آخر رد: أبووسم2
  جديد في تعلم البرمجة micro team 3 339 06-01-25, 12:47 AM
آخر رد: أبو خالد الشكري
  ابغي ارجع قيمة الداتا قراد فيو من جديد عندي مشكله khalidalwdi 3 632 05-12-24, 02:21 AM
آخر رد: aljzazy
  [سؤال] كيف نضيف id جديد بنفس جملة الاضافة justforit 5 501 01-12-24, 04:30 PM
آخر رد: justforit
  [سؤال] عند بدأ مشروع جديد غير قادر على روئية الـForm1 ABDULLAH HASSAN 1 435 30-04-24, 12:22 AM
آخر رد: Jounior_P
  استخدام فونت جديد في البرنامج Emam emam 5 499 14-04-24, 01:29 PM
آخر رد: عبد العزيز البسكري
  اضافه سجل row جديد سلام و محبه2090 0 384 02-03-24, 11:04 PM
آخر رد: سلام و محبه2090
  [سؤال] محاولة دخول للبرنامج ahmed_king2023 0 546 20-06-23, 12:39 AM
آخر رد: ahmed_king2023
  [VB.NET] دخول المستخدم عبدالرحمن بشري عمر علي 0 509 14-12-22, 10:34 PM
آخر رد: عبدالرحمن بشري عمر علي
  لا اقدر علي فتح مشروع جديد عبدالرحمن بشري عمر علي 0 474 03-12-22, 06:22 PM
آخر رد: عبدالرحمن بشري عمر علي

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


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