(05-04-16, 11:16 PM)سعود كتب : المطلوب واضح من البداية اخي الكريم لكن اللازم تجهيز الملفات اللازمة لاتمام المثال ... وخلاص.

---

يعني اول شي رتب الموقع  ...
مثلا عندي ثلاث مسلسلات:
مسلسل1
مسلسل2
مسلسل3

اعمل مجلد لكل مسلسل و داخل المجلد الحلقات.
اعمل كود يقرا اسماء المجلدات ويضعها في كومبوبوكس  وتعمل مصفوفة نصية تخزن بيها روابط المجلدات ولما تنقر اي مجلد اقرا محتوى المجلد وتجيب كل اسماء الحلقات في ليست بوكس وروابطها في مصفوفة نصية اخرى.
مثل المثال التالي
http://vb4arb.com/vb/thread-12267.html

إقتباس :انا قولت لحضرتك انى مش هعرف اعمل الكود لوحدى بعد ازنك لو تعمل الكود مسلسل واحد وحلقة واحده وضع اى رابط وانا هفهم الباقى واعرف اكمل يعنى حضرتك اعملى الكود كامل على مسلسل واحد تمام وشكرااااااااااا

إقتباس :كمان فى حاجة مفيش حلقات الحلقات عن طريق رابط فى موقع بس

(05-04-16, 11:43 PM)سعود كتب :

إقتباس :انا قولت لحضرتك انى مش هعرف اعمل الكود لوحدى بعد ازنك لو تعمل الكود مسلسل واحد وحلقة واحده وضع اى رابط وانا هفهم الباقى واعرف اكمل يعنى حضرتك اعملى الكود كامل على مسلسل واحد تمام وشكرااااااااااا

ممتاز
يبقى  اعمل مجلد وحط جواه ملف .. منتظرك.

---

إقتباس :كمان فى حاجة مفيش حلقات الحلقات عن طريق رابط فى موقع بس

مش مشكلة المهم  تجهز مجلد باسم مسلسل وجواه ملف روابط الحلقات.

---

انا عملت حساب في دروب بوكس عشان اعمل مثال يوضح لك الفكرة.
انتظرني

(06-04-16, 01:23 AM)hassan كتب : امسح المواضيع وسيب ده فقط

(06-04-16, 01:24 AM)mostfa1995 كتب :

(06-04-16, 01:23 AM)hassan كتب : امسح المواضيع وسيب ده فقط

(06-04-16, 02:17 AM)سعود كتب :

PHP كود :

Imports System.Net
Imports System.Text

Public Class Form1
    Dim urls As New List(Of String)
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim html As String = ""
        Dim wc As New WebClient
        Dim url As String = "https://www.dropbox.com/sh/26jvkrm45hcgaoy/AACkcoPA985ZfWWoO2huCjzHa?dl=0"
        html = wc.DownloadString(url)
        Dim doc As New HtmlAgilityPack.HtmlDocument
        doc.LoadHtml(html)
        For Each nod As HtmlAgilityPack.HtmlNode In doc.DocumentNode.SelectNodes("//div[@class='filename']/a")
            ComboBox1.Items.Add(nod.InnerText.Trim)
            urls.Add(nod.Attributes("href").Value)
        Next
    End Sub

    Dim vidlinks As New List(Of String)
    Private Function gtitle(ByVal url As String) As String
        Dim html As String = ""
        Dim wc As New WebClient
        wc.Encoding = Encoding.UTF8
        html = wc.DownloadString(url)
        Dim doc As New HtmlAgilityPack.HtmlDocument
        doc.LoadHtml(html)
        Return doc.DocumentNode.SelectSingleNode("//title").InnerText
    End Function
    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged

        Dim m As String = New WebClient().DownloadString(urls(ComboBox1.SelectedIndex))
        Dim doc As New HtmlAgilityPack.HtmlDocument
        doc.LoadHtml(m)



        Dim nod As HtmlAgilityPack.HtmlNode = doc.DocumentNode.SelectSingleNode("//iframe[@src]")
        Dim wc As New WebClient
        Dim h As String = wc.DownloadString(nod.Attributes("src").Value)
        Dim doc2 As New HtmlAgilityPack.HtmlDocument
        doc2.LoadHtml(h)
        For Each j As String In doc2.DocumentNode.SelectSingleNode("//pre").InnerText.Split(vbNewLine)
            vidlinks.Add(j)
            ListBox1.Items.Add(WebUtility.HtmlDecode(gtitle(j)))
        Next

    End Sub

    Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
        AxShockwaveFlash1.Movie = vidlinks(ListBox1.SelectedIndex).ToString.Replace("watch?v=", "v/").Trim
    End Sub
End Class