[mostfa1995]

شرح المطلوب فى الفيديو

[سعود]

المطلوب واضح من البداية اخي الكريم لكن اللازم تجهيز الملفات اللازمة لاتمام المثال ... وخلاص.

---

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

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

[mostfa1995]

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

---

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

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

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

[سعود]

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

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

---

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

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

---

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

[mostfa1995]

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

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

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

---

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

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

---

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

تمام اوك حاضر
اتفضل

[hassan]

اخي رجاء عدم تكرار الطلب في اكثر من موضوع

هاذا الموضوع و هاذا الموضوع مشابه لي موضوعك هاذا 

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

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




 واسف على الازعاج

شكرا لك

[mostfa1995]

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

[hassan]

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

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

حدد طلبك في هاذا الموضوع المواضيع المكرره ستحذف


شكرا لك

[سعود]

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 


[mostfa1995]

(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 


اخى بعد ازنك ممكن المشروع  عشان فى اخطاء ظهر لى