تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
جلب عنوان قناة يوتيوب
#1
السلام عليكم اخوتى
بجرب بهذا الكود اجلب اسم اى قناة ومغلبنى من الصبح

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 
الرد
تم الشكر بواسطة:
#2
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

اقتسبت الكود من هذا الموضوع:
اريد طريقة صنع برنامج يخمن الباسوورد على موقع معين
الرد
تم الشكر بواسطة: سعود , ابو روضة , elgokr
#3
ان كان المقصود العنوان بالصورة التالية


فــ
[صورة مرفقة: ccc.png]
الرد
تم الشكر بواسطة: Finish , Finish , ابو روضة , ابو روضة , elgokr
#4
(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)سعود كتب : ان كان المقصود العنوان بالصورة التالية


فــ

وهذا ما جن جنونى والله اخى سعود لآنى جربت هذا عشرات المرات ولم يفلح 
الرد
تم الشكر بواسطة: elgokr , elgokr
#5
معلش اخي الكريم  لم افطن
لابد من كتابة الخطوط المائلة
PHP كود :
//h1[@id='channel ***** 

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

PHP كود :
       Dim node As HtmlAgilityPack.HtmlNode doc.DocumentNode.SelectSingleNode("//div[@id='microformat']"

ماشاء الله عليك اخى سعود فعلا  اخى هذا نفع
جزاك الله كل خير 
الرد
تم الشكر بواسطة: elgokr , elgokr
#7
الاخوة ما قصرت

تحياتى للجميع
وتمنياتى لكم التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد
تم الشكر بواسطة: ابو روضة , YousefOkasha
#8
(10-08-18, 05:02 AM)elgokr كتب :
الاخوة ما قصرت

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

حبيبى اخى الجوكر  Heart
الرد
تم الشكر بواسطة: elgokr , elgokr



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم