[ابو روضة]

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

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 


[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: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)سعود كتب : ان كان المقصود العنوان بالصورة التالية


فــ

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

[سعود]

معلش اخي الكريم  لم افطن
لابد من كتابة الخطوط المائلة

PHP كود :

//h1[@id='channel ***** 


---

PHP كود :

       Dim node As HtmlAgilityPack.HtmlNode = doc.DocumentNode.SelectSingleNode("//div[@id='microformat']") 


[ابو روضة]

(10-08-18, 12:53 AM)سعود كتب : معلش اخي الكريم  لم افطن
لابد من كتابة الخطوط المائلة

PHP كود :

//h1[@id='channel ***** 


---

PHP كود :

       Dim node As HtmlAgilityPack.HtmlNode = doc.DocumentNode.SelectSingleNode("//div[@id='microformat']") 


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

جزاك الله كل خير 

[elgokr]

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

تحياتى للجميع

وتمنياتى لكم التوفيق

[ابو روضة]

(10-08-18, 05:02 AM)elgokr كتب :

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

تحياتى للجميع

وتمنياتى لكم التوفيق

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