12-11-19, 03:52 AM
لدي هذه الداله ولدي موقع اخر غير الي في هذه الدله
وظيفه الموقع ده انه عند فتحه يتم عدد 5 ثواني ومن ثم يحول علي الموقع اللي في هذه الداله كيف يمكن ااستخدم الموقع التاني بدون اخطاء في هذه الداله
للفهم هذا هو الموقع
justmarkting.com
وظيفه الموقع ده انه عند فتحه يتم عدد 5 ثواني ومن ثم يحول علي الموقع اللي في هذه الداله كيف يمكن ااستخدم الموقع التاني بدون اخطاء في هذه الداله
للفهم هذا هو الموقع
justmarkting.com
كود :
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