منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم ورحمة الله وبركاتة

اخباركم اخواني ان شاءلله بخير
اخواني انا عندي مشروع بسيطط
المشروع تكمن فكرته كتالي
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 مع حفض الكوكيز بطلب الكوكيز اتمنا تزويدنا به وشكرا لكم

كود :

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

كمثال ^
الفكره كلها اريد عمل برنامج يتحكم في لوحة التحكم الخاصه بموفعي من اضافه يوزر جديد الى اضافه موضوع جديد

معقوله ولا رد !!

ليش تحتاجة الكوكيز ؟

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

virus305

virus305

IBRA939