[ابو روضة]

السلام عليكم اخوتى ورحمة الله وبركاته

اريد جلب الرابط من هنا لكن مش عاوزة تضبط معى

كود :

 Dim aa As String
       Dim s As New WebClient
       s.Encoding = Encoding.UTF8
       aa = s.DownloadString("http://samihmasat.hostkda.com/%9f%ab%e8%a9%a0%a2%20%a2%a5%ea%ef%e9%20%9f%ee%20%e5%ef%a7%ef%ed%20%ea%eb%20%9f%e9%ef%ed%a2%ef%ed%a0%20%a0%9f%ea%a2%a7%9f%a7%a2%20%ea%a2%e3%a7%a7%a1/getvideo.php?videoid=https://www.youtube.com/watch?v=6p_g3yRCQM4&type=Download")
       Dim sss As New HtmlAgilityPack.HtmlDocument
       sss.LoadHtml(aa)
       For Each n As HtmlAgilityPack.HtmlNode In sss.DocumentNode.SelectNodes("//ul/li[1]/span/a")
           Label2.Text = (n.Attributes("href").Value)
       Next

هنـــــــــــــــــــــــــــــــا