تمت الإجابة مساعدة في WebRequest بلغة vb.net

تم تحميل الصفحة في 0,6741212 ثانية
مساعدة في WebRequest بلغة vb.net
الحالة
مغلق و غير مفتوح للمزيد من الردود.
إنضم
11 يونيو 2017
المشاركات
132
الإعجابات
71
النقاط
28
العمر
22
ألسلام عليكم
ان شاء الله تكونون بأفضل صحة
بدون مقدمات سوف ادخل بالموضوع

اريد صنع برنامج لأنشاء حسابات تلقائيا في موقع Instagram
ولكن واجهتني عدة مشاكل
وانمنى تعطوني حل لهذه المشاكل

سوف اقوم بطرح كودي لتعطوني الخلل فيه
كود:
Dim ssssss As CookieContainer

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
    
        Dim client As New Net.WebClient
        client.Encoding = Encoding.UTF8

        Dim str As String = client.DownloadString("https://www.instagram.com")
        Dim crf As String = System.Text.RegularExpressions.Regex.Match(str, "{""csrf_token"":""([\w]+)"",").Groups.Item(1).Value
        Dim hash As String = RegularExpressions.Regex.Match(str, """rollout_hash"":""([\w]+)""").Groups.Item(1).Value

        Dim Data1 As String = "email=" + "[email protected]" + "&password=ooooo000ooooo&username=g546ghghfh&first_name=Hussein&opt_into_one_tap=false"
        Dim o As New CookieContainer
        Dim encoding2 As New UTF8Encoding
        Dim bytes As Byte() = encoding2.GetBytes(Data1)



        RequestUrl = "https://www.instagram.com/accounts/web_create_ajax/attempt"
        Request = TryCast(WebRequest.Create(RequestUrl), HttpWebRequest)
        Request.Host = "www.instagram.com"
        Request.UserAgent = "Mozilla/5.0 (Windows NT 10.0; WOW64; rv:61.0) Gecko/20100101 Firefox/61.0"
        Request.Headers.Add("Accept-Language", "en-US,en;q=0.5")
        Request.Headers.Add("X-CSRFToken", crf)
        Request.Headers.Add("X-Instagram-AJAX", hash)
        Request.ContentType = "application/x-www-form-urlencoded"
        Request.Headers.Add("X-Requested-With", "XMLHttpRequest")
        Request.Referer = "https://www.instagram.com"
        Request.CookieContainer = container
        Request.Method = "POST"
        Request.KeepAlive = True
        Request.ContentLength = bytes.Length





        Dim reqstream As Stream = Request.GetRequestStream()
        reqstream.Write(bytes, 0, bytes.Length)
        reqstream.Close()

        '  Dim response As HttpWebResponse
        '  Response = DirectCast(Request.GetResponse(), HttpWebResponse)
        '  ssssss = Container


    End Sub
في الاسطر الاخيره عندما اضعها يعطيني خطأ 405
بأجراء فعل غير مسموح به


اسف على الاطالة, واي تفاصيل ثانيه انا مستعد اجاوب عنها
وشكرا مقدما
 
إنضم
2 أغسطس 2017
المشاركات
167
الإعجابات
126
النقاط
43
الإقامة
Anbar , Iraq
عليكم السلام
يجب ان تضيف Headers خاص بالـ cookie
والذي يحتوي على CSRFToken , mid

فقط اضف هذا الكود
request.Headers.Add("cookie", "rur=FTW; mid=XGRovAAEAAFFJIy6jBR3WL69tkgW; csrftoken=" + crf)
تخت
Request.Headers.Add("X-CSRFToken", crf)
 
إنضم
11 يونيو 2017
المشاركات
132
الإعجابات
71
النقاط
28
العمر
22
عليكم السلام
يجب ان تضيف Headers خاص بالـ cookie
والذي يحتوي على CSRFToken , mid

فقط اضف هذا الكود
request.Headers.Add("cookie", "rur=FTW; mid=XGRovAAEAAFFJIy6jBR3WL69tkgW; csrftoken=" + crf)
تخت
Request.Headers.Add("X-CSRFToken", crf)
سوف اجرب ذلك
 
إنضم
2 أغسطس 2017
المشاركات
167
الإعجابات
126
النقاط
43
الإقامة
Anbar , Iraq
تعديل بسيط على الكود الان يعمل 100 %

