منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
جلب عنوان قناة يوتيوب - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (https://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (https://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (https://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : جلب عنوان قناة يوتيوب (/showthread.php?tid=26053)

جلب عنوان قناة يوتيوب - ابو روضة - 09-08-18

السلام عليكم اخوتى
بجرب بهذا الكود اجلب اسم اى قناة ومغلبنى من الصبح

PHP كود :
Dim url As String = "https://www.youtube.com/user/TheRockmankung/videos"
        Dim hWeb As HtmlAgilityPack.HtmlWeb = New HtmlAgilityPack.HtmlWeb
        Dim doc As HtmlAgilityPack.HtmlDocument = hWeb.Load(url, "GET")
        Dim node As HtmlAgilityPack.HtmlNode = doc.DocumentNode.SelectSingleNode("html/head/title")
        TextBox1.Text = node.InnerText 


RE: جلب عنوان قناة يوتيوب - Finish - 09-08-18

PHP كود :
Dim website As String = "https://www.youtube.com/user/TheRockmankung/videos"

Dim html As String = Encoding.UTF8.GetString(New WebClient().DownloadData(website))
Dim title As String = Regex.Match(html, "(?<=<title>)[^*]*(?=</title>)").Value

MsgBox(title) 
اقتسبت الكود من هذا الموضوع:
اريد طريقة صنع برنامج يخمن الباسوورد على موقع معين

RE: جلب عنوان قناة يوتيوب - سعود - 09-08-18

ان كان المقصود العنوان بالصورة التالية
[صورة مرفقة: aaa.png]

فــ
[صورة مرفقة: bbb.png]

RE: جلب عنوان قناة يوتيوب - ابو روضة - 10-08-18

(09-08-18, 11:29 PM)Finish كتب :
PHP كود :
Dim website As String = "https://www.youtube.com/user/TheRockmankung/videos"

Dim html As String = Encoding.UTF8.GetString(New WebClient().DownloadData(website))
Dim title As String = Regex.Match(html, "(?<=<title>)[^*]*(?=</title>)").Value

MsgBox(title) 
اقتسبت الكود من هذا الموضوع:
اريد طريقة صنع برنامج يخمن الباسوورد على موقع معين
تسلم اخى ربنا يعزك ويبارك فيك فعلا نجح معايا
(09-08-18, 11:32 PM)سعود كتب : ان كان المقصود العنوان بالصورة التالية
[صورة مرفقة: aaa.png]

فــ
[صورة مرفقة: bbb.png]

وهذا ما جن جنونى والله اخى سعود لآنى جربت هذا عشرات المرات ولم يفلح 


RE: جلب عنوان قناة يوتيوب - سعود - 10-08-18

معلش اخي الكريم  لم افطن
لابد من كتابة الخطوط المائلة
PHP كود :
//h1[@id='channel ***** 
PHP كود :
       Dim node As HtmlAgilityPack.HtmlNode = doc.DocumentNode.SelectSingleNode("//div[@id='microformat']") 


RE: جلب عنوان قناة يوتيوب - ابو روضة - 10-08-18

(10-08-18, 12:53 AM)سعود كتب : معلش اخي الكريم  لم افطن
لابد من كتابة الخطوط المائلة
PHP كود :
//h1[@id='channel ***** 
PHP كود :
       Dim node As HtmlAgilityPack.HtmlNode = doc.DocumentNode.SelectSingleNode("//div[@id='microformat']") 

ماشاء الله عليك اخى سعود فعلا  اخى هذا نفع
جزاك الله كل خير 


RE: جلب عنوان قناة يوتيوب - elgokr - 10-08-18

الاخوة ما قصرت

تحياتى للجميع
وتمنياتى لكم التوفيق


RE: جلب عنوان قناة يوتيوب - ابو روضة - 10-08-18

(10-08-18, 05:02 AM)elgokr كتب :
الاخوة ما قصرت

تحياتى للجميع
وتمنياتى لكم التوفيق

حبيبى اخى الجوكر  Heart