[ميدو الفنان]

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

[ميدو الفنان]

up up up up

[ابو روضة]

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

[8409953]

http://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)

[trakktour]

(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 كتب : http://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 كتب : http://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

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