تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
جلب الكلمات المفتاحية لآى فيديو
#1
[صورة مرفقة: 88871.png]
اللهم لك الحمد حمدًا طيّبًا كثيرًا مُباركًا فيه؛
ملء السّماوات وملء الأرض وما بينهما، وملء ما شيئت من شيء بعدهما.
*. أرحب بكم إخواني وأخواتي أعضاء منتدى فيجوال بيسك لكل العرب .*
*. أتمنى أن تكونوا في تمام الصحة والعافية.* 

[صورة مرفقة: 88872.gif]


قمت بفضل الله ببرمجة هذه الاداة الصغيرة لكنها ستكون مفيدة للبعض بأمر الله..
فبها ستجلب أى كلمات دلالية لآى فيديو به مشاهدات كثيرة..
وبالسورس كود ستتعلم منه جلب أى شيئ بأمر الله من على أى موقع...
فهو يدخل على مصدر الصفحة ثم يدخل على العقد "nodes" الذى أريد جلب منه ما أريده
ثم يدخل على الattributes ويجلب منه القيمة "value"...
فهنا دخل على ال



[صورة مرفقة: u8p6damingmt.png]

[صورة مرفقة: k008uv0lzwdu.png]

لا تهتم بالمسميات التى أقولها فقد أكون مُخطأ بها ولكن انا أحب التسهّل على نفسى لآفهم على طريقتى أنا...
سيتم نسخ جميع التاجات بمجرد ظهور الرسالة لك ووقتها تستطيع وضعها مباشرة بأى فيديو يخصك...
لكل مبتدأ حاول تفتح السورس وتجرب على جلب أشياء من مواقع مختلفة حتى تتقن الطريقة
فهى سهلة وجميلة وخصوصا التعامل مع مكتبة  ال 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
وهذه هى المكتبة


ولن أنسى شكر الأخ سعود فهو من علمنى بعد الله التعامل مع هذه المكتبة.
الرد }}}
#2
بارك الله فيك و جزاك الله عنا كل خير .
الرد }}}
تم الشكر بواسطة: ابو روضة , ابو روضة , ابراهيم ايبو
#3
(30-03-20, 04:39 PM)asemshahen5 كتب : بارك الله فيك و جزاك الله عنا كل خير .

جزانا واياك كل الخير أخى الكريم.....
الرد }}}
تم الشكر بواسطة: asemshahen5 , محمد ايمن , ابراهيم ايبو
#4

ممكن مثال
Heart قل لن يصيبنا الا ماكتب الله لنا Heart
الرد }}}
تم الشكر بواسطة: asemshahen5
#5
(30-03-20, 05:06 PM)محمد ايمن كتب :
ممكن مثال


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

لآنك داخل على شيئ محدد " مثال فقط " ولو كنت قرأت الموضوع لكنت وجدت
ما تبحث عنه....للأسف أغلبنا الآن يريد الجاهز بكل شيئ وبضغطة زر..
أنت حتى ما كلفت نفسك تقول لى " جزاك الله خيرا " ....
والله شيئ يٌحزن.
الرد }}}
#6
بارك الله فيك وجزاك عنا كل خير
الفكرة رائعة جدا جدا
وفقك الله لكل خير.
الرد }}}
#7
(30-03-20, 05:37 PM)سعود كتب : بارك الله فيك وجزاك عنا كل خير
الفكرة رائعة جدا  جدا
وفقك الله لكل خير.

جزانا واياك كل الخير أخى العزيز....
الرد }}}
#8
وعليك السلام ورحمة الله وبركاته
بصراحة ابو روضة 

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

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

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

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

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

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

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

 

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

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

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

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

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

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

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

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

 



تعليقك هذا وحده دليل على معدنك  الطيب وذكائك العالى وخبرتك الواسعة ..
 ماشاء الله عليك أخى الغالى..ربنا يسعدك.
الرد }}}
#10
(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
وهناك لن تكون مطالبًا بوضع مثال أو مشروع.


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


اتمنى للجميع التوفيق والنجاح
الرد }}}
تم الشكر بواسطة: محمد ايمن , asemshahen5



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم