[ابو روضة]

(17-08-18, 11:55 PM)elgokr كتب :

اذا كان الروابط كثيرة أو قليلة سيتم التعامل معها عادى بدون مشكلة

لكن قد تواجه بعض اللاج فى تحميل الروابط بسبب كثرتها مثلاً

فكل ما عليك هو مثلاً عمل اى مسمى رقمى يبداء برقم 0 خارج for

والاخر من نوع رقمي ايضاً ويكون قيمته كذلك 0 ايضاً خارج for

ومن ثم تقوم بوضع بعد كود اضافة الرابط لليست ان القيمة للرقم +1

هيكون الشكل مثلاً وكلاهما خارج For

كود :

Dim i As Integer = 0
Dim ii As Integer = 0

وما داخل For اسفل كود اضافة الرابط لليست يكون التالى

كود :

i += 1

وبعدها تعمل مثلاً كود تحقق اسفل منه كالتالى

كود :

       If i >= ii + 20 Then
           ii = i
           MessageBox.Show("تم الانتهاء من تحميل " & ii & "هل تريد استكمال التحميل", "تاكيد", MessageBoxButtons.YesNo)
       End If

وبكده انت كل مثلاً 20 رابط تم جلبه تظهر رسالة الاستكمال او لا

وتضع اسف الرسالة كود اذا كان اختار yes يتجاهل اى حاجة وهيستكمل عمله عادى

واذا اختار no يقوم بانهاء كود الزر 

يمكنك التعديل على رقم 20 الى الرقم المناسب حسب تعامل البرنامج والجهاز لديك فى اللود

وهذا ما الا فكرة ويعتمد بالنهاية عليك

تحياتى لك

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

جزاك الله كل الخير والسعادة اخى واستاذى الجوكر لوقوفك بجوار الجميع دائما....

يبدو  ان هذا سيكون بطيئا وممّلاً نوعا ما ويبدو ان التعامل مع الويب براوزر اصبح يرمز الى جيل الفراعنة هههه..

قام صديق لى بعمله بالويب ريكويست وصراحة سريعة لدرجة انه يجلب الروابط فى اقل من ثلاث ثوانى

وتمنيت من امس اننى اتعلم هذه التقنية لكنى بعد البحث لم اجد لها شرحا ثقيلا عربيا..

الله المستعان واعتذر لك مغلبك معايا