» Indigo Rose AutoPlay Media Studio

anatolii1978
лучше не париться...
вот когда-то делал такую оболочку sample.rar
Универсальна, настраивается, все данные получает динамически. Может почерпнешь какие идеи. Вообще путей реализации твоей задачи множество.

Robby

Не могу скачать перезалей пожалуста!!!


Цитата:

Вообще путей реализации твоей задачи множество

Хотелось-бы узнать твои идеи?

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

Жду ссылку и идеи! Заранее спасибо))

anatolii1978
файл на месте
Вот на другом обменнике скачать, объем побольше за счет наличия нескольких уроков к каждому курсу (чтобы увидеть, как это работает).
В файле AutoPlay\Docs\help.chm (доступен из оболочки) описание как настраивать и как это работает.

Цитата:

Это моя первая работа и я её хочу выполнить хорошо!

это похвально и поэтому начни с чтения справки к программе AutoPlay Media Studio
и мануалов по языку LUA http://www.lua.ru/doc/ для понимания многих аспектов скриптописания

Помогите с кодом который удалит все папки с диска за исключением 3х папок
Documents and Settings
Windows
Program Files.
Буду очень благодарен за помощь.

sjdb45
Держи, в проекте две страницы с разной реализацией. Осторожно, проект удаляет все папки и их содержимое при снятой галочке "Симуляция".
Delete_Folder.apz

Robby
Спасибо за помощь, но к сожалению такое подключение кода не совсем вписывается в мой проект. Вся беда в том, что с таким кодом нужно применить несколько объектов, а мне нужно чтобы сам код можно было-бы добавить в один бутон, чтобы просто при завершении действия бутона проверялось наличие папок на системном диске и если таковые имеются то удалял бы все лишние папки кроме windows documents and settings program files.
Проблема ещё в том, что названия папок которые должны удалятся мне не известны, (в основном это мусорные папки от распакованных драйверов) хотя их можно будет проверить путём установки системы на виртуальной машине.
Я просто надеялся что это будет легко, вписал код и все. Но думаю придётся узнавать точные названия папок и использовать простой батник для удаления...
Все равно спасибо за этот код, думаю он будет полезен в других проектах и других действиях!

sjdb45
вот простой код без всяких объектов. Будут удалены все папки, которых нет в списке исключений переменная
Код: sNoDel = "Documents and Settings Windows Program Files";-- список имен папок исключений

Robby
Огромное спасибо за код, это было именно то, что мне нужно!!!

Код:
sDiskORPath ="C:\\";
sNoDel = "Documents and Settings Windows Program Files";
tFindFolder = Folder.Find(sDiskORPath, "*", false, nil);
if tFindFolder then
Debug.Clear();
Debug.ShowWindow(true);
for i, path in pairs(tFindFolder) do
sFolderName = String.Mid(path, String.ReverseFind(path, "\\", false)+1, -1);
if String.Find(sNoDel, sFolderName, 1, false)==-1 then
Debug.Print("Folder.DeleteTree("..path..")".."\r\n");
Debug.ShowWindow(false);
Folder.DeleteTree(path);
end
end
end

sjdb45
_SourceDrive нужно использовать без кавычек. по остальному чуть позже

Код: sDiskORPath = String.SplitPath(_WindowsFolder).Drive; -- где удалять (указан системный диск)
sNoDel = "Documents and Settings Windows Program Files";-- список имен папок исключений
tFindFolder = Folder.Find(sDiskORPath, "*", false, nil); -- ищем все папки по указанному пути
if tFindFolder and File.DoesExist(_WindowsFolder.."\\0.log") then -- если найдены папки и есть маркерный файл
Debug.Clear();
Debug.ShowWindow(true);
    for i, path in pairs(tFindFolder) do
    sFolderName = String.Mid(path, String.ReverseFind(path, "\\", false)+1, -1); -- получаем имя папки
        if String.Find(sNoDel, sFolderName, 1, false)==-1 then -- если нет совпадений со сприском исключений
            Debug.Print("Folder.DeleteTree("..path..")".."\r\n");
            --Folder.DeleteTree(path); -- удаляем папку со всем содержимым
        end
    end
