15-11-18, 02:08 AM
السلام عليكم اخوتى ورحمة الله وبركاته
اريد جلب الرابط من هنا لكن مش عاوزة تضبط معى
هنـــــــــــــــــــــــــــــــا
اريد جلب الرابط من هنا لكن مش عاوزة تضبط معى
كود :
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
هنـــــــــــــــــــــــــــــــا