[ابو روضة]

اللهم لك الحمد حمدًا طيّبًا كثيرًا مُباركًا فيه؛

ملء السّماوات وملء الأرض وما بينهما، وملء ما شيئت من شيء بعدهما.

*. أرحب بكم إخواني وأخواتي أعضاء منتدى فيجوال بيسك لكل العرب .*

*. أتمنى أن تكونوا في تمام الصحة والعافية.* 

قمت بفضل الله ببرمجة هذه الاداة الصغيرة لكنها ستكون مفيدة للبعض بأمر الله..

فبها ستجلب أى كلمات دلالية لآى فيديو به مشاهدات كثيرة..

وبالسورس كود ستتعلم منه جلب أى شيئ بأمر الله من على أى موقع...

فهو يدخل على مصدر الصفحة ثم يدخل على العقد "nodes" الذى أريد جلب منه ما أريده

ثم يدخل على الattributes ويجلب منه القيمة "value"...

فهنا دخل على ال

لا تهتم بالمسميات التى أقولها فقد أكون مُخطأ بها ولكن انا أحب التسهّل على نفسى لآفهم على طريقتى أنا...

سيتم نسخ جميع التاجات بمجرد ظهور الرسالة لك ووقتها تستطيع وضعها مباشرة بأى فيديو يخصك...

لكل مبتدأ حاول تفتح السورس وتجرب على جلب أشياء من مواقع مختلفة حتى تتقن الطريقة

فهى سهلة وجميلة وخصوصا التعامل مع مكتبة  ال HtmlAgilityPack...

وطبعا هناك طرق أخرى لجلب ما تريده من مواقع بهذا المكتبة لكنى أعتبر هذه هى الأفضل والأسهل لآن مثلا هنا

("//*[contains(@id,'EmbedSc')]") 

الid  يحتوى على هذه الكلمة EmbedSc لكن فى مثالنا نزعنا الid ووضعنا بدلاً منها property وجعلناها تجلب لنا كل ما بداخل content...

شاهد السورس جيداً وجرب وستفهم , وطبعا الكلام للمبتدئين.

حمل السورس من هنا

تحميل جلب تاج اى فيديو على يوتيوب rar

وهذا الكود كامل

كود :

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

وهذه هى المكتبة

https://www.up-00.com/vk4r6upnl1oi

ولن أنسى شكر الأخ سعود فهو من علمنى بعد الله التعامل مع هذه المكتبة.