20-07-18, 06:27 PM
(20-07-18, 05:03 PM)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 وما غير ذلك
تحياتى لكوتمنياتى لك التوفيق
كل هذا المجهود لابد أن يعجب الجبال الشامخات كمان...
يا أخى أنت تخطيت حدود الإبداع وما هو أكثر صدقنى...