تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] اريد تحميل المُحدد فقط
#21
حملت المثال ووجدت كلاس Class1  ووجدت فيه اكواد تسجيل في الريجستري وبصراحة لم افهم العلاقة بين الموضوع وبين الريجستري ...
لو ممكن بعد اذنك توضح الفائدة او الهدف من الملف المذكور وجزاك الله كل خير.
القصد انه لو بالامكان الاستغناء عنه بامكاني تجاهله والتعديل الذي اراه مناسب وان كان الكلاس هو ضروري لعمل البرنامج ايضا ردك سيخبرني باذن الله تعالى.
بارك الله فيكم جميعا.

(02-09-18, 01:58 AM)عابر سبيل 2 كتب :
جرب هذا الكود
PHP كود :
Private Sub Button4_Click(sender As System.ObjectAs System.EventArgsHandles 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 

اخي الكريم 
حسب تجاربي مع استخدام  DownloadFileAsync
لا يحسن استخدامها ضمن For 
بل لابد من محاكاة For   اي  عند انتهاء حدث اكتمال التحميل يتم التحقق من قيمة اساسية ولتكن معبرة عن الاندكس فان كان الرقم هو الاخير يخرج من الاجراء او يكمل بزيادة رقم 1 وهكذا حتى الانتهاء .
مشكلة روابط فيديوهات  اليوتيوب انها متغير بشكل دوري  لااستبعد انها كل نصف ساعة فالكود الناجح الان لا ينجح بعد ساعة لذلك لن نتوصل لنتيجة مستمرة.
لكن هذه الاكواد رائعة جدا للتحميل من مواقع اخرى.
الرد }}}
تم الشكر بواسطة: عابر سبيل 2 , عابر سبيل 2 , ابو روضة
#22
لقد حملت المثال وحذفت الكلاس لتخوفي منه ولكن لم يعمل -ولم يظهر اي رسالة خطا-  اي لم تظهر القائمة لكي اطبق عليها.
الرد }}}
تم الشكر بواسطة: عابر سبيل 2 , عابر سبيل 2 , ابو روضة
#23
(02-09-18, 02:03 AM)سعود كتب : حملت المثال ووجدت كلاس Class1  ووجدت فيه اكواد تسجيل في الريجستري وبصراحة لم افهم العلاقة بين الموضوع وبين الريجستري ...
لو ممكن بعد اذنك توضح الفائدة او الهدف من الملف المذكور وجزاك الله كل خير.
القصد انه لو بالامكان الاستغناء عنه بامكاني تجاهله والتعديل الذي اراه مناسب وان كان الكلاس هو ضروري لعمل البرنامج ايضا ردك سيخبرني باذن الله تعالى.
بارك الله فيكم جميعا.
العلاقة انه كما قال الاستاذ عابر سبيل اخى سعود لتحديث المتصفح لآنه بدونة صدقنى لن يعمل يعنى
ليس به اى ضرر اطلاقا فالجميع يستعملون هذا الكلاس على ما اظن

(02-09-18, 01:58 AM)عابر سبيل 2 كتب :
جرب هذا الكود
PHP كود :
Private Sub Button4_Click(sender As System.ObjectAs System.EventArgsHandles 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 

هذا الكود فعلا بحمل فقط المتعلم عليه تشيكد لكن المشكلة انه بحملهم كلهم دفعة واحدة 
وانا اريده يحمل ملف ولما ينتهى منه ينزل على الاخر المتعلم عليه وعاجز عن الشكر أخى الكريم
الرد }}}
تم الشكر بواسطة:
#24
للامانة حزين جداً  لما اجده هنا معك اخى وحبيبي ابو روضة
انتظرت يوماً حتى اري هل ستتمكن من فعل شئ ام لا
وقمت بتلميح لك وتوضيح التلميح لما تريد فعله 
ولكن يبدو انك مرهق جداً حتى تتمكن من استوعاب ذلك

على اى حال انا لم احب ان اقوم بفعل ذلك 
لانى على يقين جداً انك بامكانك فعلها لكن لا اعلم الظروف معك هذه الايام
فانت تعلم انا لا ابخل عليك ولكن اريد ان تزيد من معرفة وعلم لما تفعله حتى اري يوماً
انك تقوم بالرد على كل من يستفسر عن اى سؤال يخص مثل جميع موضيعك السابقة

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

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

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

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

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

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


