Данные, строки О вытаскивании файлов из пользовательских ресурсов и помещении их в нужное место

[Twilight_Wolf]

Доброго дня, уважаемы эксперты!

Подскажите, пожалуйста, как вытянуть из скомпилированного скрипта заложенный туда пользовательский ресурс (файл) и поместить его в определенную пользовательскую папку при запуске скрипта? С помещением ресурса в тело скрипта проблем нет - AutoIt3Wrapper рулит, а вот как произвести обратное действие?
Зачем это надо: требуется автоматизировать настройку рабочих станций удалённых пользователей и для этого требуется поместить ряд файлов в нужные папки (рабочий стол, профиль и т. д.). Хочется сделать всё красиво - упаковать все ресурсные файлы в один exe, чтобы пользователям максимально облегчить задачу, свести действия к минимуму и ничего в процессе пересылки не потерялось.
Упаковываю файлы и получаю переменные среды так:

#Include <APIConstants.au3>
#Include <WinAPIEx.au3>
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=rdp.ico
#AutoIt3Wrapper_Res_File_Add=rasphone.pbk, files, 200
#AutoIt3Wrapper_Res_File_Add=RDP.rdp, files, 201
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
AutoItSetOption('ExpandEnvStrings',1)
EnvSet('UserAppDataDir','%APPDATA%')
EnvSet('UserDesktopDir',@DesktopDir)

Как теперь, к примеру, файл RDP.rdp поместить на рабочий стол? Заранее прошу прощения, если вопрос можно классифицировать как глупый)))

Сообщение автоматически объединено: 2 Фев 2021

Смысл в том, чтобы упаковывать ресурсы на компьютере администратора, специально созданные под конкретного пользователя (имена файлов всегда одинаковые, но содержимое разное), затем передавать этот скомпилированный скрипт пользователю, которому достаточно дважды кликнуть по файлу и получить настроенную рабочую станцию с разложенными по местам файлами. Эту задачу можно решить разными способами. например через bat или самораспаковывающийся архив. но хотелось бы понять, как работать с ресурсами в Autoit (от части на будущее).

 

[InnI]

упаковывать ресурсы на компьютере администратора

[Примеры] Хранение Пользовательских Данных в Ресурсах Исполняемого EXE Файла.

Категория: [Примеры] Описание: Примеры показывают схему действий при использовании файла скомпилированного скрипта как некое хранилище пользовательских данных. Для этих целей наиболее логично использовать область исполняемого файла (модуль), отведенную под ресурсы. Этому также способствует...

autoit-script.ru

хотелось бы понять, как работать с ресурсами в Autoit

FAQ по использованию ресурсов в AutoIt

