المشاركات : 1,302
المواضيع 278
الإنتساب : Apr 2016
السمعة :
252
الشكر: 2364
تم شكره 2114 مرات في 962 مشاركات
البلد:
السلام عليكم اخوتى
بجرب بهذا الكود اجلب اسم اى قناة ومغلبنى من الصبح
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)
اقتسبت الكود من هذا الموضوع:
اريد طريقة صنع برنامج يخمن الباسوورد على موقع معين
المشاركات : 6,505
المواضيع 697
الإنتساب : Sep 2013
السمعة :
662
الشكر: 11605
تم شكره 16506 مرات في 3470 مشاركات
ان كان المقصود العنوان بالصورة التالية
فــ
اشكر كل من نقر زر شكرا و كل من قيم و ثمن المجهود مهما كان بسيطا.
المشاركات : 1,302
المواضيع 278
الإنتساب : Apr 2016
السمعة :
252
الشكر: 2364
تم شكره 2114 مرات في 962 مشاركات
البلد:
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)سعود كتب : ان كان المقصود العنوان بالصورة التالية
فــ
وهذا ما جن جنونى والله اخى سعود لآنى جربت هذا عشرات المرات ولم يفلح
المشاركات : 6,505
المواضيع 697
الإنتساب : Sep 2013
السمعة :
662
الشكر: 11605
تم شكره 16506 مرات في 3470 مشاركات
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,302
المواضيع 278
الإنتساب : Apr 2016
السمعة :
252
الشكر: 2364
تم شكره 2114 مرات في 962 مشاركات
البلد:
(10-08-18, 12:53 AM)سعود كتب : معلش اخي الكريم لم افطن
لابد من كتابة الخطوط المائلة
PHP كود :
Dim node As HtmlAgilityPack.HtmlNode = doc.DocumentNode.SelectSingleNode("//div[@id='microformat']")
ماشاء الله عليك اخى سعود فعلا اخى هذا نفع
جزاك الله كل خير
المشاركات : 3,816
المواضيع 36
الإنتساب : Mar 2014
السمعة :
707
الشكر: 7238
تم شكره 6580 مرات في 3255 مشاركات
الاخوة ما قصرت
تحياتى للجميع
وتمنياتى لكم التوفيق
المشاركات : 1,302
المواضيع 278
الإنتساب : Apr 2016
السمعة :
252
الشكر: 2364
تم شكره 2114 مرات في 962 مشاركات
البلد:
10-08-18, 11:10 AM
(آخر تعديل لهذه المشاركة : 10-08-18, 11:11 AM {2} بواسطة ابو روضة.)
(10-08-18, 05:02 AM)elgokr كتب : الاخوة ما قصرت
تحياتى للجميع
وتمنياتى لكم التوفيق
حبيبى اخى الجوكر
|