[اليوم السابع]

الكود كان شغال تمام وفجأه بقي يظهر هذا الخطاء 
هذا الكود

كود :

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

---

(12-11-19, 01:01 PM)اليوم السابع كتب : الكود كان شغال تمام وفجأه بقي يظهر هذا الخطاء 
هذا الكود

كود :

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

بالله المشاركه

---

(12-11-19, 01:01 PM)اليوم السابع كتب : الكود كان شغال تمام وفجأه بقي يظهر هذا الخطاء 
هذا الكود

كود :

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

---

(12-11-19, 01:01 PM)اليوم السابع كتب : الكود كان شغال تمام وفجأه بقي يظهر هذا الخطاء 
هذا الكود

كود :

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

بالله المشاركه

بالله المشاركه