(02-09-18, 01:58 AM)عابر سبيل 2 كتب :

جرب هذا الكود

PHP كود :

Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
    Dim sss As String = ("C:\" & TextBox4.Text)
    For Each indx In checkedListBox1.CheckedIndices
        Dim wc As New WebClient
        AddHandler wc.DownloadProgressChanged, AddressOf wc_DownloadProgressChanged
        wc.DownloadFileAsync(New Uri((lis(indx))), sss + "\" + CleanFileName(checkedListBox1.Items(indx)) + ".mp4")
    Next
End Sub

Private Sub wc_DownloadProgressChanged(ByVal sender As Object, ByVal e As DownloadProgressChangedEventArgs)
    ProgressBar2.Value = e.ProgressPercentage
    Label1.Text = ProgressBar2.Value & (" %")
End Sub 


(02-09-18, 02:03 AM)سعود كتب : حملت المثال ووجدت كلاس Class1  ووجدت فيه اكواد تسجيل في الريجستري وبصراحة لم افهم العلاقة بين الموضوع وبين الريجستري ...
لو ممكن بعد اذنك توضح الفائدة او الهدف من الملف المذكور وجزاك الله كل خير.
القصد انه لو بالامكان الاستغناء عنه بامكاني تجاهله والتعديل الذي اراه مناسب وان كان الكلاس هو ضروري لعمل البرنامج ايضا ردك سيخبرني باذن الله تعالى.
بارك الله فيكم جميعا.

(02-09-18, 01:58 AM)عابر سبيل 2 كتب :

جرب هذا الكود

PHP كود :

Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
    Dim sss As String = ("C:\" & TextBox4.Text)
    For Each indx In checkedListBox1.CheckedIndices
        Dim wc As New WebClient
        AddHandler wc.DownloadProgressChanged, AddressOf wc_DownloadProgressChanged
        wc.DownloadFileAsync(New Uri((lis(indx))), sss + "\" + CleanFileName(checkedListBox1.Items(indx)) + ".mp4")
    Next
End Sub

Private Sub wc_DownloadProgressChanged(ByVal sender As Object, ByVal e As DownloadProgressChangedEventArgs)
    ProgressBar2.Value = e.ProgressPercentage
    Label1.Text = ProgressBar2.Value & (" %")
End Sub 


(02-09-18, 05:16 AM)elgokr كتب :

للامانة حزين جداً  لما اجده هنا معك اخى وحبيبي ابو روضة

انتظرت يوماً حتى اري هل ستتمكن من فعل شئ ام لا

وقمت بتلميح لك وتوضيح التلميح لما تريد فعله 

ولكن يبدو انك مرهق جداً حتى تتمكن من استوعاب ذلك

على اى حال انا لم احب ان اقوم بفعل ذلك 

لانى على يقين جداً انك بامكانك فعلها لكن لا اعلم الظروف معك هذه الايام

فانت تعلم انا لا ابخل عليك ولكن اريد ان تزيد من معرفة وعلم لما تفعله حتى اري يوماً

انك تقوم بالرد على كل من يستفسر عن اى سؤال يخص مثل جميع موضيعك السابقة

على اى حال اليك السورس + برنامج للاختبار

يوضح الصورة والفكرة كاملاً لما تم تقديمه من كل الاعضاء فى هذا الموضوع

وبالاخص الاخ ابراهيم ايبو لانه برده انهى موضوعك لما تريده لكن تحول الموضوع الى متاهة

فبارك الله له لما قدمه من مساعدة

على اى حال يمكنك تحميل السورس + البرنامج للاختبار من المرفق

تم عمل ما تريده مع عمل بعض اللمسات حتى يتناسب طريقة واسلوب التحميل 

لكن لدى تعليق بسيط ما وظيفة كلاً من الكلاس و HtmlAgilityPack.dll

الا اذا كانت من ملف السورس القديم الذى لديك ليس اكثر

اتمنى ان الرد يكون ملخص كل ما تريد

واتمنى ان تسامحنى لانى لم اقوم بذلك من البداية وانتظرت كل هذا الوقت منذ تم اضافة الموضوع

لانى كنت على امل ان اري لدك وتعاملك مع ردود الاعضاء عندما طرح عليك الفكرة بكل بساطة

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

وبالنهاية كل التحية لك ولجميع من شارك هنا

وتمنياتى للجميع كل التوفيق

(02-09-18, 05:54 AM)ابراهيم ايبو كتب : السلام عليكم ورحمة الله وبركاته 
فعلا هذه اسرة فيجوال بيسك الموقرة بكل اعضائها 
كم انا سعيد بهذه النقاشات لانها تزيد من خبراتنا وأنحني تبجيلا لكم اخوتي algokr وعابر سبيل وسعود وابو روضة وكل من شارك،
البذرة  وجدها ابو روضة واتى لها وجاءت المساهمات والمشاركات لزرعها  وسقايتها ورعايتها حقا ستثمر بإذن الله 
اللهم اجعل كل من مساهمة في ميزان حسنات صاحبها دمتم بخير

(02-09-18, 05:54 AM)ابراهيم ايبو كتب : السلام عليكم ورحمة الله وبركاته 
فعلا هذه اسرة فيجوال بيسك الموقرة بكل اعضائها 
كم انا سعيد بهذه النقاشات لانها تزيد من خبراتنا وأنحني تبجيلا لكم اخوتي algokr وعابر سبيل وسعود وابو روضة وكل من شارك،
البذرة  وجدها ابو روضة واتى لها وجاءت المساهمات والمشاركات لزرعها  وسقايتها ورعايتها حقا ستثمر بإذن الله 
اللهم اجعل كل من مساهمة في ميزان حسنات صاحبها دمتم بخير

(02-09-18, 05:54 AM)ابو روضة كتب :

والله العظيم كنت عارف انك اصلا هاتعملو لكن اقسملك بالله اننا بمّر بظروف لا يعلمها إلا الله....

ماشاء الله هذا بالفعل ما كنت اريده تماما لكن اعذرنى اخى فأنا لست بمهارتك فى البرمجة

ولا بمهارة كل من كان هنا فجزاكم الله كل خير جميعا وسمحونى لو كنت تعبتكم معايا..

وبالنسبة للكلاس وملف الdl فالكلاس لتحديث انترنت اكسبلورا ليتعامل مع الموقع

بدون مشاكل فلو حذفته لن يعمل البرنامج ولن يتعامل مع الموقع أما الملف الاخر فكنت بجرب

به لآجلب أسم قائمة تشغيل اليوتيوب.

(02-09-18, 09:50 AM)سعود كتب : شوف زر بدء التحميل تعديل بسيط

PHP كود :

Private Async Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        Dim sss As String = TextBox4.Text
        For i As Integer = 0 To checkedListBox1.Items.Count - 1
            If checkedListBox1.GetItemCheckState(i) = CheckState.Checked Then
                Download = New WebClient
                Await Download.DownloadFileTaskAsync(New Uri((lis(i))), sss + "\" + CleanFileName(checkedListBox1.Items.Item(i).ToString) + ".mp4")
            End If
        Next
    End Sub 


وكما يقال كل تاخيرة بها خيره فها انت الان معك الخير