تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
جلب روابط وصيغ
#1
السلام عليكم ورحمة الله وبركاته
اخوتى اريد جلب الصيغ والورابط من هذا الموقع لو تكرمتم
اريد جلب الروابط كلها داخل كومبوبوكس 1 
وجلب الصيغ داخل كومبوبوكس 2
حاولت بهذا الكود لجلب الصيغ ولم ينجح
وجربته بال HtmlAgilityPack ايضا لم ينجح

كود :
'جلب الصيغ
       Dim allBtns As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("table")
       For Each btn As HtmlElement In allBtns
           If btn.GetAttribute("tr") = ("td") Then
               ComboBox2.Items.Add(btn.InnerText)
               Select Case ComboBox2.SelectedIndex
                   Case 0
                       ComboBox2.Items.Add(btn.InnerText)
                   Case 1
                       ComboBox2.Items.Add(btn.InnerText)
                   Case 2
                       ComboBox2.Items.Add(btn.InnerText())
                   Case 3
                       ComboBox2.Items.Add(btn.InnerText)
                   Case 4
                       ComboBox2.Items.Add(btn.InnerText)
                   Case 5
                       ComboBox2.Items.Add(btn.InnerText)
                   Case 6
                       ComboBox2.Items.Add(btn.InnerText)
                   Case 7
                       ComboBox2.Items.Add(btn.InnerText)
                   Case 8
                       ComboBox2.Items.Add(btn.InnerText)
                   Case 9
                       ComboBox2.Items.Add(btn.InnerText)

               End Select
               's += 1
           End If
       Next
الموقع

http://www.tubeoffline.com/downloadFrom....tn0sWSGcys
الرد
تم الشكر بواسطة:
#2
الاخ احمد كان جاوبنى هنا وجيت أرد عليه المنتدى توقف ولسة مفتوح من شوية



ولا أعرف من حذف تعليقه هل هو أم شخص أخر
الرد
تم الشكر بواسطة:
#3
معك حق اخي ابو روضة
انا ايضا قرأت اجابة الاخ احمد
لكن السؤال الاخير له ابعاد اتمنى ان تنتهي الى حدود الظن السليم .
الادارة لا تتعدى على حقوق الاخرين
او حذف المشاركات الا اذا كانت
مخالفة و مشاركة الاخ احمد ليست
مخالفة لكي تحذف .
انا ايضا انتظر الاجابة من الاخ احمد على نفس السؤال .
وَقُل رَّبِّ اغْفِرْ وَارْحَمْ وَأَنتَ خَيْرُ الرَّاحِمِينَ
الرد
تم الشكر بواسطة:
#4
احببت المشاركة بهذا الموضوع

PHP كود :
Imports System.Text
Imports System
.Net
Public Class Form1
    Private Sub Button1_Click
