12-11-19, 01:01 PM
(آخر تعديل لهذه المشاركة : 12-11-19, 01:47 PM {2} بواسطة اليوم السابع.)
الكود كان شغال تمام وفجأه بقي يظهر هذا الخطاء
هذا الكود
بالله المشاركه
بالله المشاركه
هذا الكود
كود :
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
بالله المشاركه
بالله المشاركه