المشاركات : 1,468
المواضيع 351
الإنتساب : Apr 2016
السمعة :
334
الشكر: 3379
تم شكره 2456 مرات في 1124 مشاركات
السلام عليكم اخوتى
بجرب بهذا الكود اجلب اسم اى قناة ومغلبنى من الصبح
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
المشاركات : 50
المواضيع 0
الإنتساب : Aug 2018
السمعة :
6
الشكر: 44
تم شكره 91 مرات في 44 مشاركات
09-08-18, 11:29 PM
(آخر تعديل لهذه المشاركة : 09-08-18, 11:32 PM {2} بواسطة 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)
اقتسبت الكود من هذا الموضوع:
اريد طريقة صنع برنامج يخمن الباسوورد على موقع معين
المشاركات : 7,391
المواضيع 803
الإنتساب : Sep 2013
السمعة :
846
الشكر: 13249
تم شكره 18795 مرات في 4414 مشاركات
ان كان المقصود العنوان بالصورة التالية
فــ
المشاركات : 1,468
المواضيع 351
الإنتساب : Apr 2016
السمعة :
334
الشكر: 3379
تم شكره 2456 مرات في 1124 مشاركات
10-08-18, 12:24 AM
(آخر تعديل لهذه المشاركة : 10-08-18, 12:26 AM {2} بواسطة ابو روضة.)
(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)سعود كتب : ان كان المقصود العنوان بالصورة التالية
فــ
وهذا ما جن جنونى والله اخى سعود لآنى جربت هذا عشرات المرات ولم يفلح
المشاركات : 7,391
المواضيع 803
الإنتساب : Sep 2013
السمعة :
846
الشكر: 13249
تم شكره 18795 مرات في 4414 مشاركات
10-08-18, 12:53 AM
(آخر تعديل لهذه المشاركة : 10-08-18, 12:58 AM {2} بواسطة سعود.)
معلش اخي الكريم لم افطن
لابد من كتابة الخطوط المائلة
PHP كود :
Dim node As HtmlAgilityPack.HtmlNode = doc.DocumentNode.SelectSingleNode("//div[@id='microformat']")
المشاركات : 1,468
المواضيع 351
الإنتساب : Apr 2016
السمعة :
334
الشكر: 3379
تم شكره 2456 مرات في 1124 مشاركات
(10-08-18, 12:53 AM)سعود كتب : معلش اخي الكريم لم افطن
لابد من كتابة الخطوط المائلة
PHP كود :
Dim node As HtmlAgilityPack.HtmlNode = doc.DocumentNode.SelectSingleNode("//div[@id='microformat']")
ماشاء الله عليك اخى سعود فعلا اخى هذا نفع
جزاك الله كل خير
المشاركات : 3,815
المواضيع 36
الإنتساب : Mar 2014
السمعة :
724
الشكر: 7238
تم شكره 6709 مرات في 3265 مشاركات
الاخوة ما قصرت
تحياتى للجميع
وتمنياتى لكم التوفيق
المشاركات : 1,468
المواضيع 351
الإنتساب : Apr 2016
السمعة :
334
الشكر: 3379
تم شكره 2456 مرات في 1124 مشاركات
10-08-18, 11:10 AM
(آخر تعديل لهذه المشاركة : 10-08-18, 11:11 AM {2} بواسطة ابو روضة.)
(10-08-18, 05:02 AM)elgokr كتب : الاخوة ما قصرت
تحياتى للجميع
وتمنياتى لكم التوفيق
حبيبى اخى الجوكر
|