Добавить прогресс бар к скрипту

Добавить прогресс бар к скрипту

support23

Пользователь

Сообщения: 74
Благодарности: 0

Профиль | Отправить PM | Цитировать

Помогите добавить прогресс бар к скрипту:

PHP код:


#include <ButtonConstants.au3>

#include <EditConstants.au3>

#include <GUIConstantsEx.au3>

#include <StaticConstants.au3>

#include <TabConstants.au3>

#include <WindowsConstants.au3>

#include <GUIConstantsEx.au3>

#include <GDIPlus.au3>



#Region ### START Koda GUI section ### Form=

Opt("GUIOnEventMode", 1) ; Подключаем режим OnEvent







$Form2 = GUICreate("Form2", 405, 294, 343, 227)

$sIniFile = @ScriptDir & '\rcopy.ini'







$path = IniRead($sIniFile, 'directory', 'path', '')

$Input1 = GUICtrlCreateInput($path, 24, 48, 201, 21, $GUI_SS_DEFAULT_INPUT)



$list = IniRead($sIniFile, 'directory', 'list', '')

$Input2 = GUICtrlCreateInput($list, 24, 112, 201, 21, $GUI_SS_DEFAULT_INPUT)







$Button1 = GUICtrlCreateButton("Copy", 320, 56, 75, 49)



$Button2 = GUICtrlCreateButton("Button2", 224, 48, 27, 25, $BS_ICON)

GUICtrlSetImage(-1, "shell32.dll", 4, 0)

$Button3 = GUICtrlCreateButton("Button3", 224, 112, 27, 25, $BS_ICON)

GUICtrlSetImage(-1, "shell32.dll", 4, 0)







$Label1 = GUICtrlCreateLabel("Папка с файлами", 24, 24, 94, 17)

GUICtrlCreateLabel("", 16, 88, 4, 4)

$Label2 = GUICtrlCreateLabel("Путь к списку", 24, 88, 75, 17)

$Button4 = GUICtrlCreateButton("Выход", 320, 256, 75, 25)



GUICtrlSetOnEvent($Button1, "_startcopy")

GUICtrlSetOnEvent($Button2, "_path")

GUICtrlSetOnEvent($Button3, "_list")

GUICtrlSetOnEvent($Button4, "close")





GUISetOnEvent($GUI_EVENT_CLOSE, "Close")

HotKeySet("{PAUSE}", "Close")

GUISetState(@SW_SHOW)





#EndRegion ### END Koda GUI section ###









While 1

    $nMsg = GUIGetMsg()

    Switch $nMsg

        Case $GUI_EVENT_CLOSE

            Exit



    EndSwitch

WEnd





Func _startcopy()

$file = FileOpen($list, 0)



; Проверяет, является ли файл открытым, перед тем как использовать функции чтения/записи в файл

If $file = -1 Then

    MsgBox(4096, "Ошибка", "Невозможно открыть файл.")

    Exit

EndIf



; Читает построчно текст, пока не будет достигнут конец файла EOF

While 1

    $line = FileReadLine($file)

    If @error = -1 Then ExitLoop

    ;MsgBox(4096, "Прочитанная строка:", $line)

    FileCopy($path, $line, 1)

WEnd



FileClose($file)

EndFunc











Func _path()

$var = FileOpenDialog('Выберите файлы', @WorkingDir & "\", "Файлы (*.*)", 1 + 4 )

$path = GUICtrlSetData($input1, $var)

EndFunc



Func _list()

$var2 = FileOpenDialog('Выбрать файл списка', @WorkingDir & "", "Файл списка(*.log;*.txt;*.lst)", 1 + 8)

$list = GUICtrlSetData($input2, $var2)

EndFunc









Func Close()

    Exit

EndFunc