تقييم الموضوع :
  • 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 

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  لايعمل البرنامج في فيجول ستوديو 2010 thams 0 15 23-01-17, 10:29 PM
آخر رد: thams
Exclamation [سؤال] التاكيد من موجد برامج قبل تشغيل البرنامج MOONMICROSYSTEM 1 142 22-01-17, 04:54 PM
آخر رد: thevirus
  هل يوجد طريقة لارسال رسائل واتساب من البرنامج باستخدام vb.net 2010 ? Dr.Sherif Alazizi 15 515 12-01-17, 11:54 PM
آخر رد: Basil Abdallah
  [سؤال] ربط البرنامج بعدة اجهزة ابو يوسف النواوي 2 3 143 12-01-17, 03:52 AM
آخر رد: Basil Abdallah
  [سؤال] مشكلة تهنيج البرنامج ابو روضة 2 163 30-12-16, 04:47 PM
آخر رد: ابو روضة
  [سؤال] كيف اخلي البرنامج يشتغل بدون نت فروم ورك و طريقة اختيار النت فروم ورك hassan 9 4,345 27-12-16, 01:25 PM
آخر رد: Basil Abdallah
  مساعده اريد كود لحذف عدد من الصفوف من الداتا قرد فيو وكذلك تنحذف من قاعدة البيانات معتز الجازوي 2 112 25-12-16, 01:44 PM
آخر رد: thevirus
  خطا عند تشغيل البرنامج makky 12 258 17-12-16, 05:29 PM
آخر رد: walkady
  البرنامج بيقعد كتير جدا على مايفىح رابط الاكسس بالداتا جريدفيو بالمعالج araxis 4 150 13-12-16, 04:29 AM
آخر رد: silverlight
  تحديد مسار البرنامج atefkhalf2004 11 227 11-12-16, 12:59 PM
آخر رد: atefkhalf2004

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


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