DartoZIP - Prototype

[AndyNutuDesigns]

Hello! This is my first serious software made in AutoIt, and I'd like to ask for your opinions and/or suggestions. This software is designed to manage, create and extract .zip archives. It's in it's very early stages of a prototype, so review it accordingly.

I designed it to use modules instead of having the whole code in the main script. It then uses a bridge module to connect them all together, and in the main script I have the GUI, the error handling and the logging.

The language support is not yet done, since I didn't have enough time to finish that.

Main script:

expandcollapse popup

#cs -------------------------------------------------------------------------------------
Product name: DartoZIP
Product version: 0.1.0.0
Author: Andy @ Nutu' Designs
Testers:
- Andy @ Nutu' Designs
Copyright: Copyright © Nutu' Designs ™ 2013. All rights reserved.
Module: Main module
Module author: Andy @ Nutu' Designs
Module description: The main module of DartoZIP
Description:
DartoZIP is a new software by Nutu' Designs with the functionality of
file compression and cryptography.
Special thanks to:
UEZ - Scroller script
andybiochem - Table UDF
#ce -------------------------------------------------------------------------------------

#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <EditConstants.au3>
#include <GUIEdit.au3>
#include <Misc.au3>
#include <WinAPI.au3>
#include <File.au3>
#include <String.au3>
#include <GuiListBox.au3>
#include <Constants.au3>
#include <ListviewConstants.au3>

#include 'Data\Includes\Bridge.au3'

Global $Language = IniRead("data.drt", "Main", "lang", "english")
Global $Rows
Global $labLoading, $butOpen, $butArchive, $butExtract, $butLog, $sText, $butLang

$winW = 640
$winH = 500
$winGUI = GUICreate(_Lang("GUI", "title", "DartoZIP™"), $winW, $winH, -1, -1)
GUISetState()
GUISetIcon("DartoZIP.ico")
$labLoading = GUICtrlCreateLabel(_Lang("GUI", "loading", "The software is loading..."), 460, 8)
$butOpen = GUICtrlCreateButton(_Lang("GUI", "button1", "Open"), 5, 5, 50, 20)
$butArchive = GUICtrlCreateButton(_Lang("GUI", "button3", "Archive"), 60, 5, 70, 20)
$butExtract = GUICtrlCreateButton(_Lang("GUI", "button4", "Extract"), 135, 5, 70, 20)
$butLog = GUICtrlCreateButton(_Lang("GUI", "button5", "Log"), 585, 5, 50, 20)
Global $winTable = _GUICtrlTable_Create(5, 30, 630, 465, 32, 3)
_GUICtrlTable_Set_ColumnWidth($winTable, 1, 30)
_GUICtrlTable_Set_ColumnWidth($winTable, 2, 170)
_GUICtrlTable_Set_ColumnWidth($winTable, 3, 400)
For $i = 1 To $Rows Step 1
_GuiCtrlTable_Set_RowHeight($winTable, $i, 13)
Next
_GUICtrlTable_Set_TextFont_Row($winTable, 1, 8.5, 800)
For $j = 1 To $Rows Step 1
_GuiCtrlTable_Set_Justify_Row($winTable, $j, 1)
Next
_GUICtrlTable_Set_Text_Row($winTable, 1, "ID|File name|File path")
If _GUICtrlTable_Get_Text_Cell($winTable, 1, 1) = "ID" Then
GUICtrlDelete($labLoading)
EndIf
GUISetState(@SW_SHOW)

$sText = _Lang("GUI", "scroller1", "Welcome to DartoZIP™ by Nutu' Designs! Thank you for choosing our product! For support please visit the project website.")
$Scroller1= Scroller_Init($winGUI, 480, $sText, "Arial", 9, 0, 0x000000, False, False, 0xABCDEF)
If @error Then
MsgBox(16, "ERROR 0x001a", _Error("0x001a") & " " & _Lang("Error", "text", "If this error persists please contact us. A log file has been created."))
_ErrDump("0x001a")
Exit
EndIf
AdlibRegister("Scroll_It", 30)

While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
_Exit()
Case $butOpen
If _Open() = 1 Then
MsgBox(16, "ERROR 0x005a", _Error("0x005a") & " " & _Lang("Error", "text", "If this error persists please contact us. A log file has been created."))
_ErrDump("0x005a")
Else
;~ Do nothing
EndIf
Case $butArchive
If _Archive() = 1 Then
MsgBox(16, "ERROR 0x002a", _Error("0x002a") & " " & _Lang("Error", "text", "If this error persists please contact us. A log file has been created."))
_ErrDump("0x002a")
Else
If _Archive() = 2 Then
MsgBox(16, "ERROR 0x003a", _Error("0x003a") & " " & _Lang("Error", "text", "If this error persists please contact us. A log file has been created."))
_ErrDump("0x003a")
Else
MsgBox(0, "Success", "The archive was successfully created.")
EndIf
EndIf
Case $butExtract
If _Extract() = 0 Then
MsgBox(0, "Success", "The archive was successfully unarchived.")
Else
If _Extract() = 1 Then
MsgBox(16, "ERROR 0x004a", _Error("0x004a") & " " & _Lang("Error", "text", "If this error persists please contact us. A log file has been created."))
_ErrDump("0x004a")
EndIf
EndIf
EndSwitch
WEnd

Func Scroll_It()
Scroller_Move($Scroller1, 1.25)
EndFunc

Func _Exit()
AdlibUnRegister("Scroll_It")
GUIDelete($winGUI)
Exit
EndFunc

Func _ErrDump($Code)
$Date = @MDAY & "-" & @MON & "-" & @YEAR
$TimeA = @HOUR & ":" & @MIN
$TimeB = @HOUR & ":" & @MIN & ":" & @SEC & ":" & @MSEC
FileWriteLine("crash_report_" & $Date & ".txt", "----------------------------------------" & @CRLF & "Date: " & $Date & @CRLF & "Time: " & $TimeB & @CRLF & "Code: " & $Code & @CRLF & "Description: " & @CRLF & _Error($Code) & @CRLF & "----------------------------------------" & @CRLF & @CRLF & @CRLF)
EndFunc

Func _Error($Code)
$Param = IniRead("errors.drt", "List", $Code, IniRead("errors.drt", "List", "0x000a", "Undefined error."))
Return $Param
EndFunc

Download:

Main:

http://www.autoitscript.com/forum/files/file/222-dartozip/

Secondary:

DartoZIP.zip

Constructive criticism is always welcome!

Thank you for your time!

Best regards,

Andy @ Nutu' Designs

EDIT (03/02/2013): I noticed that I accidentally left the function for the language button in the main script, which threw an error. I fixed it and re-uploaded.

Edited March 2, 2013 by AndyNutuDesigns

[AndyNutuDesigns]

A whole forum can't give me a feedback? C'mon. >_

[eimhym]

The list doesn't scroll, only display 31 items, and you can't select the file to extract.

And the zip component not checked but just get registered everytime script run, and ActiveX for zip? C'mon

Search the forum more, there's lots of samples to do it better.

[guinness]

Perhaps people will be inclined to test once it reaches beta stage.