[elgokr]

(20-07-18, 03:31 AM)ابو روضة كتب :

اعتقد ان النتائج ثابتة أستاذى وعموما وقتما يكون الوقت مناسب لك سأكون بانتظارك

للاسف النتائج غير ثابتة فى بعض الاحيان النادرة

لكن خلينا نجرب ذلك بالشرح التالى ولعلها تصل الفكرة كاملاً لك لتتمكن من التعامل معها

فى البداية قم بانشاء TextBox واجعله Multiline

ثم قم بتطبيق التالى فى زر استخراج الروابط

كود :

       Dim input As HtmlElementCollection
       input = WebBrowser1.Document.GetElementsByTagName("td")
       For Each elem As HtmlElement In input
           Dim GetData_ As String = elem.OuterHtml.Replace("<TD>", "").Replace("</TD>", "").Replace("<A href=""", "").Replace(""" rel=""noreferrer nofollow"" download>DOWNLOAD</A>", "")
           If GetData_ IsNot Nothing Then
               TextBox1.Text += GetData_
           End If
       Next

       Dim Total_ As Integer = (TextBox1.Lines.Length - 1) / 3

       If Total_ = 12 Then
           For ii As Integer = 0 To TextBox1.Lines.Length - 1
               If ii = 15 Or ii = 30 Or ii = 33 Or ii = 36 Then
                   ListBox1.Items.Add(TextBox1.Lines(ii))
               End If
           Next
       ElseIf Total_ = 15 Then
           For ii As Integer = 0 To TextBox1.Lines.Length - 1
               If ii = 18 Or ii = 21 Or ii = 39 Or ii = 42 Or ii = 45 Then
                   ListBox1.Items.Add(TextBox1.Lines(ii))
               End If
           Next
       ElseIf Total_ = 17 Then
           For ii As Integer = 0 To TextBox1.Lines.Length - 1
               If ii = 21 Or ii = 24 Or ii = 45 Or ii = 48 Or ii = 51 Then
                   ListBox1.Items.Add(TextBox1.Lines(ii))
               End If
           Next
       End If
       Button1.Enabled = False

الان نشرح فكرة الكود

بخصوص هذا السطر

كود :

Dim Total_ As Integer = (TextBox2.Lines.Length - 1) / 3

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

حيث انه سيقوم بجلب رقم 15

ثم تم استخدام كلاً من الاسطر التالى للتحقق

كود :

If Total_ = 12 Then
ElseIf Total_ = 15 Then
ElseIf Total_ = 17 Then

حيث انه ناتج لعدد الاسطر بالجدول طبقاً لكل رابط حسب الجودة التى تحتوى

الروابط التى تم استخدامها

الرابط الاول بنتائج 15 سطر اعلى جودة للفيديو 720

PHP كود :

http://www.tubeoffline.to/downloadFrom.php?host=OnLine&d=&video=https://www.youtube.com/watch?v=sThzWbKBzS0 


الرابط الثانى بنتائج 12 سطر اعلى جودة للفيديو 480

PHP كود :

http://www.tubeoffline.to/downloadFrom.php?host=OnLine&d=&video=https://www.youtube.com/watch?v=2ZuDh0vqxUE 


الرابط الثالث بنتائج 17 سطر اعلى جودة للفيديو 1080

PHP كود :

http://www.tubeoffline.to/downloadFrom.php?host=OnLine&d=&video=https://www.youtube.com/watch?v=btUPp-VJGos 


طيب يليه بعد ذلك الكود المستخدم مثل

كود :

If ii = 18 Or ii = 21 Or ii = 39 Or ii = 42 Or ii = 45 Then

والارقام هنا تعنى التالى

لو تلاحظ ان كلاً من رقم 18 و 21 و 39 و 42 و 45 

يشير الى الروابط المطلوب جلبها الخاصة بـ With Audio

طيب ايه المطلوب لتتاكد ان الكود قد يحتاج لاضافة بعد الاسطر وانه سيعمل معاك

كل ما هو عليك فعله تجربة فيديوهات عديدة على هذا الموقع بكل ما تقدر من الجدودة حتى اذا كان الفيديو 144

مع مراجعة الروابط بجدودة 480 و 720 و 1080 هل النتائج لعدد الاسطر كما تم عمله فى الكود ام تختلف من فيديو لاخر

اتمنى اكون وصلت لك الفكرة وكيفية التعامل مع الموقع المطلوب

ملحوظة  :  (قد لا يعمل الكود بصورة ايجابية فى حالة ظهور اسطر مخفية فى نتائج الجدول وستجد نتائج الجدول تحتوى مثل)

كود :

240p
MP4
https://i.ytimg.com/vi/eeqUNYGLn7Q/maxresdefault.jpg

عند اختبار الكود ستجد انه نادر ظهور هذا الا عند ظهورها ستجد ان الزر لا يعمل

وستطر الى اغلاق البرنامج واعادة تشغيله لعرض نتائج مختلفة

والسبب يرجع الى لو الموقع يعرض 15 سطر وقام الموقع بوضع سطر او اكثر مخفي

فيصبح النتائج مثل 16 و 17 و 18 سطر

حيث انك قمت بوضح شطر التحقق اذا كان عدد الاسطر 15 يعرض الروابط كذا

فهنا تجد انه سيعرض نتائج اسطر 17 خاصة جودة 1080 او انه لا يعرض شئ لو كان الاسطر 16 او 18 وما غير ذلك

تحياتى لك

وتمنياتى لك التوفيق