(25-02-17, 03:19 AM)khodor1985 كتب : السلام عليكم أخي العزيز ورحمة الله وبركاته
هل تقصد أنه عند الضغط على زر الضغط أو فك الضغط يظهر نافذة كلمة المرور قبل تنفيذ العملية

(25-02-17, 06:38 PM)khodor1985 كتب : لا حول ولا قوة إلا بالله، إصبر حتى يمل الصبر منك

(25-02-17, 07:49 PM)سعود كتب : انظر للمثال التالي:

PHP كود :

Imports System.ComponentModel
Imports System.IO
Imports Ionic.Zip
Public Class Form1
    Dim lst As New List(Of String)
    Dim ofd As OpenFileDialog
    Dim sfd As SaveFileDialog
    Dim zip_pass As String = ""
    Private Sub p(ByVal i As Integer)
        If ProgressBar1.InvokeRequired Then
            ProgressBar1.Invoke(New Action(Of Integer)(AddressOf p), i)
        Else
            ProgressBar1.Value = i
        End If
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        zip_pass = InputBox("أكتب كلمة مرور لقفل الملف")
        lst.Clear()
        ofd = New OpenFileDialog
        ofd.Multiselect = True
        If ofd.ShowDialog = DialogResult.OK Then
            lst.AddRange(ofd.FileNames)
        End If
        If lst.Count > 0 Then
            Button1.Enabled = False
            Button2.Enabled = False

            ProgressBar1.Maximum = lst.Count - 1
            If b1.IsBusy = False Then b1.RunWorkerAsync()
        End If
    End Sub
    Dim zip As ZipFile
    Private Sub b1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles b1.DoWork
        zip = New ZipFile
        zip.Password = zip_pass
        For a = 0 To lst.Count - 1
            b1.ReportProgress(a)
            zip.AddFile(lst(a), "")
        Next
    End Sub

    Private Sub b1_ProgressChanged(sender As Object, e As ProgressChangedEventArgs) Handles b1.ProgressChanged
        p(e.ProgressPercentage)
    End Sub

    Private Sub b1_RunWorkerCompleted(sender As Object, e As RunWorkerCompletedEventArgs) Handles b1.RunWorkerCompleted
        If zip.Count > 0 Then
            zip.Save(IO.Path.GetFileNameWithoutExtension(lst(lst.Count - 1)) & ".zip")
        End If
        Button1.Enabled = True
        Button2.Enabled = True

    End Sub
    Dim zipfilename As String = ""

    Private Sub smax(ByVal i As Integer)
        If ProgressBar1.InvokeRequired Then
            ProgressBar1.Invoke(New Action(Of Integer)(AddressOf smax), i)
        Else
            ProgressBar1.Maximum = i
        End If
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        zip_pass = InputBox("أكتب كلمة مرور لالغاء قفل الملف")

        ofd = New OpenFileDialog
        ofd.Filter = "Zip Files(*.zip)|*.zip"
        If ofd.ShowDialog = DialogResult.OK Then
            zipfilename = ofd.FileName
            Button2.Enabled = False
            Button1.Enabled = False

            If b2.IsBusy = False Then b2.RunWorkerAsync()
        End If
    End Sub
    Dim zip2 As ZipFile



    Private Sub b2_DoWork(sender As Object, e As DoWorkEventArgs) Handles b2.DoWork

        zip2 = ZipFile.Read(zipfilename)
        zip2.Password = zip_pass

        smax((zip2.Count) - 1)
        Dim m As Integer = 0
        For Each en As ZipEntry In zip2
            b2.ReportProgress(m)
            en.Extract()
            m += 1
        Next


    End Sub

    Private Sub b2_RunWorkerCompleted(sender As Object, e As RunWorkerCompletedEventArgs) Handles b2.RunWorkerCompleted


        Button2.Enabled = True
        Button1.Enabled = True

    End Sub

    Private Sub b2_ProgressChanged(sender As Object, e As ProgressChangedEventArgs) Handles b2.ProgressChanged
        p(e.ProgressPercentage)
    End Sub
End Class 


اطلع على هذه المشاركة:#5


بالنسبة لالغاء النافذة فتستطيع تمرير كلمة مرور ثابتة من دون inputbox

(26-02-17, 04:31 AM)سعود كتب : كل ماقلته ممكن اخي الكريم فقط حاول تعدل على المثال حتى تحقق المطلوب.
اما كونه يضغط ملفات فيمكنك التعديل ايضا فبدل zip.AddFile اكتب    
          

PHP كود :

zip.AddDirectory("C:\folder")