end
tMask = {"*.ini","*.txt","*.inf","*.pdf"}; -- маски файлов для удаления
for i, mask in pairs(tMask) do -- перебираем маски
    tFileFind = File.Find(String.SplitPath(_WindowsFolder).Drive.."\\", mask, false, false, nil, nil); -- ищем файлы с заданной маской
    if tFileFind then -- если файлы найдены
        for k, path in pairs(tFileFind) do
            Debug.Print("Удаление: "..path.."\r\n"); -- в отладке будут все файлы попадающие под маску потому, что не учитываются атрибуты
            --File.Delete(path, false, false, false, nil); -- удаляем файлы кроме скрытых и системных
        end
    end
end

Подскажите пожалуйста кто знает, как двумя кнопками регулировать громкость в MediaPlayer плагине, например при каждом нажатии на первую кнопку громкость прибавлялась, а на вторую убавлялась. Заранее спасибо

Добавлено:
Подскажите пожалуйста кто знает, как двумя кнопками регулировать громкость в MediaPlayer плагине, например при каждом нажатии на первую кнопку громкость прибавлялась, а на вторую убавлялась. Заранее спасибо

Огромная благодарность Robby
всё получилось так, как хотел, даже перепробовал на живой системе и всё работает точь в точь !
Ещё раз огромное спасибо за помощь

ZAWADSKII1
ну наверное алгоритм такой


Код: -- где удобно, в On Preload или On Show
-- задаем пределы регулировки громкости
nMinVolume = 0;
nMaxVolume = 100;
--задаем шаг регулировки громкости
nStep = 10;

--на кнопку уменьшения громкости, событие On Click
--получаем текущую громкость
nVolume = MediaPlayer.GetVolume("media_player");
if nVolume > nMinVolume and nVolume >= nStep then -- пока не вышли за пределы
    nVolume = nVolume - nStep; -- уменьшаем уровень громкости
    MediaPlayer.SetVolume("media_player", nVolume); -- устанавливаем ноый уровень
elseif nVolume < nStep then -- если текущий уровень меньше шага - устанавливаем мин. уровень громкости
    MediaPlayer.SetVolume("media_player", nMinVolume);
end

--на кнопку увеличения громкости, событие On Click
--получаем текущую громкость
nVolume = MediaPlayer.GetVolume("media_player");
if nVolume < nMaxVolume and nVolume+nStep <= nMaxVolume then
    nVolume = nVolume + nStep;
    MediaPlayer.SetVolume("media_player", nVolume);
elseif nVolume+nStep > nMaxVolume then
    MediaPlayer.SetVolume("media_player", nMaxVolume);
end

я тут поковырялся парочку часов в apm и попробовал написать такое:
на первой кнопке: nCurrVolume = MediaPlayer.GetVolume("Plugin1");
MediaPlayer.SetVolume("Plugin1", (nCurrVolume + 2));
для прибавления громкости на две единици и на второй кнопке:
nCurrVolume = MediaPlayer.GetVolume("Plugin1");
MediaPlayer.SetVolume("Plugin1", (nCurrVolume - 2));
для уменьшения.
Удивительно простой код, но работает как надо
Надеюсь код нормальный так как я сегодня ещё первый день разбираюсь с АРМ.

ZAWADSKII1
все гениальное просто
только в твоем коде нет проверок на границы диапазона регулировки от 0 до 100. Хотя, возможно, это и не приведет к ошибкам.

Обязательно буду пробовать твой код, спасибо за помощь

Друзья, всем привет!!

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

Буду очень признателен за ответ

kesha333
в свойствах страницы есть раздел Переходы, там можно выбрать эффект. В стандартной поставке программы их немного, PowerPack добавляет еще несколько.

Цитата:

kesha333
в свойствах страницы есть раздел Переходы, там можно выбрать эффект. В стандартной поставке программы их немного, PowerPack добавляет еще несколько.

Спасибо огромное!
У меня их там 6 штук - это значит стоит powerpack?

П.С. У меня версия 8.0.6.0 есть смысл переходить на последнюю 8.1? Где посмотреть список изменений?

kesha333

Цитата:

У меня их там 6 штук - это значит стоит powerpack?

Стандартное содержание папки Plugins\TransitionsIRDissolveTransition.lic
IRDissolveTransition.tns
IRSlideTransition.lic
IRSlideTransition.tns
IRWipeTransitions.lic
IRWipeTransitions.tns

