تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] حدثت مشكله بالكود ارجو المساعده
#1
الكود كان شغال تمام وفجأه بقي يظهر هذا الخطاء 
هذا الكود
كود :
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

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

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


الملفات المرفقة صورة/صور
   
الرد }}}
تم الشكر بواسطة:



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


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