السلام عليكم اخوتى
بعمل برنامج تحميل لكن يحمل كذا رابط وانا جلبت روابط التحميل داخل ال ListBox
وعاوز لما يخلص تحميل الرابط الاول ينتقل مباشرة الى الرابط الثانى وهكذا
وهذا كود التحميل
PHP كود :
Download = New WebClient
Download.DownloadFileAsync(New Uri(ListBox1.SelectedItem), My.Computer.FileSystem.SpecialDirectories.Desktop + "\" + CleanFileName(ListBox2.SelectedItem) + ".mp4")
وهذا ما اريده
(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
ماشاء الله عليك اخى العزيز......
لكن لما جربت اخى بقى يحمل الملفات كلها مرة واحدة وده اكيد مش مقصدى
انا اريده يحمل ملف ملف يعنى يخلص ملف ثم ينتقل الى الاخر وهكذا
اخي الكريم ابو روضه ممكن ترفع مثال لتسهل المساعده
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
يتبع....
زر امر وليبل وعدد اثنين بروقرس بار باسماءها الافتراضية
البروقرسبار الاول يتغير مع قيمة الرابط ضمن القائمة
والاخر مع تحميل كل ملف
يتبع
انتهى المثال
لحظات
المثال مرفق
السلام عليكم و رحمة الله و بركاته
اضافة لما قدمه الاخ سعود
مثال باستخدام Async ,Wait
(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]
