StarEdik
Новичок
- Сообщения
- 365
- Репутация
- 4
Версия AutoIt: 3.3.6.1
Описание:
Привет всем!!!
Прошу помощи при написание скрипта. За ранее благодарен.
Идея: Мобильный скрипт и именем «Отчет.ехе»на флешке. При запуске скрипт проходить проверку на правильности пароля и при положительном ответе, он должен распаковать запароленные архивы в указанные папки, запустить RWP.ехе с параметром запуска "Show" .Архивов 3.
1.Таблицы - Шаблоны.(Tab.rar – в ресурсах) .Пароль - 123456
– Путь распаковки (С:\Temp\Account\Table)
2.Исполняемый файл.(RWP.rar – закреплен к скрипту с помощью FileInstall) ,который после всех распаковок запускается основным скриптом на выполнение и при выгрузке удалить все распакованные файлы.
– Путь распаковки (С:\Temp\Account\RWP) .Пароль - Qwerty
3.Документы в формате .xls и .doc (Doк.rar – обновляемый – лежит в папке рядом со скриптом )
– Путь распаковки (С:\Temp\Account\Calc) . Пароль – Q1w2e3r4t5y6
Форма для примера
Примечания:
Описание:
Привет всем!!!
Прошу помощи при написание скрипта. За ранее благодарен.
Идея: Мобильный скрипт и именем «Отчет.ехе»на флешке. При запуске скрипт проходить проверку на правильности пароля и при положительном ответе, он должен распаковать запароленные архивы в указанные папки, запустить RWP.ехе с параметром запуска "Show" .Архивов 3.
1.Таблицы - Шаблоны.(Tab.rar – в ресурсах) .Пароль - 123456
– Путь распаковки (С:\Temp\Account\Table)
2.Исполняемый файл.(RWP.rar – закреплен к скрипту с помощью FileInstall) ,который после всех распаковок запускается основным скриптом на выполнение и при выгрузке удалить все распакованные файлы.
– Путь распаковки (С:\Temp\Account\RWP) .Пароль - Qwerty
3.Документы в формате .xls и .doc (Doк.rar – обновляемый – лежит в папке рядом со скриптом )
– Путь распаковки (С:\Temp\Account\Calc) . Пароль – Q1w2e3r4t5y6
Форма для примера
Код:
#AutoIt3Wrapper_Res_File_Add=Tab.rar, rt_rcdata, DEFAULT_1
#include <Resources.au3>
#include <string.au3>
$sCryptedPass = '9BA81FDF0B89502F8E2B599A';('qwerty')
$sPassInput = InputBox('Password', 'Enter your password:', 'qwerty', '')
If @error Then Exit
If _StringEncrypt(0, $sCryptedPass, $sPassInput) = $sPassInput Then
ConsoleWrite('OK'&@CRLF)
;Здесь должно происходить распаковка Tab.rar в папку @TempDir & '\Account\Table (Пароль - 123456)?????????????????????
FileInstall(@ScriptDir & '\RWP.rar', @TempDir & '\Account\RWP\*.*');???????????????????
Sleep(1000)
Run(@TempDir & '\Account\RWP\RWP.exe' & ' ' & 'Show')
;Здесь должно происходить распаковка Dok.rar в папку @TempDir & \Account\Calc (Пароль – Q1w2e3r4t5y6) ?????????????????????
Else
MsgBox(0, 'False', '"' & $sPassInput & '" is false.')
;Exit
EndIf