Так как меня часто спрашивают о том, как использовать ресурсы в скомпилированных AutoIt скриптах, я решил подробно рассмотреть здесь эту тему и написать нечто вроде руководства для начинающих (и не только). Итак, для начала вам потребуется обзавестись следующими утилитами (если у вас их еще...

autoit-script.ru

 

[Twilight_Wolf]

Благодарю за наводку. Вторую ссылку я видел, но видимо не до конца прочитал - там в основном описывают типы ресурсов и как их использовать в программе, что тоже очень полезно.

Сообщение автоматически объединено: 2 Фев 2021

К сожалению, скрипты из примера по второй ссылке недоступны, но отдельные подсказки там всё же есть. Пошёл повторно читать FAQ. Всё равно большое спасибо, что уделили мне внимание

 

[xXx]

скрипты из примера по второй ссылке недоступны

По *первой* поправил.

 

[Twilight_Wolf]

По *первой* поправил.

Огромное спасибо! Очень много нового узнал и переделал пример под собственные нужды - всё работает прекрасно! Только пока никак не могу сообразить, как к добавленной мною третьей кнопке к первому примеру привязать событие очистки всех ресурсов и пересохранения скомпилированного файла? При нажатии второй кнопки скрипт как раз сначала удаляет все ресурсы, а затем засовывает новые. Требуется убрать из кода второй кнопки всё лишнее, чтобы осталась только функция очистки, которую перенесу в третью кнопку.

Case $idButton_2 ; Загружаем Новые Данные в Исполняемый модуль
            $aDirSize = DirGetSize($sDataPath, 1)
            If (Not @error) And ($aDirSize[1] + $aDirSize[2]) Then
                GUICtrlSetState($idButton_1, $GUI_DISABLE)
                GUICtrlSetState($idButton_2, $GUI_DISABLE)
                GUISetCursor(15, 1)

                If FileMove(@ScriptFullPath, $sPathRenamedFile, 1) Then ; Переименовываем исполняемый модуль
                    ; FileSetAttrib($sPathRenamedFile, '+HT') ; Скрыть файл
                    If Not FileCopy($sPathRenamedFile, @ScriptFullPath, 1) Then ExitLoop SetError(3) ; Копируем файл
                Else
                    ExitLoop SetError(4)
                EndIf

                $hModule = _WinAPI_BeginUpdateResource(@ScriptFullPath)
                If @error Then ExitLoop SetError(5)

                $aFileList = _FileListToArrayRec($sDataPath, Default, $FLTAR_FILESFOLDERS, $FLTAR_RECUR, $FLTAR_NOSORT)
                If @error Then ExitLoop SetError(6)

                If IsArray($aResNames) Then
                    _DeleteResourcesType($hModule, $sResType, $aResNames) ; Удаляем из модуля все ресурсы данного типа
                    If @error Then ExitLoop SetError(7)
                EndIf
                GUISetState(@SW_HIDE)

                ProgressOn('', 'Загрузка новых ресурсов:', '', -1, -1, $DLG_MOVEABLE)
                For $i = 1 To $aFileList[0] ; Загружаем в модуль файлы с сохранением структуры папок
                    If Not _LoadingResourceFromDirTree($hModule, $sResType, $sDataDir & '\' & $aFileList[$i]) Then ExitLoop SetError(8)
                    ProgressSet(($i * 100 / $aFileList[0]), 'Файл ' & $i & ' из ' & $aFileList[0])
                Next

                If Not _WinAPI_EndUpdateResource($hModule) Then
                    MsgBox($MB_TOPMOST + $MB_ICONERROR, Default, 'Ошибка сохранения:' & @LF & _
                            '_WinAPI_GetLastError() = ' & _WinAPI_GetLastError() & ' (' & _WinAPI_GetLastErrorMessage() & ')')
                    ExitLoop SetError(0)
                EndIf

                If GUICtrlRead($idCheckbox) = $GUI_CHECKED Then
                    If Not DirRemove($sDataPath, 1) Then ExitLoop SetError(9)
                EndIf
                ExitLoop
            Else
                MsgBox($MB_TOPMOST + $MB_ICONINFORMATION, Default, 'Сначала создайте НЕпустую папку "' & $sDataDir & '" для сохранения ее содержимого.', 0, $hGUI)
            EndIf

Видимо я до конца не понимаю, как очищается перепаковывается файл и удаляю всё время что-то лишнее, потому ресурсы не удаляются. Если не составит большого труда, подскажите, на что обратить внимание. Заранее большое спасибо!

Сообщение автоматически объединено: 4 Фев 2021

Вроде бы вот оно:

$hModule = _WinAPI_BeginUpdateResource(@ScriptFullPath)
                _DeleteResourcesType($hModule, $sResType, $aResNames) ; Удаляем из модуля все ресурсы данного типа
               If Not _WinAPI_EndUpdateResource($hModule) Then
                    MsgBox($MB_TOPMOST + $MB_ICONERROR, Default, 'Ошибка сохранения:' & @LF & _
                            '_WinAPI_GetLastError() = ' & _WinAPI_GetLastError() & ' (' & _WinAPI_GetLastErrorMessage() & ')')
                    ExitLoop SetError(0)
                EndIf

Но если оставить только эти строчки в коде третьей кнопки, то ресурсы не удаляются...

 

[xXx]

Но если оставить только эти строчки в коде третьей кнопки, то ресурсы не удаляются...

Логично, как программа может изменить сама себя (свой исполняемый файл) в состоянии работы?
Поэтому в коде перед вызовом _DeleteResourcesType() производятся еще кое какие действия. Почитайте комментарии посмотрите в справке описание функций.
P.s: и все вопросы по коду из той или иной темы задавайте в тех же темах.

 

[Twilight_Wolf]

Утро вечера мудреннее) Всё понял) Премного благодарен