تمت الإجابة سحب قيمه mid في الانستكرام

تم تحميل الصفحة في 1,5281692 ثانية
سحب قيمه mid في الانستكرام
الحالة
مغلق و غير مفتوح للمزيد من الردود.
إنضم
25 سبتمبر 2017
المشاركات
43
الإعجابات
11
النقاط
8
الإقامة
Iraq
السلام عليكم
اريد طريقه اسحب فيها قيمه الـ Mid في الانستكرام عن طريق Regex
او موقع يعطي قيمه الـMid الانستكرام
لان هذا القيمه تتغير من حين لاخر .
 
إنضم
2 أغسطس 2017
المشاركات
167
الإعجابات
126
النقاط
43
الإقامة
Anbar , Iraq
كود:
Imports System.Net
Imports System.Text
Imports System.IO
Imports System.Text.RegularExpressions
Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim data As String = "theinput=" + "https://www.instagram.com/" + "%2F&thetest=httpheaders&name_of_nonce_field=a84533d9c7&_wp_http_referer=%2Fhttp-header-check%2F"
        Dim s As String = String.Concat(data)
        Dim cookieContainer As CookieContainer = New CookieContainer()
        Dim bytes As Byte() = New UTF8Encoding().GetBytes(s)
        Dim httpWebRequest As HttpWebRequest = CType(WebRequest.Create("https://hackertarget.com/http-header-check/"), HttpWebRequest)
        httpWebRequest.Method = "POST"
        httpWebRequest.Headers.Add("X-Requested-With: XMLHttpRequest")
        httpWebRequest.Headers.Add("Cookie", "ga=GA1.2.390350752.1497889015; gid=GA1.2.740214741.1497889015; _gat=1")
        httpWebRequest.KeepAlive = True
        httpWebRequest.CookieContainer = cookieContainer
        httpWebRequest.ContentType = "application/x-www-form-urlencoded"
        httpWebRequest.Referer = "https://hackertarget.com/http-header-check/"
        httpWebRequest.AllowAutoRedirect = True
        httpWebRequest.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)"
        httpWebRequest.ContentLength = CLng(bytes.Length)
        Dim requestStream As Stream = httpWebRequest.GetRequestStream()
        requestStream.Write(bytes, 0, bytes.Length)
        requestStream.Close()
        Dim httpWebResponse As HttpWebResponse = CType(httpWebRequest.GetResponse(), HttpWebResponse)
        cookieContainer.Add(httpWebResponse.Cookies)
        Dim text As String = New StreamReader(httpWebResponse.GetResponseStream()).ReadToEnd()
        Dim mid As String = Regex.Match(text, "mid=(.*?);").Groups(1).Value
        Dim csr As String = Regex.Match(text, "csrftoken=(.*?);").Groups(1).Value
        MsgBox("csr=  " + csr & vbCrLf + "mid=   " + mid)
    End Sub
End Class
 

As6orh aL7arbi

.:: إداري قسم التواصل الإجتماعي ::.
rankrankrank
إنضم
21 ديسمبر 2017
المشاركات
810
الإعجابات
777
النقاط
113
العمر
19
الإقامة
الامارات العربيه المتحده
الحالة
مغلق و غير مفتوح للمزيد من الردود.

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

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

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

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