[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)