С powerpack:Fade.lic
Fade.tns
IRDissolveTransition.lic
IRDissolveTransition.tns
IRSlideTransition.lic
IRSlideTransition.tns
IRWipeTransitions.lic
IRWipeTransitions.tns
Metro.lic
Metro.tns
PageTurnTransition.lic
PageTurnTransition.tns
ShapeTransition.lic
ShapeTransition.tns


На счет версии последеней версии - новшеств там не много, а вот исправлений ошибок прилично.

[more=Что нового в версии 8.1.0.0:]This release contains the following features and bug fixes:

Feature: Added support for Windows 8 based on product testing in the Windows 8 Consumer Preview, and Windows 8 Release Preview.
Feature: Added Windows 8 compatibility GUID to AutoPlay Media Studio's design and runtime manifests.
Feature: Added support to the System.GetOSName action for Windows 8 and Windows Server 2012.
Feature: Made the 'Confirm Delete' dialog of the Optimize Resources feature a resizable dialog.
Fix: Fixed a bug where renaming objects would not update code in certain situations.
Fix: Fixed a bug where the Page.SetFocus action wasn't displaying all object types in it's object combo box.
Fix: Fixed a bug where you could not tab to the xButton object.
Fix: Fixed a bug where the 'Service Name' and 'Display Name' were incorrectly being compared in a case-sensitive manner in Service actions.
Fix: Fixed a bug in the ListBox.GetProperties action where the following table items weren't being populated: ResizeLeft, ResizeRight, ResizeTop and ResizeBottom.
Fix: Minor text change in the File.Find action xml recurse parameter description.
Fix: Fixed a bug where renaming a page from the properties pane failed to update references to Quick Actions and Script Actions.
Fix: Fixed a bug relating to deleting pages/dialogs and the "Position of Dialog Tabs" preference where it wasn't working properly.
Fix: Fixed a bug where xButton objects were not properly being added to the tab order.
Fix: Fixed a bug where CheckBox object's visible state wasn't being drawn properly when used with Application.SetRedraw action, and the CheckBox.SetVisible action.
Fix: Fixed an issue with the ComboBox object where it wouldn't function correctly after setting the text using a smaller font size.
Fix: Fixed a bug where changing an existing guideline's position via it's properties dialog would fail to remove it's old position.
Fix: Fixed a bug in the Image object where images in GIF format would always have their background color set to transparent.
Fix: Fixed a bug relating to hitting the Esc key while focus is in a RichText object on a DialogEx which would prevent further interaction with the dialog.
Fix: Fixed a bug where the read order of the input object was not being set properly using the Input.GetProperties and Input.SetProperties actions.
Fix: Fixed an issue relating to the handling of typing Polish characters using the Right-Alt keyboard sequence.
Fix: Fixed a bug where the last cursor position wasn't being saved in the project actions area.
Fix: Fixed a bug where object renaming would not work when changing the objects name on the Object Properties dialog and the object was referenced on it's own events.
Fix: Fixed a bug where Paragraph object scrollbars were incorrectly being caught by the resource optimizer.[/more]

подскажите пожалуйста кто сталкивался, как на ползунок, то есть на slider какую нибудь шкурку , надеть и возможно ли это вообще?

Доброго времени суток , Уважаемые Знатоки AMS!
---
Накопилось к Вам 3 вопроса (все вопросы про скрипт приведёный ниже)

1. Обьясните мне пожалуйста (желательно поподробнее) , почему этот скрипт прекрасно работает на любой Windows XP 32-bit , а на Window 7 (32-bit) и Window 8 (32-bit) не хочет?

2. Как обеспечить совместимость с любой "виндой"?

3. Что нужно дописать что-бы обеспечить совместимость с 64-битными компами?
---
Ниже приведена часть скрипта обычного инсталлятора на основе AMS.
---
Zip.Extract("AutoPlay\\Docs\\prog.zip", {"*.*"}, Shell.GetFolder(SHF_PROGRAMFILES).."\\prog", true, true, "", ZIP_OVERWRITE_ALWAYS, ZIP_CALLBACK);

Zip.Extract("AutoPlay\\Docs\\archive.zip", {"*.*"}, Shell.GetFolder(SHF_APPLICATIONDATA_COMMON), true, true, "", ZIP_OVERWRITE_ALWAYS, ZIP_CALLBACK);

