[smalw]

بعد الاطلاع على المواضيع الاخيره للاخ (اليوم السابع) وغيره من المهتمين باستخراج الاكسس توكن للفيسبوك 
هذه الداله  تتعامل مع نفس الموقع الذي ذكره الاخ (اليوم السابع)


هذه الداله من احد الاساتذه وهي صدقه عنه
يمكن للقائمين على المنتدى وضعها في موضوع خاص بها مع قيامهم بشرحها لتعم الفائده

كود :

Public Shared Function GetFacebookAccessToken(email As String, password As String) As String
    Dim q As Net.HttpWebRequest, u = "https://qlizz.com/", c As New Net.CookieContainer, b, s, m
    q = Net.HttpWebRequest.Create(u & "?loginmethod=v2") : q.CookieContainer = c
    s = New IO.StreamReader(q.GetResponse().GetResponseStream()).ReadToEnd
    s = System.Text.RegularExpressions.Regex.Match(s, "name=""_token"" value=""(.+?)""").Groups(1).Value
    q = Net.HttpWebRequest.Create(u & "gtoken") : q.CookieContainer = c : q.Method = "POST"
    q.ContentType = "application/x-www-form-urlencoded"
    s = "_token=" & s & "&email=" & Uri.EscapeDataString(email) & "&pass=" & Uri.EscapeDataString(password)
    b = System.Text.Encoding.ASCII.GetBytes(s) : q.GetRequestStream().Write(b, 0, b.Length)
    s = New IO.StreamReader(q.GetResponse().GetResponseStream()).ReadToEnd
    s = System.Text.RegularExpressions.Regex.Match(s, "<iframe.+?src=""(.+?)"">").Groups(1).Value
    s = New Net.WebClient().DownloadString(s)
    m = System.Text.RegularExpressions.Regex.Match(s, """uid"":(.+?),.+?""access_token"":""(.+?)""")
    '-------------------
    Dim uid = m.Groups(1).Value
    Dim access_token = m.Groups(2).Value
    '-------------------
    Return access_token
End Function

التعامل معها

كود :

Dim accesstoken As String = GetFacebookAccessToken("email", "password")

يلاحظ ان في اخر كود الداله انه يجلب ايضا id فيمكن الاستفاده منه