جلب الكلمات المفتاحية لآى فيديو

جلب الكلمات المفتاحية لآى فيديو - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم امثلة ومشاريع VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=188)
+--- الموضوع : جلب الكلمات المفتاحية لآى فيديو (/showthread.php?tid=34052)

الصفحات: 1 2

جلب الكلمات المفتاحية لآى فيديو - ابو روضة - 30-03-20

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

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

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

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

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

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

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

فهو يدخل على مصدر الصفحة ثم يدخل على العقد "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

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

RE: جلب الكلمات المفتاحية لآى فيديو - asemshahen5 - 30-03-20

بارك الله فيك و جزاك الله عنا كل خير .

RE: جلب الكلمات المفتاحية لآى فيديو - ابو روضة - 30-03-20

(30-03-20, 04:39 PM)asemshahen5 كتب : بارك الله فيك و جزاك الله عنا كل خير .

جزانا واياك كل الخير أخى الكريم.....

RE: جلب الكلمات المفتاحية لآى فيديو - محمد ايمن - 30-03-20

ممكن مثال

RE: جلب الكلمات المفتاحية لآى فيديو - ابو روضة - 30-03-20

(30-03-20, 05:06 PM)محمد ايمن كتب :
ممكن مثال

انت دخلت على العنوان ولم تكلف نفسك حتى دقيقة تشاهد الموضوع

لآنك داخل على شيئ محدد " مثال فقط " ولو كنت قرأت الموضوع لكنت وجدت

ما تبحث عنه....للأسف أغلبنا الآن يريد الجاهز بكل شيئ وبضغطة زر..

أنت حتى ما كلفت نفسك تقول لى " جزاك الله خيرا " ....

والله شيئ يٌحزن.

RE: جلب الكلمات المفتاحية لآى فيديو - سعود - 30-03-20

بارك الله فيك وجزاك عنا كل خير
الفكرة رائعة جدا جدا
وفقك الله لكل خير.

RE: جلب الكلمات المفتاحية لآى فيديو - ابو روضة - 30-03-20

(30-03-20, 05:37 PM)سعود كتب : بارك الله فيك وجزاك عنا كل خير
الفكرة رائعة جدا جدا
وفقك الله لكل خير.

جزانا واياك كل الخير أخى العزيز....

RE: جلب الكلمات المفتاحية لآى فيديو - معاند الحظ - 30-03-20

وعليك السلام ورحمة الله وبركاته
بصراحة ابو روضة

شدني في موضوعك اربعة اشياء
اولا انيق بالالوان ومرتب وواضح بالمعنى
ثانيا استخدام الصور زاد من جمال الموضوع
ثالثا استخدام لغة تحسس القارى بالاسترسال ومتابعة القراءة
رابعا التعليقات الموجهه منك الينا

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

واخيرا الاجمل بين ماسبق على الاطلاق

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

بصراحة الفكرة هذي عبقرية

فكرة اخذ تاقات الفيديوهات المشهورة واضافتها لفيديوهاتك عبقرية

ماشاء الله عليك وربنا يوفقك ويزيدك

RE: جلب الكلمات المفتاحية لآى فيديو - ابو روضة - 30-03-20

(30-03-20, 06:53 PM)معاند الحظ كتب : وعليك السلام ورحمة الله وبركاته
بصراحة ابو روضة

شدني في موضوعك اربعة اشياء
اولا انيق بالالوان ومرتب وواضح بالمعنى
ثانيا استخدام الصور زاد من جمال الموضوع
ثالثا استخدام لغة تحسس القارى بالاسترسال ومتابعة القراءة
رابعا التعليقات الموجهه منك الينا

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

واخيرا الاجمل بين ماسبق على الاطلاق

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

بصراحة الفكرة هذي عبقرية

فكرة اخذ تاقات الفيديوهات المشهورة واضافتها لفيديوهاتك عبقرية

ماشاء الله عليك وربنا يوفقك ويزيدك

تعليقك هذا وحده دليل على معدنك الطيب وذكائك العالى وخبرتك الواسعة ..

ماشاء الله عليك أخى الغالى..ربنا يسعدك.

RE: جلب الكلمات المفتاحية لآى فيديو - (إداري سابق) - 30-03-20

(30-03-20, 05:06 PM)محمد ايمن كتب :
ممكن مثال

(30-03-20, 05:16 PM)ابو روضة كتب :
(30-03-20, 05:06 PM)محمد ايمن كتب :
ممكن مثال

انت دخلت على العنوان ولم تكلف نفسك حتى دقيقة تشاهد الموضوع

لآنك داخل على شيئ محدد " مثال فقط " ولو كنت قرأت الموضوع لكنت وجدت

ما تبحث عنه....للأسف أغلبنا الآن يريد الجاهز بكل شيئ وبضغطة زر..

أنت حتى ما كلفت نفسك تقول لى " جزاك الله خيرا " ....

والله شيئ يٌحزن.

الاخ ابو روضة، انت تريد نشر فائدة للمبرمجين وهذا جيد.

* الاعضاء غير مجبرين على الشكر أوالثناء أوالتقييم، وأيضا لا يتم الحصول عليه بطلبها أو التلميح لها.

المنتدى (قسم لغة الفيجوال بيسك VB.NET) يشمل عدة اقسام ومن ضمنها:
(قسم امثلة ومشاريع VB.NET) ومن اسمه يدل على شرط وجود مثال او مشروع للموضوع.
(قسم مكتبة اكواد VB.NET) ومن اسمه مجرد وضع كود مع شرح ولو بسيط له.

ومما سبق، يتضح أن الاخ (محمد ايمن) لم يكن مخطئا في مشاركته.

* الأخ ابو روضة، أنت وضعت موضوعك في (قسم امثلة ومشاريع VB.NET)،
فإذا كان موضوعك كود فقط ولم تكن ترغب بوضع مثال أو مشروع فينبغي عليك أن تضعه في (قسم مكتبة اكواد VB.NET)،
وهناك لن تكون مطالبًا بوضع مثال أو مشروع.

أرجو من الإدارة أن تكون أكثر يقظة، وعليها متابعة المواضيع وما يرد فيها،
وتصحيح مكان كل موضوع حسب محتواه، مع التنبيه على من يخالف ذلك.

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