(22-08-17, 05:11 PM)HASAN6.0 كتب :

PHP كود :

for i = 0 to ListBox1.items.count - 1

Download = New WebClient
Download.DownloadFileAsync(New Uri(ListBox1.items(i)), My.Computer.FileSystem.SpecialDirectories.Desktop + "\" + CleanFileName(ListBox2.Items(i)) + ".mp4") 

next 


(23-08-17, 12:10 AM)سعود كتب : لو تديني قائمة بروابط تحب تحملها اجهز مثال على كلامي وتشوف بنفسك
تحياتي اخي.


اتفضل اخى

http://www.downvids.net/downloadplaylist/a1c7fad289d2d054ca7f51f85594f3e9/0/3
http://www.downvids.net/downloadplaylist/a1c7fad289d2d054ca7f51f85594f3e9/1/3
http://www.downvids.net/downloadplaylist/a1c7fad289d2d054ca7f51f85594f3e9/2/3
http://www.downvids.net/downloadplaylist/a1c7fad289d2d054ca7f51f85594f3e9/3/3
http://www.downvids.net/downloadplaylist/a1c7fad289d2d054ca7f51f85594f3e9/4/3

(23-08-17, 12:18 AM)سعود كتب :
http://vb4arb.com/vb/attachment.php?aid=14677

---

بكون معاك خطوة خطوة
اول حاجة عملتها حطيت الروابط بملف نصي باسم urls.txt
عرفت متغير قائمة نصية 

كود :

 Dim lst As New List(Of String)

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

كود :

       For Each h As String In My.Computer.FileSystem.ReadAllText("urls").Split(vbNewLine)
           h = h.Trim
           If h.ToString.Trim <> "" Then
               lst.Add(h)
           End If
       Next

يتبع....

---

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

يتبع

---

انتهى المثال
لحظات

---

المثال مرفق

(23-08-17, 01:45 AM)ابو ليلى كتب : السلام عليكم و رحمة الله و بركاته
اضافة لما قدمه الاخ سعود
مثال باستخدام Async ,Wait

(23-08-17, 01:45 AM)ابو ليلى كتب : السلام عليكم و رحمة الله و بركاته
اضافة لما قدمه الاخ سعود
مثال باستخدام Async ,Wait

[b]ازاى اخلى الملف الذى يتم تحميلة يكون متعلم

 
[/b]