[ابو روضة]

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

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

ولعل الامور تتحسن وتكون بخير عن قريب باذن الله

فالحمد لله على كل حال دائماً وابدا والشكر لله على كرمه ونعمه

كل التحية لك

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

الله يسعد قلبك أستاذى المميز والعزيز على قلبى جوكر بااشا

---

(02-09-18, 12:36 PM)سعود كتب :

ما رايكم باستخدام المستعرض بدون اطار؟

---

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

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

مدى براعتكم فى البرمجة.....الله يحفظكم ويبارك فيكم..

بالنسبة لهذه الرسالة كيف نتخلص منها لو سمحت ؟؟

---

(02-09-18, 10:50 AM)elgokr كتب :

(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 


اضافة على لمستك الجميلة اخى سعود

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

بالكود التالى ( استخدم الكود داخل حدث 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 = "تم انتهاء من تحميل الملفات المطلوبة"

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

بهذا الكود تكون تجنبت اى عقبة قد تحصل مع المستخدم

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

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

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

تحياتى لك

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

روح يا شيخ الله يكرم اصلك ويبارك بعمرك اخى الكريم

---

عرفت بفضل الله حل الرسالة

        wb.ScriptErrorsSuppressed = True

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

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

زرتها بالانترنت اكسبلورا وبضعه فى حدث خروج الفورم

كود :

 Private Sub Form1_FormClosed(sender As Object, e As FormClosedEventArgs) Handles Me.FormClosed
       Process.Start("rundll32.exe", "InetCpl.cpl,ClearMyTracksByProcess 255")
   End Sub

[elgokr]

بالتوفيق اخى ابو روضة

فالحمد لله والشكر لله والحمد للع على كل حال

اتمنى دائماً ان لا يكون فى اى لقب اخى وحبيبى

يارب يبعدنا دائماً على التكبر والغرور

تحياتى لك

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