تمت الإجابة مساعدة في WebRequest

تم تحميل الصفحة في 1,7881658 ثانية
مساعدة في WebRequest
الحالة
مغلق و غير مفتوح للمزيد من الردود.
إنضم
11 يونيو 2017
المشاركات
132
الإعجابات
71
النقاط
28
العمر
22
السلام عليكم ..

اسمحولي ادخل بالموضوع بدون مقدمات ..
انا حاولت ابرمج برنامج تسجيل تلقائي في موقع من المواقع
ولكن عندما انتهيت كان البرنامج لا يعمل

انا اعتقد الخلل انو الموقع يعطي توكين مخصص لكل شخص يُستخدم لمرة واحدة فقط
او ربما الخلل من شيء اخر ..

الكود ..

كود:
Imports System.Net
Imports System.Text
Imports System.IO

Public Class Form1

    Dim registercookie As CookieContainer

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim postData As String = "csrf=57eb52a1fc2ce5ddfa5f01b48c6cc392&register=&email=" & TextBox1.Text & "&password=asdasdasdsjd%40dnas.com&password_confirm=asdasdasdsjd%40dnas.com&nickname=" & TextBox4.Text & "&dob%5Bday%5D=1&dob%5Bmonth%5D=1&dob%5Byear%5D=1966&marketing=1"

        Dim tempCookies As New CookieContainer
        Dim encoding As New UTF8Encoding
        Dim byteData As Byte() = encoding.GetBytes(postData)

        Dim postReq As HttpWebRequest = DirectCast(WebRequest.Create("https://www.miniclip.com/dialog/login/1/en?&iu=&request=https%3A%2F%2Fwww.miniclip.com"), HttpWebRequest)
        postReq.Method = "POST"
        postReq.KeepAlive = True
        postReq.CookieContainer = tempCookies
        postReq.ContentType = "application/x-www-form-urlencoded"
        postReq.Referer = "https://www.miniclip.com/dialog/login/1/en?&iu=&request=https%3A%2F%2Fwww.miniclip.com"
        postReq.UserAgent = "Mozilla/5.0 (Windows NT 6.2; WOW64; rv:16.0) Gecko/20100101 Firefox/16.0"
        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)
        registercookie = tempCookies
        Dim postreqreader As New StreamReader(postresponse.GetResponseStream())

        Dim thepage As String = postreqreader.ReadToEnd

        RichTextBox1.Text = thepage
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        WebBrowser1.DocumentText = RichTextBox1.Text
    End Sub
End Class

اتمنى منكم المساعدة لحل هذه المشكلة ..
 
إنضم
11 يونيو 2017
المشاركات
132
الإعجابات
71
النقاط
28
العمر
22
تفضل
HTML:
        <input type="hidden" name="csrf" value="efb775a7453dfdd6e5270d5df1ea59f3"/>
هذا الكود من داخل السورس الي اخذتها من البرنامج
 
إنضم
8 سبتمبر 2013
المشاركات
7,970
الإعجابات
11,895
النقاط
168
الإقامة
Live.IQ(JO => JO.AMMAN)
تفضل
HTML:
        <input type="hidden" name="csrf" value="efb775a7453dfdd6e5270d5df1ea59f3"/>
هذا الكود من داخل السورس الي اخذتها من البرنامج
صديقي اعمل DownloadString للصفحة قبل الـPOST و اخذ منه التوكن و ضيفه للـPOST و دزة
 
إنضم
11 يونيو 2017
المشاركات
132
الإعجابات
71
النقاط
28
العمر
22
تم اخوي سويت مثل ما قلت لي وسجل
طيب شنو الحل هسه ؟

هل كل مره لازم اسوي كذا ولا اكو طريقه تلقائية ؟
 
إنضم
8 سبتمبر 2013
المشاركات
7,970
الإعجابات
11,895
النقاط
168
الإقامة
Live.IQ(JO => JO.AMMAN)
تم اخوي سويت مثل ما قلت لي وسجل
طيب شنو الحل هسه ؟

هل كل مره لازم اسوي كذا ولا اكو طريقه تلقائية ؟
المفروض كل مرة تنزل السورس و تاخذ منه التوكن و ترسلة وية البوست .. كلة برمجياً شنو المشكلة ..
 
إنضم
8 سبتمبر 2013
المشاركات
7,970
الإعجابات
11,895
النقاط
168
الإقامة
Live.IQ(JO => JO.AMMAN)
طيب اخي امين
ممكن تعطيني كود Reset cookie
هو انت كاتبه في كودك
Dim tempCookies As New CookieContainer
هذه كل مرة ينشئ Container جديد ..

تعلم برمجة اخي .. هذه اساسيات
 
إنضم
11 يونيو 2017
المشاركات
132
الإعجابات
71
النقاط
28
العمر
22
هو انت كاتبه في كودك
Dim tempCookies As New CookieContainer
هذه كل مرة ينشئ Container جديد ..

تعلم برمجة اخي .. هذه اساسيات
لا مو هذا قصدي
قصدي اريد زر يغير الكوكيز من اضغطه
هل استخدم نفس الكوكيز ؟
 
الحالة
مغلق و غير مفتوح للمزيد من الردود.

الأعضاء النشطين حاليآ الذين يشاهدون هذا الموضوع (1 عضو و 0 ضيف)

خيارات الاستايل

نوع الخط
مودك
اخفاء السايدر بار OFF
توسيط المنتدى OFF
فصل الأقسام OFF
الأقسام الفرعية OFF
عرض المشاركات
حجم الخط
معلومات العضو OFF
إخفاء التوقيع OFF

إرجاع خيارات الإستايل