[ابو روضة]

(01-09-18, 01:23 AM)عابر سبيل 2 كتب :

جرب هذا الكود

PHP كود :

for each indx in CheckedListbox1.Checkedindices
    Download = New WebClient
    Download.DownloadFileAsync(New Uri(lis(indx)), My.Computer.FileSystem.SpecialDirectories.Desktop & "\" & CleanFileName("") & ".mp4")
next 


---

جرب هذا الكود

PHP كود :

for each indx in CheckedListbox1.Checkedindices
    Download = New WebClient
    Download.DownloadFileAsync(New Uri(lis(indx)), My.Computer.FileSystem.SpecialDirectories.Desktop & "\" & CleanFileName("") & ".mp4")
next 


للاسف اخى لم ينفع اطلاقا وجزاك الله كل خير

---

(01-09-18, 01:06 AM)سعود كتب : sender.selectedindex
هذا السطر يعني المظلل.

شوف المرفق التالي معدل من مثال الاخ اللي شارك بالموضوع.

طبعا لا يوجد تحميل لانه ليس لدي روابط مناسبة للفكرة الخاصة بالموضوع.
حاول تدقق بالمشروع بعيدا عن مشروعك 

والله العظيم انا من الصبح اصلا وانا بحاول والى الان لم اصل لاى جديد

[سعود]

إقتباس :والله العظيم انا من الصبح اصلا وانا بحاول والى الان لم اصل لاى جديد

اخي الكريم ... قد يكون السبب من الموقع نفسه.
هل استفدت من المثال بشكل جيد؟
هل عرفت فكرته و اقصد فكرة مشروعي ؟
هل تلقي نظرة للمثال التالي قد تتضح لك فكرتي ببساطة

هنا

---

انا متاكد ان الفكرة لن تجد بها ماتريده الان ...افضل شيء اي شخص تستطيع التواصل معه ليعدل على مشروعك.

[ابو روضة]

(01-09-18, 02:46 AM)سعود كتب : انا متاكد ان الفكرة لن تجد بها ماتريده الان ...افضل شيء اي شخص تستطيع التواصل معه ليعدل على مشروعك.

الله المستعان أخى سعود من يريد المساعدة أكيد لن ينتظر التواصل معه

[elgokr]

مرحباً اخى ابو روضة

قمت بالاطلاع على الردود فالكل اعطى لك الحلول الصحيحة لما تريد

لكن يبدو انك مشتت ولا تعلم ماذا تفعل

سابسط الامر لك لكيفية حل ذلك

تعال نتخيل التالى

ان الروابط واسم الملف الذى يتم جلبه عبارة عن كمثال

كود :

youtube(0 , 0) ' الاسم
youtube(0, 1) ' الرابط

أو

كود :

youtube(0)(0) ' الاسم
youtube(0)(1) ' الرابط

اى كانت الطريقة فى النهاية هى عبارة عن نوع String()  او المسمى لها Array

طيب انت الان بعد اظهار الاسماء قى listbox 

كل ما عليك التالى بعد الاكواد المدرجة للاخوة وهو لجلب رقم كل check

عم طريق مثلاً For فكل الامر اللى انت محتاجه انك تمرر الرقم ده ليصبح الشكل كالتالى

كود :

youtube(ii)(1) ' ii تعنى رقم Check

بكده تكون انت معاك الرابط من خلاله كل ما عليك ان تمرره فى WebClient

للكود الذى لديك وبكده تكون طبقت ما تريده

اتمنى ان تكون الفكرة والصورة وضحت لك

واذا ارفقت السورس ستجد الجميع بوضع الكود الفعلى لما تريده

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

وستجد الكل اعاد ارفاقه لك وبه الحل الانسب لك

تحياتى لك

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

[ابو روضة]

(01-09-18, 04:33 PM)elgokr كتب :

مرحباً اخى ابو روضة

قمت بالاطلاع على الردود فالكل اعطى لك الحلول الصحيحة لما تريد

لكن يبدو انك مشتت ولا تعلم ماذا تفعل

سابسط الامر لك لكيفية حل ذلك

تعال نتخيل التالى

ان الروابط واسم الملف الذى يتم جلبه عبارة عن كمثال

كود :

youtube(0 , 0) ' الاسم
youtube(0, 1) ' الرابط

أو

كود :

youtube(0)(0) ' الاسم
youtube(0)(1) ' الرابط

اى كانت الطريقة فى النهاية هى عبارة عن نوع String()  او المسمى لها Array

طيب انت الان بعد اظهار الاسماء قى listbox 

كل ما عليك التالى بعد الاكواد المدرجة للاخوة وهو لجلب رقم كل check

عم طريق مثلاً For فكل الامر اللى انت محتاجه انك تمرر الرقم ده ليصبح الشكل كالتالى

كود :

youtube(ii)(1) ' ii تعنى رقم Check

بكده تكون انت معاك الرابط من خلاله كل ما عليك ان تمرره فى WebClient

للكود الذى لديك وبكده تكون طبقت ما تريده

اتمنى ان تكون الفكرة والصورة وضحت لك

واذا ارفقت السورس ستجد الجميع بوضع الكود الفعلى لما تريده

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

وستجد الكل اعاد ارفاقه لك وبه الحل الانسب لك

تحياتى لك

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

والله العظيم انا من امس وانا بحاول معاها ومش عارف مخى منغلق تماما والفكرة حتى مش عاوزة 
ترسخ فى دماغى وعموما  المشروع لمن يريد المساعدة

[elgokr]

تم الاطلاع على الملف المرفق

وملاحظ ان جلب اسم الفيديو المطلوب تحميله يتم جلبه من خلال الاتى

كود :

           If item.GetAttribute("Id").Contains("msgtxt3567146535") Then
               checkedListBox1.Items.Add(item.InnerText)
           End If

تعال كده اطلب منك التالى

حتى تصل الفكرة لك كاملاً

فى البدابة انشاء checkedListBox اضافى فى الشاشة

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

الى هنا جميل
يعنى كل اللى مطلوب منك انك ستكرر مثل هذا الكود

كود :

       ss = webBrowser1.Document.GetElementsByTagName("span")
       For Each item As HtmlElement In ss
           If item.GetAttribute("Id").Contains("msgtxt3567146535") Then
               checkedListBox1.Items.Add(item.InnerText)
           End If
       Next item

لكن بدل من ان يتم جلب اسم الفيديو يقوم بجلب رابط الفيديو

وبدل من تمريره الى checkedListBox1 سيكون checkedListBox2

جلب الرابط سيكون من A بدلاً من Span والـ id الخاص به search_more

الرابط ستجده فى href

طيب بعد عمل التالى ماذا يمكنك فعله

كل ما عليك هو تطبيق شرح الاخوة فى جلب كل رقم لـ checkedListBox1 المحدد

فمثلاً لنقول ان checkedListBox1 المحدد هو 1 هتستخدم 1 لكن هنا على checkedListBox2

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

اتمنى ان اكون سهلت الامر عليك

وان الامر اصبح اسهل وبسيط بكل ما تتخيله

تحياتى لك

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

[ابو روضة]

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

تم الاطلاع على الملف المرفق

وملاحظ ان جلب اسم الفيديو المطلوب تحميله يتم جلبه من خلال الاتى

كود :

           If item.GetAttribute("Id").Contains("msgtxt3567146535") Then
               checkedListBox1.Items.Add(item.InnerText)
           End If

تعال كده اطلب منك التالى

حتى تصل الفكرة لك كاملاً

فى البدابة انشاء checkedListBox اضافى فى الشاشة

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

الى هنا جميل
يعنى كل اللى مطلوب منك انك ستكرر مثل هذا الكود

كود :

       ss = webBrowser1.Document.GetElementsByTagName("span")
       For Each item As HtmlElement In ss
           If item.GetAttribute("Id").Contains("msgtxt3567146535") Then
               checkedListBox1.Items.Add(item.InnerText)
           End If
       Next item

لكن بدل من ان يتم جلب اسم الفيديو يقوم بجلب رابط الفيديو

وبدل من تمريره الى checkedListBox1 سيكون checkedListBox2

جلب الرابط سيكون من A بدلاً من Span والـ id الخاص به search_more

الرابط ستجده فى href

طيب بعد عمل التالى ماذا يمكنك فعله

كل ما عليك هو تطبيق شرح الاخوة فى جلب كل رقم لـ checkedListBox1 المحدد

فمثلاً لنقول ان checkedListBox1 المحدد هو 1 هتستخدم 1 لكن هنا على checkedListBox2

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

اتمنى ان اكون سهلت الامر عليك

وان الامر اصبح اسهل وبسيط بكل ما تتخيله

تحياتى لك

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

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

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

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

[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

تحياتى لك

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

[ابو روضة]

(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)
لكن الموضوع معقد فعلا ولو حضرتك جربت بكود حضرتك ستجد انه لا يحمل اى شيئ اصلا
وحتى لو حمل سيحمل كل الروابط مرة واحدة وانا لا اريد ذلك بل اريده يحمل المتحدد ثم ينزل على المتحدد
الاخر يحمله وهكذا الى ان ينتهى من كل الروابط المتحددة واحد تلو الاخر ليس كلهم مع بعض

[سعود]

إقتباس :من يريد المساعدة أكيد لن ينتظر التواصل معه

قصدي ان كنت تتحفظ على  المشروع لاي سبب كان (ولك الحق ولا احد يلومك).