منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : جلب عنوان قناة يوتيوب
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم اخوتى
بجرب بهذا الكود اجلب اسم اى قناة ومغلبنى من الصبح

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

اقتسبت الكود من هذا الموضوع:
اريد طريقة صنع برنامج يخمن الباسوورد على موقع معين
ان كان المقصود العنوان بالصورة التالية
[صورة مرفقة: aaa.png]

فــ
[صورة مرفقة: bbb.png]
(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]

وهذا ما جن جنونى والله اخى سعود لآنى جربت هذا عشرات المرات ولم يفلح 
معلش اخي الكريم  لم افطن
لابد من كتابة الخطوط المائلة
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']"

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

تحياتى للجميع
وتمنياتى لكم التوفيق
(10-08-18, 05:02 AM)elgokr كتب : [ -> ]
الاخوة ما قصرت

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

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