[الماجيك مسعد]

(09-12-16, 11:39 PM)LoveVb كتب : request.ContentType = "application/x-www-form-urlencoded"
مهمة في طلبات Post
+
بعض Headers غير مهمة

نعم ولكن ليس فى كل الاوقات
+
من غلبي عملت نفس الطلب بالظبط لاعرف اين الخطأ
والان اعتقادى ان الخطأ فى postdata
وحاولت اجيب قيمة signup_ui_metrics
و قيمة m_metrics

ولكن معرفتش لو تقدر تجبهم تبقا خدمتنى جامد واحاول بعدها تانى

انا كنت بحاول اجبهم من هذا الرابط

كما فى الكود

كود :

Private Function getToken()
        Dim r As HttpWebRequest = HttpWebRequest.Create("https://twitter.com/i/js_inst?c_name=signup_ui_metrics&mm_name=m_metrics&dm_name=d_metrics")
        Dim re As HttpWebResponse = r.GetResponse()
        Dim src As String = New StreamReader(re.GetResponseStream()).ReadToEnd()
        Return GetBetween(src, "return {'rf':{'", "'}").Replace("'", """")
    End Function
    Private Function GetBetween(ByVal Source As String, ByVal Str1 As String, ByVal Str2 As String, Optional ByVal Index As Integer = 0) As String
        Return Regex.Split(Regex.Split(Source, Str1)(Index + 1), Str2)(0)
    End Function
    Sub signup_ui_metrics()
        RichTextBox1.Text = "{""rf"":{""" & getToken() & """}"

    End Sub