تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] سؤال بسيط جداا
#1
لدي هذه الداله ولدي موقع اخر غير الي في هذه الدله 
وظيفه الموقع ده انه عند فتحه يتم عدد 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
الرد
تم الشكر بواسطة:
#2
(12-11-19, 03:52 AM)اليوم السابع كتب : لدي هذه الداله ولدي موقع اخر غير الي في هذه الدله 
وظيفه الموقع ده انه عند فتحه يتم عدد 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

للرفع
الرد
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم