01-09-18, 05:49 PM
(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واللى هيكون بطبيعة الحال مخفي واللى هيكون فى الرابط التى تم جلبها
اتمنى ان اكون سهلت الامر عليكوان الامر اصبح اسهل وبسيط بكل ما تتخيله
تحياتى لكوتمنياتى لك التوفيق
واضح انك لم تفهم مطلبى اخى الجوكر
انا كل ما اريد هو تحميل المتعلم عليه فقط..
" تحميل ليس جلب روابط "