C#:
Imports System.Net
Imports System.Text
Imports System.IO
Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim tempcookies As New CookieContainer
        Dim logincookies As CookieContainer
        Dim client As New Net.WebClient
        client.Encoding = Encoding.UTF8
        Dim str As String = client.DownloadString("https://www.instagram.com")
        Dim crf As String = System.Text.RegularExpressions.Regex.Match(str, "{""csrf_token"":""([\w]+)"",").Groups.Item(1).Value
        Dim Data1 As String = "email=" + "[email protected]" + "&password=" + "pass1231233" + "&username=" + "use9r02802lfd"
        Dim encoding2 As New UTF8Encoding
        Dim bytesdata As Byte() = encoding2.GetBytes(Data1)
        Dim request As HttpWebRequest
        request = TryCast(WebRequest.Create("https://www.instagram.com/accounts/web_create_ajax/"), HttpWebRequest)
        request.Host = "www.instagram.com"
        request.UserAgent = "Mozilla/5.0 (Windows NT 6.1; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/72.0.3626.96 Safari/537.36"
        request.Headers.Add("Accept-Language", "en-US,en;q=0.5")
        request.Headers.Add("X-CSRFToken", crf)
        request.Headers.Add("cookie", "rur=FTW; mid=XGRovAAEAAFFJIy6jBR3WL69tkgW; csrftoken=" + crf)
        request.ContentType = "application/x-www-form-urlencoded"
        request.Headers.Add("X-Requested-With", "XMLHttpRequest")
        request.Referer = "https://www.instagram.com"
        request.CookieContainer = tempcookies
        request.Method = "POST"
        request.KeepAlive = True
        request.ContentLength = bytesdata.Length
        Dim poststream As Stream = request.GetRequestStream
        poststream.Write(bytesdata, 0, bytesdata.Length)
        poststream.Close()
        Dim response As HttpWebResponse
        response = DirectCast(request.GetResponse, HttpWebResponse)
        tempcookies.Add(response.Cookies)
        logincookies = tempcookies
        Dim streamreader As New StreamReader(response.GetResponseStream)
        Dim result As String = streamreader.ReadToEnd
        If Not result.Contains("""account_created"": false") Then
            MsgBox("Account Created True :)")
        Else
            MsgBox("Account Created False :(  " + result)
        End If
    End Sub
End Class
 
إنضم
11 يونيو 2017
المشاركات
132
الإعجابات
71
النقاط
28
العمر
22
تعديل بسيط على الكود الان يعمل 100 %

C#:
Imports System.Net
Imports System.Text
Imports System.IO
Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim tempcookies As New CookieContainer
        Dim logincookies As CookieContainer
        Dim client As New Net.WebClient
        client.Encoding = Encoding.UTF8
        Dim str As String = client.DownloadString("https://www.instagram.com")
        Dim crf As String = System.Text.RegularExpressions.Regex.Match(str, "{""csrf_token"":""([\w]+)"",").Groups.Item(1).Value
        Dim Data1 As String = "email=" + "[email protected]" + "&password=" + "pass1231233" + "&username=" + "use9r02802lfd"
        Dim encoding2 As New UTF8Encoding
        Dim bytesdata As Byte() = encoding2.GetBytes(Data1)
        Dim request As HttpWebRequest
        request = TryCast(WebRequest.Create("https://www.instagram.com/accounts/web_create_ajax/"), HttpWebRequest)
        request.Host = "www.instagram.com"
        request.UserAgent = "Mozilla/5.0 (Windows NT 6.1; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/72.0.3626.96 Safari/537.36"
        request.Headers.Add("Accept-Language", "en-US,en;q=0.5")
        request.Headers.Add("X-CSRFToken", crf)
        request.Headers.Add("cookie", "rur=FTW; mid=XGRovAAEAAFFJIy6jBR3WL69tkgW; csrftoken=" + crf)
        request.ContentType = "application/x-www-form-urlencoded"
        request.Headers.Add("X-Requested-With", "XMLHttpRequest")
        request.Referer = "https://www.instagram.com"
        request.CookieContainer = tempcookies
        request.Method = "POST"
        request.KeepAlive = True
        request.ContentLength = bytesdata.Length
        Dim poststream As Stream = request.GetRequestStream
        poststream.Write(bytesdata, 0, bytesdata.Length)
        poststream.Close()
        Dim response As HttpWebResponse
        response = DirectCast(request.GetResponse, HttpWebResponse)
        tempcookies.Add(response.Cookies)
        logincookies = tempcookies
        Dim streamreader As New StreamReader(response.GetResponseStream)
        Dim result As String = streamreader.ReadToEnd
        If Not result.Contains("""account_created"": false") Then
            MsgBox("Account Created True :)")
        Else
            MsgBox("Account Created False :(  " + result)
        End If
    End Sub
End Class
شكرا جزيلا
رح اجرب الكود وقبل ان اجربه رح اعطيك افضل اجابة, شكرا
 
إنضم
11 يونيو 2017
المشاركات
132
الإعجابات
71
النقاط
28
العمر
22
بس الmid مختلف لكل شخص وبحثت عنه في سورس الصفحة وما لقيته
كيف اقدر اجيب الmid تلقائيا

وارسل فيه الطلب
 
إنضم
8 سبتمبر 2013
المشاركات
7,956
الإعجابات
11,877
النقاط
168
الإقامة
Live.IQ(JO => JO.AMMAN)
إنضم
8 سبتمبر 2013
المشاركات
7,956
الإعجابات
11,877
النقاط
168
الإقامة
Live.IQ(JO => JO.AMMAN)
اخي امير بدون امر عليك ممكن سؤال

نفس الاكواد اقدر استخدمها مع xNet.dll ؟
لان البرنامج يحتاج بروكسي الظاهر
مكتبة xNet تختلف عن الـhttpWebRequest .. مو نفس الكود بس نفس الفكرة اكيد
 

X-KILLER

Beginner Developer
rankrank
إنضم
18 ديسمبر 2018
المشاركات
160
الإعجابات
50
النقاط
28
بس الmid مختلف لكل شخص وبحثت عنه في سورس الصفحة وما لقيته
كيف اقدر اجيب الmid تلقائيا

وارسل فيه الطلب
اعتقد هذا خالية بالخطا لان انتة مالكيتة تعرف السبب شنو ليش مالكيتة لانك لا تجيد التعامل مع المواقع

ونصيحة مني الك اتعلم كيف التعمل مع المواقع وخصوصن سورس الموقع

وهذا التوكين


وهذا الباترن مالتة بدون فتح الفيجوال

{"csrf_token":"(.*?)","viewer":
 
إنضم
11 يونيو 2017
المشاركات
132
الإعجابات
71
النقاط
28
العمر
22
اعتقد هذا خالية بالخطا لان انتة مالكيتة تعرف السبب شنو ليش مالكيتة لانك لا تجيد التعامل مع المواقع

ونصيحة مني الك اتعلم كيف التعمل مع المواقع وخصوصن سورس الموقع

وهذا التوكين


وهذا الباترن مالتة بدون فتح الفيجوال

{"csrf_token":"(.*?)","viewer":
لا كنت اقصد الـmid
وانما الcsrf اعرف اجيبه ولو لاحظت انا كنت مخليه ضمن الكود

Dim crf As String = System.Text.RegularExpressions.Regex.Match(str, "{""csrf_token"":""([\w]+)"",").Groups.Item(1).Value

وعندي استفسار م يحتاج اني افتح موضوع جديد
عملت Function
بس ما اقدر اضيف
Button1.PerformClick()

بداخل الـFunction
هل اكو طريقه اني اضع ضغط زر في الـFunction
وشكرا مقدما
 
إنضم
2 أغسطس 2017
المشاركات
167
الإعجابات
126
النقاط
43
الإقامة
Anbar , Iraq
يوجد العديد من الطرق لاستخراج الـ Headers باستخدام الفجوال

وايضا يمكنك استخراج الـ Headers من خلال مواقع مختصة بجلب اتصلات الموقع

Scan results for https://www.instagram.com/accounts/web_create_ajax

بعد الدخول للموقع رح يظهر عندك ال Mid , و Csrf حمل نص الصفحه واستخرج ال mid عن طريق ريجكس
 

X-KILLER

Beginner Developer
rankrank
إنضم
18 ديسمبر 2018
المشاركات
160
الإعجابات
50
النقاط
28
لا كنت اقصد الـmid
وانما الcsrf اعرف اجيبه ولو لاحظت انا كنت مخليه ضمن الكود




وعندي استفسار م يحتاج اني افتح موضوع جديد
عملت Function
بس ما اقدر اضيف
Button1.PerformClick()

بداخل الـFunction
هل اكو طريقه اني اضع ضغط زر في الـFunction
وشكرا مقدما
شنو الي راح تسوي بية mid هوة اصلن الموقع يعتمد على التوكين فقط

مثل ما مذكور في الموقع


x-csrftoken: I45rKSYLLNEXWWqTB1k0Xqup9CXZ1rAY توكين متغير
x-instagram-ajax: 33a6d878c17d
x-requested-with: XMLHttpRequest

وبخصوص الـFunction ضع الاسم الذي امام الـFunction في زر فقط وسوف يتم التنفيذ
 
إنضم
11 يونيو 2017
المشاركات
132
الإعجابات
71
النقاط
28
العمر
22
شنو الي راح تسوي بية mid هوة اصلن الموقع يعتمد على التوكين فقط

مثل ما مذكور في الموقع


x-csrftoken: I45rKSYLLNEXWWqTB1k0Xqup9CXZ1rAY توكين متغير
x-instagram-ajax: 33a6d878c17d
x-requested-with: XMLHttpRequest

وبخصوص الـFunction ضع الاسم الذي امام الـFunction في زر فقط وسوف يتم التنفيذ
حسنا شكرا :241:, توقعت الـmid كذلك متغير






يوجد العديد من الطرق لاستخراج الـ Headers باستخدام الفجوال

وايضا يمكنك استخراج الـ Headers من خلال مواقع مختصة بجلب اتصلات الموقع

Scan results for https://www.instagram.com/accounts/web_create_ajax

بعد الدخول للموقع رح يظهر عندك ال Mid , و Csrf حمل نص الصفحه واستخرج ال mid عن طريق ريجكس


شكرا جزيلا وما قصرت اخوي
اسف على الازعاج
وشكرا على المساعدة الكبيرة والله يجعلها في ميزان حسناتكم.:l6:


يغلق للأنتهاء .
 
الحالة
مغلق و غير مفتوح للمزيد من الردود.

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

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

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

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