الملفات المرفقة
.zip   Pro.zip (الحجم : 11.49 ك ب / التحميلات : 11)
.zip   مقاطع دعوية مؤثرة.zip (الحجم : 77.94 ك ب / التحميلات : 15)
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
#25
السلام عليكم ورحمة الله وبركاته 
فعلا هذه اسرة فيجوال بيسك الموقرة بكل اعضائها 
كم انا سعيد بهذه النقاشات لانها تزيد من خبراتنا وأنحني تبجيلا لكم اخوتي algokr وعابر سبيل وسعود وابو روضة وكل من شارك،
البذرة  وجدها ابو روضة واتى لها وجاءت المساهمات والمشاركات لزرعها  وسقايتها ورعايتها حقا ستثمر بإذن الله 
اللهم اجعل كل من مساهمة في ميزان حسنات صاحبها دمتم بخير
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد }}}
تم الشكر بواسطة: ابو روضة , ابو روضة , سعود , elgokr
#26
(02-09-18, 05:16 AM)elgokr كتب :
للامانة حزين جداً  لما اجده هنا معك اخى وحبيبي ابو روضة
انتظرت يوماً حتى اري هل ستتمكن من فعل شئ ام لا
وقمت بتلميح لك وتوضيح التلميح لما تريد فعله 
ولكن يبدو انك مرهق جداً حتى تتمكن من استوعاب ذلك

على اى حال انا لم احب ان اقوم بفعل ذلك 
لانى على يقين جداً انك بامكانك فعلها لكن لا اعلم الظروف معك هذه الايام
فانت تعلم انا لا ابخل عليك ولكن اريد ان تزيد من معرفة وعلم لما تفعله حتى اري يوماً
انك تقوم بالرد على كل من يستفسر عن اى سؤال يخص مثل جميع موضيعك السابقة

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

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

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

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

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

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

والله العظيم كنت عارف انك اصلا هاتعملو لكن اقسملك بالله اننا بمّر بظروف لا يعلمها إلا الله....
ماشاء الله هذا بالفعل ما كنت اريده تماما لكن اعذرنى اخى فأنا لست بمهارتك فى البرمجة
ولا بمهارة كل من كان هنا فجزاكم الله كل خير جميعا وسمحونى لو كنت تعبتكم معايا..
وبالنسبة للكلاس وملف الdl فالكلاس لتحديث انترنت اكسبلورا ليتعامل مع الموقع
بدون مشاكل فلو حذفته لن يعمل البرنامج ولن يتعامل مع الموقع أما الملف الاخر فكنت بجرب
به لآجلب أسم قائمة تشغيل اليوتيوب.

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

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

وعليكم السلام ورحمة الله وبركاته
تسلم اخى ابراهيم ايبو

وسامحنى لم يعد عندى عدد تقييم لهذا اليوم 
لذلك لم اتمكن من اعطاك ذلك

فكل التحية لك
وتمنياتى لك التوفيق

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

لعله خير اخى ابو روضة


ولعل الامور تتحسن وتكون بخير عن قريب باذن الله
فالحمد لله على كل حال دائماً وابدا والشكر لله على كرمه ونعمه

