منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

تم الحل الحمد لله

up up up up

https://vb4arb.com/vb/showthread.php?tid=36608

(25-10-20, 09:45 PM)ميدو الفنان كتب : [ -> ]

(24-10-20, 03:34 PM)ابو روضة كتب : [ -> ]

أرسل رابط الصفحة الاساسية أخى لو سمحت فهذا الذى أرسلته سورس أو جزء من سورس الصفحة

تفضل اخي الكريم
http://yacinelivetv.com/api/getChannelsByCategory/4

---

(24-10-20, 03:52 PM)8409953 كتب : [ -> ]https://vb4arb.com/vb/showthread.php?tid=36608

كود :

       Dim client As New System.Net.WebClient
       Dim response = client.DownloadString(New Uri("http://yacinelivetv.com/api/getChannelsByCategory/4"))
       Dim o As JObject = JObject.Parse(response)
       Dim url As String = CStr(o.SelectToken("data[0].streams[0].url"))
       MsgBox(url)

بيديني خطا في كلمة JObject سطر
        Dim o As JObject = JObject.Parse(response)

اخي قم باضافة مكتبة Newtonsoft.Json

---

(24-10-20, 03:52 PM)8409953 كتب : [ -> ]https://vb4arb.com/vb/showthread.php?tid=36608

كود :

       Dim client As New System.Net.WebClient
       Dim response = client.DownloadString(New Uri("http://yacinelivetv.com/api/getChannelsByCategory/4"))
       Dim o As JObject = JObject.Parse(response)
       Dim url As String = CStr(o.SelectToken("data[0].streams[0].url"))
       MsgBox(url)

بيديني خطا في كلمة JObject سطر
        Dim o As JObject = JObject.Parse(response)

اخي قم باضافة مكتبة Newtonsoft.Json

والله انت اسطورة شكرا جدا ليك