Zip.Extract("AutoPlay\\Docs\\sys32.zip", {"*.*"}, _SystemFolder, true, true, "", ZIP_OVERWRITE_ALWAYS, ZIP_CALLBACK);

Shell.CreateShortcut(Shell.GetFolder(SHF_DESKTOP), "ярлык", Shell.GetFolder(SHF_PROGRAMFILES).."\\prog\\prog.exe", "", "", "", 0, SW_SHOWNORMAL, nil);
---
Буду рад любой информации. Спасибо!

Ashap_1974
возможно нужны права администратора.

Новая версия AMS 8.2.0.0.
Цитата:

This release contains the following features and bug fixes:
Feature: Updated AutoPlay Media Studio's design environment to support Windows 8.1.
Feature: Updated AutoPlay Media Studio's runtime manifests to support Windows 8.1.
Feature: Updated the 'System.GetOSName' action with Windows 8.1 and Windows Server 2012 R2.
Fix: Updated the constants for the 'System.GetOSProductInfo' action.
Fix: Updated IRScriptEditor.exe to 2.0.1001.0.
Fix: Fixed some missing object types in the 'DialogEx.SetFocus' action's action wizard properties.
Fix: Fixed a bug where performing 'Page.Jump' actions on the On Startup event would cause script to still be run on some of the first page's events.
Fix: Fixed a couple display issues on the Quick Action tab of the object's properties dialog.
Fix: Fixed a bug where some object fonts would always be anti-aliased regardless of the object's font settings.
Fix: Fixed a bug in the Script Explorer where if the same event was showing in both script editor panes, there was a potential for losing changes. It now prevents you from showing the same event in both editors.
Fix: Added a prompt to AutoPlay's uninstall that asks if you want to remove the software's preferences or not.

Цитата:

Ashap_1974
возможно нужны права администратора.

Robby, я пробовал - тоже самое...
Попробую обьяснить поподробней:
На любой 32-битной Win XP - всё нормально. Тестировал на трёх разных компах. Есть и лицензия Windows XP и сборки типа ZVER - всё OK!
---
Что происходит на Win 7 (32-бит) и Win 8 (32-бит):
Собраный EXE-инсталлятор запускается без проблем (с администратором или без - всё равно).
Распаковывается в TEMP и запускается - нормально. Появляется моя "менюшка".
После нажатия кнопки установки (на ней записан этот скрипт - см.сообение выше) , градусник прогресса всё как-бы распаковывает (вроде как-будто всё нормально?).
Но! После как-бы удачного выхода из инсталлятора на Рабочем столе появляется ярлык программы (причём без иконки от указывающего на неё EXE-шника). Щелчок по ярлыку выдаёт что он не находит EXE. Что самое смешное , что в папках Program Files и других никаких следов распаковки нет (то есть туда НИЧЕГО не установилось!)
---
Куда установились файлы? Ведь вроде всё грамотно в скрипте написал?

Ashap_1974
попробуй после Zip.Extract использовать Application.GetLastError() и посмотри не возвращется ли ошибка функцией Zip.Extract.
Проверь, что возвращают Shell.GetFolder(SHF_PROGRAMFILES) и другие Win 7 и Win 8, хотя скорее всего будет все правильно.

Robby,Спасибо Вам за советы... Попробую только завтра...Сейчас Win 7 и Win 8 нет под рукой... Если Вы не против я в случае чего Вас опять вопросами помучаю?

Доброго всем времени суток.
Ребята - меня малость клемануло ))) Может не выспался но элементарного не пойму.
Кто-то может мне подсказать как после закрытия диалогового окна Dialog1 вызваного после нажатия на кнопку со страницы Page1 выполнить сразу на этой странице любое действие?

AlexxChe


Цитата:

Кто-то может мне подсказать как после закрытия диалогового окна Dialog1 вызваного после нажатия на кнопку со страницы Page1 выполнить сразу на этой странице любое действие?

код откуда будет вызван диалог

Код: if DialogEx.Show("Dialog1", true, nil, nil) == 2 then
--здесь любое действие

end

lerik2703


Цитата:

код откуда будет вызван диалог

Код:
if  DialogEx.Show("Dialog1", true, nil, nil) == 2 then
 --здесь любое действие
 
end

Масло мне в булочку! It works!
Огромное спасибо ))) Выручил