كل التحية لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
تم الشكر بواسطة: سعود
#28
شوف زر بدء التحميل تعديل بسيط
PHP كود :
Private Async Sub Button4_Click(sender As ObjectAs EventArgsHandles 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 
الرد }}}
تم الشكر بواسطة: elgokr , ابو روضة , ابو روضة
#29
(02-09-18, 09:50 AM)سعود كتب : شوف زر بدء التحميل تعديل بسيط
PHP كود :
Private Async Sub Button4_Click(sender As ObjectAs EventArgsHandles 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 


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


بالكود التالى ( استخدم الكود داخل حدث Button4_Click )
كود :
       Dim Path_ As New FolderBrowserDialog
       If Path_.ShowDialog = DialogResult.Cancel Then Exit Sub

       Dim pathSave_ As String = Path_.SelectedPath & "\" & TextBox4.Text

       If Not Directory.Exists(pathSave_) Then
           Directory.CreateDirectory(pathSave_)
       End If

       For i As Integer = 0 To checkedListBox1.Items.Count - 1
           Dim chkstate As CheckState
           chkstate = checkedListBox1.GetItemCheckState(i)
           If (chkstate = CheckState.Checked) Then
               Download = New WebClient
               Dim name_ As String = checkedListBox1.Items.Item(i)
               name_ = name_.Replace("\", "").Replace("/", "").Replace(":", "").Replace("*", "").Replace("?", "").Replace("""", "").Replace("<", "").Replace(">", "").Replace("|", "").Replace("؟", "")
               Await Download.DownloadFileTaskAsync(New Uri((lis(i))), pathSave_ + "\" + CleanFileName(checkedListBox1.Items.Item(i).ToString) + ".mp4")
               Label1.Text = "0 %"
           End If
       Next

       MsgBox("تم انتهاء من تحميل الملفات المطلوبة")
       Label1.Text = "تم انتهاء من تحميل الملفات المطلوبة"


اولاً سيجعل المستخدم يحدد مسار الحفظ (مضاف حديث عن الوسرس)
ثانياً اخذ اسم الفيديو ليستخدمه كاسم للفيديو عند الحفظ مع تجنب العلامات الغير قابلة بالتسمية
ثالثاً سستم انشاء مجلد على المسار المحدد مسبقاً لضم عدد التحميلات فى مجلد واحد
رابعاً ظهور رسالة باتمام التحميل 

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

اتمنى اللمسات تعطى شكلية واعجاب لديك فى طريقة الاستخدام
وكما يقال كل تاخيرة بها خيره فها انت الان معك الخير  Big Grin

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
تم الشكر بواسطة: سعود , ابو روضة , ابو روضة
#30
ما رايكم باستخدام المستعرض بدون اطار؟

معذرة الحدث التالي لم اضع شروط له 
Download_DownloadCompleted
اظن يمكن الاستغناء عنهSmile


الملفات المرفقة
.zip   مقاطع دعوية مؤثرة.zip (الحجم : 692.03 ك ب / التحميلات : 23)
الرد }}}
تم الشكر بواسطة: elgokr , elgokr , ابو روضة


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تحميل جميع الماسحات الضوئية المتصلة بالجهاز في كومبوبوكس جيولوجي مبتدئ 2 202 22-02-24, 07:10 PM
آخر رد: جيولوجي مبتدئ
  اريد طباعة الباركود المحدد فقط مع الكمية new_programer 5 431 09-01-24, 08:40 PM
آخر رد: new_programer
  اريد مساعدة في العملية الحسابية melad2002 3 406 29-12-23, 09:10 PM
آخر رد: melad2002
  [كود] اريد كود إرسال البيانات من الفيجوال بيسك إلىPDF issamsaidd 10 5,829 25-12-23, 06:30 PM
آخر رد: الحزين اليماني
  [VB.NET] اريد تعديل في الكود عند طباعة DGV abu_hisham7 1 431 03-12-23, 02:40 AM
آخر رد: abu_hisham7
  [سؤال] اريد تغيير اسم حقل ضمن جدول بقاعدة بيانات اكسس mh66 1 360 08-11-23, 08:16 AM
آخر رد: justforit
  كيف اجعل البرنامج في بداية الشهر ينفذ حدث معين بالاصح اريد البرنامج في تاريخ واحد من Adel27213 3 484 05-11-23, 01:45 AM
آخر رد: justforit
  يوجد مشكلة عند تحميل البيانات فى كمبوبوكس داخل داتا جريد new_programer 2 473 17-10-23, 06:51 PM
آخر رد: new_programer
  كيف يمكن تأخير الـSplash Screen حتى يتم تحميل الأدوات بالكامل؟ hazim1 0 270 28-09-23, 08:23 AM
آخر رد: hazim1
Photo [سؤال] ظور رسالة خطأ عند تحميل قاعدة بيانات تحتوي على صور أبو خالد الشكري 4 396 11-09-23, 09:51 PM
آخر رد: أبو خالد الشكري

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


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