اللهم لك الحمد حمدًا طيّبًا كثيرًا مُباركًا فيه؛
ملء السّماوات وملء الأرض وما بينهما، وملء ما شيئت من شيء بعدهما.
*. أرحب بكم إخواني وأخواتي أعضاء منتدى فيجوال بيسك لكل العرب .*
*. أتمنى أن تكونوا في تمام الصحة والعافية.*
قمت بفضل الله ببرمجة هذه الاداة الصغيرة لكنها ستكون مفيدة للبعض بأمر الله..
فبها ستجلب أى كلمات دلالية لآى فيديو به مشاهدات كثيرة..
وبالسورس كود ستتعلم منه جلب أى شيئ بأمر الله من على أى موقع...
فهو يدخل على مصدر الصفحة ثم يدخل على العقد "nodes" الذى أريد جلب منه ما أريده
ثم يدخل على الattributes ويجلب منه القيمة "value"...
فهنا دخل على ال
لا تهتم بالمسميات التى أقولها فقد أكون مُخطأ بها ولكن انا أحب التسهّل على نفسى لآفهم على طريقتى أنا...
سيتم نسخ جميع التاجات بمجرد ظهور الرسالة لك ووقتها تستطيع وضعها مباشرة بأى فيديو يخصك...
لكل مبتدأ حاول تفتح السورس وتجرب على جلب أشياء من مواقع مختلفة حتى تتقن الطريقة
فهى سهلة وجميلة وخصوصا التعامل مع مكتبة ال HtmlAgilityPack...
وطبعا هناك طرق أخرى لجلب ما تريده من مواقع بهذا المكتبة لكنى أعتبر هذه هى الأفضل والأسهل لآن مثلا هنا
("//*[contains(@id,'EmbedSc')]")
الid يحتوى على هذه الكلمة EmbedSc لكن فى مثالنا نزعنا الid ووضعنا بدلاً منها property وجعلناها تجلب لنا كل ما بداخل content...
شاهد السورس جيداً وجرب وستفهم , وطبعا الكلام للمبتدئين.
حمل السورس من هنا
وهذا الكود كامل
كود :
Imports System.Net
Imports System.Text
Imports System.Text.RegularExpressions
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
On Error Resume Next
Dim url As String = TextBox1.Text
Dim wc As New WebClient
wc.Encoding = Encoding.UTF8
Dim html As String = wc.DownloadString(url)
Dim doc As New HtmlAgilityPack.HtmlDocument
doc.LoadHtml(html)
For Each n As HtmlAgilityPack.HtmlNode In doc.DocumentNode.SelectNodes("//*[contains(@property,'og:video:tag')]")
ListBox1.Items.Add(n.Attributes("content").Value)
Next
Dim mobilenum As String = ""
For Each item In ListBox1.Items
mobilenum += item.ToString & ","
Next
RichTextBox1.Text = Mid(mobilenum, 1, mobilenum.Length - 1)
RichTextBox1.SelectAll()
RichTextBox1.Copy()
MsgBox("تم نسخ التاجات", MsgBoxStyle.Information, "dev-point")
End Sub
End Class
وهذه هى المكتبة
ولن أنسى شكر الأخ سعود فهو من علمنى بعد الله التعامل مع هذه المكتبة.