تقييم الموضوع :
  • 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 بايت / التحميلات : 9)
الرد }}}}
تم الشكر بواسطة:
#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 

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تحديد مسار البرنامج atefkhalf2004 8 94 منذ 4 ساعة مضت
آخر رد: atefkhalf2004
Information [VB.NET] مساعده في الفيجوال بيسك هل اقدر اسوي اكثر من فورم a_abdullah 4 95 07-12-16, 02:39 PM
آخر رد: a_abdullah
  [سؤال] كيف اجعل البرنامج يحفظ بيانات؟ The Light Fire 9 135 05-12-16, 12:58 AM
آخر رد: ali.alfoly
  [نقاش] الى كل خبير ومبتدأ نقاش بخصوص جعل البرنامج نسخة تجريبية 0theghost0 1 156 30-11-16, 11:21 PM
آخر رد: awidan76
  [نقاش] اسئلكم بالله / تسعيرة هذا البرنامج مصمم على فيجول استديو 2013 عزف الخواطر 3 123 30-11-16, 06:42 PM
آخر رد: عزف الخواطر
  [سؤال] مشكلة في إعادة تنفيذ البرنامج wael khlak 1 56 21-11-16, 11:48 PM
آخر رد: السرور
  خطا عند تشغيل البرنامج makky 10 146 19-11-16, 03:17 AM
آخر رد: أبو عمر
  [VB.NET] طلب تعديل ع الكود ليصبح البرنامج جاهزاً 3asfa~mdmra 8 202 12-11-16, 02:30 AM
آخر رد: 3asfa~mdmra
  حجم ملف دعم البرنامج كبير جدا makky 6 127 26-10-16, 10:25 PM
آخر رد: makky
  [VB.NET] نص من ملف txt يضهر في اعلاء البرنامج dubai.eig 0 60 26-10-16, 08:10 PM
آخر رد: dubai.eig

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


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