Пользователь
Сообщения: 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
Заранее спасибо! |
