تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] سؤال بخصوص الListBox
#1
السلام عليكم اخوتى
بعمل برنامج تحميل لكن يحمل كذا رابط وانا جلبت روابط التحميل داخل ال ListBox
وعاوز لما يخلص تحميل الرابط الاول ينتقل مباشرة الى الرابط الثانى وهكذا

وهذا كود التحميل 
PHP كود :
Download = New WebClient
        Download
.DownloadFileAsync(New Uri(ListBox1.SelectedItem), My.Computer.FileSystem.SpecialDirectories.Desktop "\" + CleanFileName(ListBox2.SelectedItem) + ".mp4") 




وهذا ما اريده

الرد }}}
تم الشكر بواسطة:
#2
PHP كود :
for 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 
الرد }}}
تم الشكر بواسطة: ابو روضة , zinom
#3
(22-08-17, 05:11 PM)HASAN6.0 كتب :
PHP كود :
for 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 

ماشاء الله عليك اخى العزيز......
لكن لما جربت اخى بقى يحمل الملفات كلها مرة واحدة وده اكيد مش مقصدى
انا اريده يحمل ملف ملف يعنى يخلص ملف ثم ينتقل الى الاخر وهكذا
الرد }}}
تم الشكر بواسطة:
#4
اخي الكريم ابو روضه ممكن ترفع مثال لتسهل المساعده
اللهم صلي علي نبي (الرحمه) محمد رسول الله وبارك علي اله وصحابته والتابعين  واحقن دماء امتنا واجعل بأسنا علي اعدائنا يا ارحم الراحمين
[b]امين [/b]



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


اتفضل اخى

http://www.downvids.net/downloadplaylist...94f3e9/0/3
http://www.downvids.net/downloadplaylist...94f3e9/1/3
http://www.downvids.net/downloadplaylist...94f3e9/2/3
http://www.downvids.net/downloadplaylist...94f3e9/3/3
http://www.downvids.net/downloadplaylist...94f3e9/4/3
الرد }}}
تم الشكر بواسطة:
#6

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

يتبع....


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

يتبع



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

المثال مرفق


الملفات المرفقة
.zip   For_Aburawdah.zip (الحجم : 83.08 ك ب / التحميلات : 52)
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
الرد }}}
تم الشكر بواسطة: zinom , zinom , Ahmed_Mansoor , ابو روضة , ابو ليلى , Amir_Alzubidy
#7
السلام عليكم و رحمة الله و بركاته
اضافة لما قدمه الاخ سعود
مثال باستخدام Async ,Wait


الملفات المرفقة
.rar   Download_MultiFiles.rar (الحجم : 66.6 ك ب / التحميلات : 62)
اللهم لك الحمد كما ينبغي لجلال وجهك و عظيم سلطانك
في حل و ترحال
الرد }}}
#8
(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

يتبع....


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

يتبع



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

المثال مرفق

والله يا اخى هو المثال جميل وماشاء الله عليك فعلا...

لكن صعب علىّ فهمه فأنا لا أريد أخذه نسخ ولصق وانتهى الأمر..
لكن انا كنت اريده كما قولت فى بداية الموضوع لانى فاهم انا بعمل ايه لكن هذه النقطة هى التى وقفت معى...
لكن لا عليك حبيبى يكفى تعبك...فجزاك الله كل خير
الرد }}}
تم الشكر بواسطة: ابو ليلى , Amir_Alzubidy
#9
إسال عن كل جزئية في المثال .... هذا افضل.

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

أسهل كود للتحميل .... معقولة مافيه مشاكل الوصول للادوات
رائع جدا جدا 
وانصح به الاخ فهو افضل
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
الرد }}}
تم الشكر بواسطة: ابو روضة , ابو ليلى , Amir_Alzubidy
#10
(23-08-17, 01:45 AM)ابو ليلى كتب : السلام عليكم و رحمة الله و بركاته
اضافة لما قدمه الاخ سعود
مثال باستخدام Async ,Wait

لثانى مرة تحللى مشكلة بتكون مغلبانى من فترة....
والله يا ابو ليلى يكفى ان اقول لك جزاك الله خيرى الدارين لآننى مهما كتبت لك من أشعار
فلن تكفى لذا فتم إختصار الشكر وكفى به دعاء " لو أصاب "
ممكن نصيحة جميلة منك لآتعلم هذه اللغة وأتقنها ولا أقول مثل ما قولت للاخ سعود
هذا الكود صعب جزاه الله كل خير طبعا..
استفسار
[b]ازاى اخلى الملف الذى يتم تحميلة يكون متعلم

 
[/b]
الرد }}}
تم الشكر بواسطة: ابو ليلى , Amir_Alzubidy



التنقل السريع :


يقوم بقرائة الموضوع: