تقييم الموضوع :
  • 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 116 13-02-21, 01:40 AM
آخر رد: Jounior_P
  السلام عليكم اخوكم واقع في مشكله بسبب متغير ومحتاج منقشتكم اليوم السابع 6 243 07-02-21, 03:25 AM
آخر رد: اليوم السابع
Exclamation [VB.NET] مشكله حذف البيانات من تلقى نفسها ali bajmmal 0 190 03-02-21, 06:20 PM
آخر رد: ali bajmmal
  مشكله فى التنقل بين السجلات من خلال الداتاجريد فيو سلام و محبه 0 230 29-01-21, 11:15 PM
آخر رد: سلام و محبه
  مشكله فى حفظ سجل جديد سلام و محبه 7 450 13-01-21, 06:43 PM
آخر رد: moosa_alabri
  مشكله بالبكيتشر بووكس اليوم السابع 4 255 01-01-21, 08:55 AM
آخر رد: اليوم السابع
  ارجو المساعدة ضرورى من عمالقة البرمجة فى شئ بسيط على زهران 5 334 30-12-20, 05:23 PM
آخر رد: على زهران
  انا عندي مشكله ممكن المساعده اريد كود يجلب لي اخر id moahmed.abdelmohsen 1 193 29-12-20, 11:25 PM
آخر رد: moahmed.abdelmohsen
  [VB.NET] ارجو المساعدة nedaladnan1973 2 199 27-12-20, 11:45 PM
آخر رد: ADAM12
  [VB.NET] ارجو المساعدة !!!! Osama_NY 3 302 11-12-20, 12:33 PM
آخر رد: Anas Mahmoud

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


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