[ابو روضة]

(01-09-18, 05:59 PM)elgokr كتب :

(01-09-18, 05:49 PM)ابو روضة كتب :

واضح انك لم تفهم مطلبى اخى الجوكر

انا كل ما اريد هو تحميل المتعلم عليه فقط..

" تحميل ليس جلب روابط "

بالعكس اخى ابو روضة

لكن انا لم الاحظ انك تقوم بجلب الرابط المطلوب تحميله

فكيف يمكنك تحميل شئ لا يوجد له رابط

فى الكود فى اول الموضوع موضح هنا الكود التالى

كود :

New Uri(الرابط))

بالنهاية سيكون الكود المطلوب فى اول المشاركة بهذا الشكل

كود :

       Download = New WebClient
       Download.DownloadFileAsync(New Uri(CheckedListBox2.Items.Item(0))), My.Computer.FileSystem.SpecialDirectories.Desktop + "/" + CleanFileName(CheckedListBox1.Items.Item(0)) + ".mp4")

رقم 0 المدرج هو رقم كل ما تم تحديده فى CheckedListBox1 عند تحديد التحميل

وسيمرر الرقم عن طريق For لعدد ما تم تحديده فى CheckedListBox1 عن جلب رقم index

تحياتى لك

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

هذا هو كود التحميل الاصلى اخى جوكر

كود :

Download = New WebClient
           '    Download.DownloadFileAsync(New Uri((lis(sender.selectedindex))), My.Computer.FileSystem.SpecialDirectories.Desktop + "/" + CleanFileName(Me.Text) + ".mp4")
     

لآن الروابط بتم جلبها بهذا الكود

كود :

If item.GetAttribute("href").Contains("downloadplaylist") Then
               lis.Add(item.GetAttribute("href").ToString())
           End If

 وبهذا يكون الرابط مخفى داخل الاسم يعنى الاسم اللى ظاهر اصلا بكون هو هو الرابط
وتعلمت هذه الطريقة من اخى سعود Dim lis As New List(Of String)
لكن الموضوع معقد فعلا ولو حضرتك جربت بكود حضرتك ستجد انه لا يحمل اى شيئ اصلا
وحتى لو حمل سيحمل كل الروابط مرة واحدة وانا لا اريد ذلك بل اريده يحمل المتحدد ثم ينزل على المتحدد
الاخر يحمله وهكذا الى ان ينتهى من كل الروابط المتحددة واحد تلو الاخر ليس كلهم مع بعض