تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] مساعده فى عمل البرنامج
#1

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




الرد }}}
تم الشكر بواسطة:
#2
المطلوب واضح من البداية اخي الكريم لكن اللازم تجهيز الملفات اللازمة لاتمام المثال ... وخلاص.

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

اعمل مجلد لكل مسلسل و داخل المجلد الحلقات.
اعمل كود يقرا اسماء المجلدات ويضعها في كومبوبوكس  وتعمل مصفوفة نصية تخزن بيها روابط المجلدات ولما تنقر اي مجلد اقرا محتوى المجلد وتجيب كل اسماء الحلقات في ليست بوكس وروابطها في مصفوفة نصية اخرى.
مثل المثال التالي
http://vb4arb.com/vb/thread-12267.html
الرد }}}
تم الشكر بواسطة:
#3
(05-04-16, 11:16 PM)سعود كتب : المطلوب واضح من البداية اخي الكريم لكن اللازم تجهيز الملفات اللازمة لاتمام المثال ... وخلاص.

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

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

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

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

انا عملت حساب في دروب بوكس عشان اعمل مثال يوضح لك الفكرة.
انتظرني
الرد }}}
تم الشكر بواسطة:
#5
(05-04-16, 11:43 PM)سعود كتب :
إقتباس :انا قولت لحضرتك انى مش هعرف اعمل الكود لوحدى بعد ازنك لو تعمل الكود مسلسل واحد وحلقة واحده وضع اى رابط وانا هفهم الباقى واعرف اكمل يعنى حضرتك اعملى الكود كامل على مسلسل واحد تمام وشكرااااااااااا

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

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

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

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


الملفات المرفقة
.rar   SAMRA.rar (الحجم : 258 بايت / التحميلات : 35)
الرد }}}
تم الشكر بواسطة:
#6
اخي رجاء عدم تكرار الطلب في اكثر من موضوع

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

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

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




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

شكرا لك
الحمد لله رب العالمين على كل شي
الرد }}}
تم الشكر بواسطة:
#7
(06-04-16, 01:23 AM)hassan كتب : امسح المواضيع وسيب ده فقط
الرد }}}
تم الشكر بواسطة:
#8
(06-04-16, 01:24 AM)mostfa1995 كتب :
(06-04-16, 01:23 AM)hassan كتب : امسح المواضيع وسيب ده فقط

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


شكرا لك
الحمد لله رب العالمين على كل شي
الرد }}}
تم الشكر بواسطة:
#9

PHP كود :
Imports System.Net
Imports System
.Text

Public Class Form1
    Dim urls 
As New List(Of String)
 
   Private Sub Form1_Load(sender As ObjectAs EventArgsHandles 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 ObjectAs EventArgsHandles 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 ObjectAs EventArgsHandles ListBox1.SelectedIndexChanged
        AxShockwaveFlash1
.Movie vidlinks(ListBox1.SelectedIndex).ToString.Replace("watch?v=""v/").Trim
    End Sub
End 
Class 
الرد }}}
تم الشكر بواسطة:
#10
(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 ObjectAs EventArgsHandles 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 ObjectAs EventArgsHandles 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 ObjectAs EventArgsHandles ListBox1.SelectedIndexChanged
        AxShockwaveFlash1
.Movie vidlinks(ListBox1.SelectedIndex).ToString.Replace("watch?v=""v/").Trim
    End Sub
End 
Class 

اخى بعد ازنك ممكن المشروع  عشان فى اخطاء ظهر لى
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة عند نقل البرنامج من فيجوال 2013 الى فيجوال 2017 strongriseman 5 149 12-03-24, 10:37 AM
آخر رد: strongriseman
  محتاج تشفير فيديو وتشغلية عن طريق البرنامج فقط new_programer 1 112 22-02-24, 12:09 PM
آخر رد: AHMED213
  مطلوب كود الطباعة لهذا البرنامج melad2002 2 234 13-01-24, 06:42 PM
آخر رد: melad2002
  مشكلة تعليق البرنامج في حال عدم وجود ماسح ضوئي متصل بالكمبيوتر صالح عبدالله 1 210 09-01-24, 10:51 PM
آخر رد: صالح عبدالله
  حل مشكلة بعد تثبيت البرنامج في جهاز العميل Adel27213 3 467 02-12-23, 11:00 PM
آخر رد: justforit
  كيف اجعل البرنامج في بداية الشهر ينفذ حدث معين بالاصح اريد البرنامج في تاريخ واحد من Adel27213 3 484 05-11-23, 01:45 AM
آخر رد: justforit
  [VB.NET] كيف اجعل البرنامج يحدد اخر يوم من كل شهر Adel27213 2 361 03-11-23, 06:50 AM
آخر رد: Adel27213
  [سؤال] عمل البرنامج على أى resoluation dr.programming 0 244 02-11-23, 12:08 AM
آخر رد: dr.programming
  تنصيب البرنامج على اجهزة العملاء um_noor20 2 327 30-10-23, 04:17 PM
آخر رد: Taha Okla
  [VB.NET] حفظ الفورم (Form) (البرنامج) بعد التغيير visualist2015 6 6,359 29-09-23, 03:09 AM
آخر رد: Taha Okla

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


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