(sender As ObjectAs EventArgsHandles Button1.Click
        Dim hosturl 
As String "http://www.tubeoffline.com/downloadFrom.php?host="
 
       hosturl hosturl.Insert(hosturl.LengthTextBox1.Text)
 
       '  MsgBox(hosturl)
        Dim h As New HtmlAgilityPack.HtmlWeb
        Dim d As HtmlAgilityPack.HtmlDocument = h.Load(hosturl, "Get")
        Dim content As HtmlAgilityPack.HtmlNode = d.DocumentNode.SelectSingleNode("//table")
        dg.Rows.Clear()
        For r As Integer = 1 To content.ChildNodes.Count - 2
            Dim row As HtmlAgilityPack.HtmlNode = content.ChildNodes(r)
            Dim td1 As String = (WebUtility.HtmlDecode(row.SelectNodes("//tr/td[1]")(r).InnerText))
            Dim td2 As String = (WebUtility.HtmlDecode(row.SelectNodes("//tr/td[2]")(r).InnerText))
            Dim td3 As String = (WebUtility.HtmlDecode(row.SelectNodes("//tr/td[3]/a")(r).Attributes("href").Value))
            dg.Rows.Add(td1, td2, td3)
        Next
    End Sub
End Class 


الملفات المرفقة
.zip   YoutubeUrlGetter.zip (الحجم : 37.44 ك ب / التحميلات : 73)
[صورة مرفقة: vvv.png]
الرد
تم الشكر بواسطة:
#5
(04-11-17, 02:58 AM)Amir_alzubidy كتب : معك حق اخي ابو روضة
انا ايضا قرأت اجابة الاخ احمد
لكن السؤال الاخير له ابعاد اتمنى ان تنتهي الى حدود الظن السليم .
الادارة لا تتعدى على حقوق الاخرين
او حذف المشاركات الا اذا كانت
مخالفة و مشاركة الاخ احمد ليست
مخالفة لكي تحذف .
انا ايضا انتظر الاجابة من الاخ احمد على نفس السؤال .

لالالا اخى العزيز ربنا يعلم اننا بحب كل الناس بقلب صافى ويمكن عشان انا بطبيعتى
ناس كتير بتكرهنى تقدر تقول اللى فى قلبى على لسانى لكن اذا احسست بشيئ
غريب من شخص معين بقول ولا يهمنى من اى شيئ لكن بقولها ايضا بأدب
وأغلبكم هنا لهم أفضال علىّ بعد المولى عزّ وجلّ طبعا حتى انى أمس والله كنت بفكر
ان الاشخاص هنا أو بأى مكان اللى بساعدو غيرهم ليسو مجبرين على ذلك فيجب
أن نحترمهم ونقدرهم ونصبر عليهم وبكل أدب كما صبر موسى على الخضر.
كما أن الاستاذ أحمد ساعدنى فى العديد من المواضيع هو والأخ سعود وغيرهم الله يكرمهم ويبارك فيهم..
وحقيقى انا سعيد بتعليقك هذا الذى كنت انتظره كثيرا أخى أمير..
ولعل الحذف كان فيه الخير إن شاء الله.

(04-11-17, 04:02 AM)سعود كتب : احببت المشاركة بهذا الموضوع

PHP كود :
Imports System.Text
Imports System
.Net
Public Class Form1
    Private Sub Button1_Click
(sender As ObjectAs EventArgsHandles Button1.Click
        Dim hosturl 
As String "http://www.tubeoffline.com/downloadFrom.php?host="
 
       hosturl hosturl.Insert(hosturl.LengthTextBox1.Text)
 
       '  MsgBox(hosturl)
        Dim h As New HtmlAgilityPack.HtmlWeb
        Dim d As HtmlAgilityPack.HtmlDocument = h.Load(hosturl, "Get")
        Dim content As HtmlAgilityPack.HtmlNode = d.DocumentNode.SelectSingleNode("//table")
        dg.Rows.Clear()
        For r As Integer = 1 To content.ChildNodes.Count - 2
            Dim row As HtmlAgilityPack.HtmlNode = content.ChildNodes(r)
            Dim td1 As String = (WebUtility.HtmlDecode(row.SelectNodes("//tr/td[1]")(r).InnerText))
            Dim td2 As String = (WebUtility.HtmlDecode(row.SelectNodes("//tr/td[2]")(r).InnerText))
            Dim td3 As String = (WebUtility.HtmlDecode(row.SelectNodes("//tr/td[3]/a")(r).Attributes("href").Value))
            dg.Rows.Add(td1, td2, td3)
        Next
    End Sub
End Class 

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

الرد
تم الشكر بواسطة:
#6
السلام عليكم ورحمة الله وبركاتة
الان انا حملة البرنامج 
والمشكلة نفسه سوا
نسخة الكود ودخلات الي البرنامج 
مش عوز تنحل المشكلة وانا مش عرف كيف
احل المشكلة
اللي في الصور وياريت ترد علي
ولا تتجاهل الرسال هد


[صورة مرفقة: p_17087stlp1.png]

الله ويل التوفيقي
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] هل يوجد مشغل بديل لي vlc يقوم بتشغيل روابط بث مباشرة ميدو الفنان 1 136 16-09-20, 11:49 PM
آخر رد: ميدو الفنان
  [سؤال] طرب الويندوز ومحتاج اجداد الكود سحاب روابط قائيمة تشغيل من اليتيوب Ali Edal 11 1,138 05-09-20, 03:36 PM
آخر رد: معاند الحظ
  كيف عمل مشغل واستدعاء روابط القنوات عن بعد مع حمايتها حاتمي 3 737 23-03-19, 08:08 PM
آخر رد: حاتمي
  اريد جلب روابط من سورس صفحة ابو روضة 0 646 26-12-18, 03:01 AM
آخر رد: ابو روضة
  [VB.NET] مشكلة في استخراج روابط هذه الصفحة بال HtmlAgilityPack mervandzz 2 942 13-10-18, 03:53 PM
آخر رد: mervandzz
  اختيار روابط معينة من بين روابط ابو روضة 11 1,960 20-07-18, 06:41 PM
آخر رد: elgokr
  حمايه روابط البرنامج medomessi101 2 587 16-06-18, 12:13 AM
آخر رد: elgokr
  [سؤال] جلب روابط هذه الصفحة ابو روضة 2 764 04-02-18, 05:25 AM
آخر رد: ابو روضة
  [سؤال] كيف استخرج روابط وصيغ الفيديو من هنا ابو روضة 1 698 10-11-17, 11:32 PM
آخر رد: ابو روضة
Photo [VB.NET] سؤالى عن انواع البيانات اريد اعرف نوع روابط الانترنت elhon.tec 4 1,241 27-10-16, 11:38 AM
آخر رد: ممدوح

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


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم