AutoIt Français

Code : Tout sélectionner

#include <GuiConstants.au3>
#include <Zip.au3>
#include <EditConstants.au3>
#include <WindowsConstants.au3>
#include <Zip32.au3>
#include <GuiConstantsEx.au3>

GuiCreate("Autoit Zipper", 350, 260)

If not FileExists("ressources/temp.ini") Then
Filewrite ("ressources/temp.ini", "[File]" & @CRLF)
Filewrite ("ressources/temp.ini", "[Folder]")
Endif

$Input_1 = GUICtrlCreateInput("Zipper Made By Jbnh | UDF By par rasim", 55, 10, 220, 20)
$Button_1 = GUICtrlCreatePic("ressources/file.jpg", 280, 10, 15, 16)
$Button_2 = GUICtrlCreatePic("ressources/folder.jpg",305, 10, 16, 15)
;-----------------------------------------------------------------------------------------------------------
$Input_2 = GUICtrlCreateEdit("", 25, 50, 300, 140)
;-----------------------------------------------------------------------------------------------------------
$Input_3 = GUICtrlCreateLabel("0", 110, 200)
GUICtrlCreateLabel("Fichiers et ", 120, 200)
$Input_4 = GUICtrlCreateLabel("0", 175, 200)
GUICtrlCreateLabel("Dossiers", 185, 200)

$Button_3 = GUICtrlCreateButton("Zip now !", 140, 230, 70, 20)
GUISetState(@SW_SHOW)

While 1
$msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
             ExitLoop
             
        Case $msg = $Button_1           
            $Opened_File = FileOpenDialog("Add File", "", "All Files (*.*)",12)
            If GUICtrlRead($Input_2) = "" Then      
            $Tmp = $Opened_File
            Else
            $Tmp = GUICtrlRead($Input_2) & @CRLF & $Opened_File
            Endif
            If not $Opened_File = "" Then   
            GUICtrlSetData($Input_2, "")
            GUICtrlSetData($Input_2, $Tmp)
            $addfile = GUICtrlRead($Input_3) + 1
            GUICtrlSetData($Input_3, $addfile)
            IniWrite(@scriptdir & "/ressources/temp.ini", "File", "key"&$addfile, $Opened_File)
            Endif
            
            
        Case $msg = $Button_2   
            $Opened_File2 = FileSelectFolder("Choose a folder.", "")
            If GUICtrlRead($Input_2) = "" Then      
            $Tmp2 = $Opened_File2
            Else
            $Tmp2 = GUICtrlRead($Input_2) & @CRLF & $Opened_File2
            Endif
            If not $Opened_File2 = "" Then  
            GUICtrlSetData($Input_2, "")
            GUICtrlSetData($Input_2, $Tmp2)
            $addfolder = GUICtrlRead($Input_4) + 1
            GUICtrlSetData($Input_4, $addfolder)
            IniWrite(@scriptdir & "/ressources/temp.ini", "Folder", "key"&$addfolder, $Opened_File2)
            Endif
        
        
            Case $msg = $Button_3
            
            If GUICtrlRead($Input_2) = "" Then
            MsgBox(64, "Error", "You didnt choose any file!")
            Exit
            Endif
            
            
            Global $CurZipSize = 0      
            $hGUI = GUICreate("ZIP", 300, 160)          
            $edit = GUICtrlCreateEdit("", 10, 10, 280, 100, BitOR($WS_VSCROLL, $ES_AUTOVSCROLL, $ES_READONLY))
            $progress = GUICtrlCreateProgress(10, 125, 280, 20)
            GUISetState()
            
            $ZipFile = @DesktopDir&"\Zip-"&@MDAY&"."&@MON&" at "&@HOUR&"."&@MIN&".zip"
            $FileToZip = GUICtrlRead($Input_2)
            
            
            $UnCompSize = DirGetSize($FileToZip)

            _Zip_Init("_ZIPPrint", "_ZIPPassword", "_ZIPComment", "_ZIPProgress")
            If @error Then
                MsgBox(16, "Error", "Zip32.dll did not initialize")
                Exit
            EndIf

            _Zip_SetOptions()
            If @error Then
                MsgBox(16, "Error", "Options sets error")
                Exit
            EndIf


            $aFiles = StringSplit($FileToZip, @CRLF)

            If UBound($aFiles) > 2 Then
                For $i = 1 To $aFiles[0]
                    _ZIP_Archive($ZipFile, $aFiles[$i])
                Next
            Else
                _ZIP_Archive($ZipFile, $aFiles[1])
            EndIf
        

            If @error Then
                MsgBox(16, "Error", "Archive creating error")
            Else
                MsgBox(64, "Success", "Archive creating successful")
            EndIf
            
            GUICtrlSetData($progress, 0)
            GUICtrlSetData($edit, "")
            $CurZipSize = 0
            

    EndSelect            
Wend

;==========================# ZIP FUNCTIONS #======================================
Func _ZIPPrint($sFile, $sPos)
    ConsoleWrite("!> _ZIPPrint: " & $sFile & @LF)
EndFunc

Func _ZIPPassword($sPWD, $sX, $sS2, $sName)
    Local $iPass = InputBox("Archive encrypting set", "Enter the password", "", "", 300, 120)
    
    If $iPass = "" Then Return 1
    
    Local $PassBuff = DllStructCreate("char[256]", $sPWD)
    DllStructSetData($PassBuff, 1, $iPass)
EndFunc

Func _ZIPComment($sComment)
    Local $iComment = InputBox("Archive comment set", "Enter the comment", "", "", 300, 120)
    If $iComment = "" Then Return 1
    
    Local $CommentBuff = DllStructCreate("char[256]", $sComment)
    DllStructSetData($CommentBuff, 1, $iComment)
EndFunc

Func _ZIPProgress($sName, $sSize)

    $CurZipSize += Number($sSize)
    Local $iPercent = Round(($CurZipSize / $UnCompSize * 100))
    GUICtrlSetData($progress, $iPercent)
    GUICtrlSetData($edit, $sName & @CRLF, 1)
    
    ConsoleWrite("!> Name: " & $sName & @LF)
EndFunc
 

Code : Tout sélectionner

#include <GuiConstantsEx.au3>
#include <EditConstants.au3>
#include <WindowsConstants.au3>
#include <Zip32.au3>

Global $CurZipSize = 0

$hGUI = GUICreate("ZIP", 300, 160)

$edit = GUICtrlCreateEdit("", 10, 10, 280, 100, BitOR($WS_VSCROLL, $ES_AUTOVSCROLL, $ES_READONLY))

$progress = GUICtrlCreateProgress(10, 125, 280, 20)

GUISetState()

$ZipFile = "C:\Users\**\Desktop\test.zip"
$DirToZip = "C:\Users\**\Desktop\images\impreza.jpg"

$UnCompSize = DirGetSize($DirToZip)

_Zip_Init("_ZIPPrint", "_ZIPPassword", "_ZIPComment", "_ZIPProgress")
If @error Then
    MsgBox(16, "Error", "Zip32.dll did not initialize")
    Exit
EndIf

_Zip_SetOptions()
If @error Then
    MsgBox(16, "Error", "Options sets error")
    Exit
EndIf

_ZIP_Archive($ZipFile, $DirToZip)

If @error Then
    MsgBox(16, "Error", "Archive creating error")
Else
    MsgBox(64, "Success", "Archive creating successful")
EndIf

GUICtrlSetData($progress, 0)
GUICtrlSetData($edit, "")
$CurZipSize = 0


Func _ZIPPrint($sFile, $sPos)
    ConsoleWrite("!> _ZIPPrint: " & $sFile & @LF)
EndFunc

Func _ZIPPassword($sPWD, $sX, $sS2, $sName)
    Local $iPass = InputBox("Archive encrypting set", "Enter the password", "", "", 300, 120)
    
    If $iPass = "" Then Return 1
    
    Local $PassBuff = DllStructCreate("char[256]", $sPWD)
    DllStructSetData($PassBuff, 1, $iPass)
EndFunc

Func _ZIPComment($sComment)
    Local $iComment = InputBox("Archive comment set", "Enter the comment", "", "", 300, 120)
    If $iComment = "" Then Return 1
    
    Local $CommentBuff = DllStructCreate("char[256]", $sComment)
    DllStructSetData($CommentBuff, 1, $iComment)
EndFunc

Func _ZIPProgress($sName, $sSize)
    ;Return 1 for abort the zip!
    $CurZipSize += Number($sSize)
    Local $iPercent = Round(($CurZipSize / $UnCompSize * 100))
    GUICtrlSetData($progress, $iPercent)
    GUICtrlSetData($edit, $sName & @CRLF, 1)
    
    ConsoleWrite("!> Name: " & $sName & @LF)
EndFunc

 

Code : Tout sélectionner

$file = FileOpen("test.txt", 0)
$text= FileRead($file)
$line = StringSplit($text, @CR)
            For $i = 1 To $line[0]              
            $ZipFile = "C:\Users\**\Desktop\gg.zip"
            $DirToZip = $line[$i]
            

$UnCompSize = DirGetSize($DirToZip)

_Zip_Init("_ZIPPrint", "_ZIPPassword", "_ZIPComment", "_ZIPProgress")
If @error Then
    MsgBox(16, "Error", "Zip32.dll did not initialize")
    Exit
EndIf

_Zip_SetOptions()
If @error Then
    MsgBox(16, "Error", "Options sets error")
    Exit
EndIf

_ZIP_Archive($ZipFile, $DirToZip)

If @error Then
    MsgBox(16, "Error", "Archive creating error")
Else
    MsgBox(64, "Success", "Archive creating successful")
EndIf

GUICtrlSetData($progress, 0)
GUICtrlSetData($edit, "")
$CurZipSize = 0

Next