» Indigo Rose AutoPlay Media Studio

AutoPlay Media Studio

AutoPlay Media Studio - мощная программа для создания меню автозагрузки CD/DVD. Эта программа создаст все необходимые файлы для автозапуска и его графическую оболочку, и даже сама встроит в нее использованные в проекте нестандартные шрифты. Пользователю останется лишь записать готовый проект на свой CD/DVD.
AutoPlay Media Studio не требует от пользователя никаких особых знаний и очень прост в освоении, имеет дружественный и интуитивно понятный интерфейс. Приложение, которое будет создано AutoPlay Media Studio в конце работы, представлено в виде объектной модели. Эта модель состоит из группы отдельных страниц. На этих страницах можно размещать объекты, которые могут представлять собой графику, музыку, текст, видео, Flash, HTML и пр. Любому элементу можно назначить определенное действие. Например, при наведении на рисунок курсора мыши, может возникать текст с комментариями, при нажатии на кнопку "Play" начнет проигрываться фильм и т.д. Программа предоставляет сотни различных действий, которые можно связать с объектами. В AutoPlay Media Studio присутствует большое количество уже готовых шаблонов.
AutoPlay Media Studio имеет широкие возможности и богатый набор инструментов для разработки мультимедийных проектов. Использовать программу можно не только для создания файлов автозапуска, но и, например, для разработки интерактивного обучающего софта или мультимедийной презентации.

Язык интерфейса: английский
Страница загрузки: AutoPlay Media Studio Commerical Trial 8.3.0.0

---

Скриптовый язык LUA:
на Lua.Org (Official) - на Lua.Ru

Ресурсы, посвященные AMS (содержат коллекции примеров, дополнений, уроков):
autoplaymediastudio.com
amsplugins.com
serkan.ws
azman.info
icynorth.com
imagine-programming.com
mindquake.com.br

Инструменты:
ScriptOMatic Tool - создает скрипт обращения ко всем свойствам выбранного WMI-класса

[more=Ответы на наиболее часто задаваемые вопросы]
Альтернативный перенос строки для текста (подходит и для *.ini) от [b]Zloy_Gelud
Активация кнопок по информации из реестра (на примере авторана для игр) от Zloy_Gelud
Виды путей, используемых в AMS от GOOSE
Включение\отключение фоновой музыки кнопкой
Вывод HTML отчета с использованием SQLite плагина от IndigoRose
Выделение и копирование в буфер текста\части текста от GOOSE
Для тех, у кого русский проект с "кракозяблами"
Запуск WinRAR'a для распаковки архивов от Reineke
Запуск файлов из Web объекта
Запуск/открытие файлов из Web объекта от tavria2
Запуск/открытие файлов из Web объекта (2) от tavria2
Запускаем экзешник по информации из реестра от Lexua
Из окна в полноэкранный режим и обратно
Изменяем иконку приложения от Lexua
Изменяем курсор в приложении от GOOSE
Изменяем скроллинг ListBox-у от GOOSE
Используем таймер
Отображение процесса распаковки файла из ZIP-архива + общий прогресс распаковки от Zloy_Gelud
Отправка данных из форм по e-mail от GOOSE
Перенос строки во всплывающей подсказке от GOOSE
Показ\скрытие объектов по действиям мыши
Полноэкранный режим для приложения
Последовательный запуск нескольких файлов
Проблема с путями при создании приложения .EXE и ресурсами на CD от Reineke
Проверка на существование копии проекта aka запрет повторного запуска от tavria2
Проигрвывание MP3 из ListBox-а подряд от UMode
Простой пример бегущей строки от GOOSE
Работаем с запароленными архивами от GOOSE
Работаем с объектом дерева от GOOSE
Ряд вопросов и ответов по созданию меню для DVD от tavria2
Реализация Play-листов для Винампа от BOObastis
Таблица дисков системы от Lexua
Изменение стиля границ окна проекта от tavria2
Многострочная подсказка (tooltip) от tavria2
Пример эффекта печатной машинки (набора текста) от ubian
Разделение информации через разделитель от Zloy_Gelud[/more][/b]

---

Онлайн версия раскраски AMS-кода для публикации на форуме от UModeL

Добрый день господа. Столкнулся с интересной ситуацией. Компьютер, при нажатии Завершение работы, просто перезагружается. Это ноутбук sony с гибридной видео картой nv330+intel. Можно ли, через AMS, сделать функцию выключения ПК? Пробовал через командную строку (shutdown -s -t 00) - не выходит. Объясню почему спрашиваю. Дело в том, что в системе Linux и т.п., а так же через загрузчик grub, при нажатии Выключение, все нормально выключается. Не выключается только в Windows. Возможно ли придумать что нибудь хитрое?!! Заранее спасибо.

dallas page
Охренеть, какие вы простые. Ты удосужился САМ поискать решение своей проблемы на просторах Рунета? Или это мы должны сделать за тебя? Да и еще что-то в AMS накодить.. Совсем обленились.

Zloy_Gelud знаешь что ... Я вчера весь день потратил на опробование множества возможных решений не только из рунета. Я детально описал проблему. Я НЕ ПРОСИЛ ГОТОВЫЙ КОД!!! ЧИТАЙ ВНИМАТЕЛЬНЕЕ!!! Я спросил: Возможно ли что то придумать?!! Я не писал: Дайте код выключения ПК! К счастью я не так воспитан, чтобы сейчас послать тебя. Но ты меня просто вывел из себя. Я думал здесь адекватные люди. А если у тебя плохое настроение, есть решение: стукнись головой об стену. И не порти настроение другим. Даже написав это я имею уважение к тебе, как к человеку с большими знаниями. Потому что я сам такой. За много лет я накопил огромный опыт и знания в ПК и т.п.. Да я не знаю всего... Потому что нельзя знать всего... На это сообщение и на предыдущий вопрос не нужно отвечать. Спасибо.

dallas page
Ну уж извини, если задел тебя. Судя по твоему посту, это выглядело, как "я попробовал команду "shutdown -s -t 00" - не получилось. Напишите хитрый код как выключить мой ноутбук." Да и к тому же мы не телепаты, чтобы знать почему у тебя он не выключается командой, которая должна это делать.
Также, мне кажется, что твой вопрос вообще не относится к AMS. Лучше бы ты обратился в железный форум, пускай там тебе подскажут, почему у тебя ноутбук ребутится вместо выключения.

Помогите пожалуйста с kernel32.dll. На c++ всё прекрасно идёт, а на lua не получается.
Пример с++

Код: ReadProcessMemory(hProcess, - handle окна
(LPVOID)0x00706D54, адрес
&lvl, переменная куда записывается значение
2, число байт
0);

Есть ли возможность сделать прозрачный фон у формы, оставляя не прозрачным элементы на ней?

Подскажите как сделать чтобы при наведении указателя на кнопки менялась фоновая картинка окна авторана. Для каждой кнопки своя фоновая картинка.

Chopser
попробуй в on leave на каждую кнопку поставить

Код: tbPageProperties = {};
tbPageProperties.BackgroundType = 1;
tbPageProperties.ImageFilename = "C:\\image.jpg"};
Application.SetPageProperties("Page1", tbPageProperties);

SuperDimon007

Спасибо за помошь, попробую. А почему в on leave, может в on enter? Я пробовал делать так:

на on enter

Image.SetVisible("Image1", false);
Image.SetVisible("Image2", false);
Image.SetVisible("Image3", false);
Image.SetVisible("Image4", false);
Image.SetVisible("Image5", true);

Это для пятой последней кнопки, а для первых четырех соответственно. Фоновое изображение не ставил, фоновые картинки ставил как Add Image. Вроде ничего (но не знаю правильно или нет), но при смене фоновых картинок при наведении курсора на кнопки - заметно мерцание. Может как то замедлить смену что ли?

в enter. Это я перепутал, а твой код просто меняет картинки, а не задний фон страницы. Если хочешь плавное изменение, то тебе надо играть с таймером и не задним фоном, а именно с картинкой сзади

А где там этот таймер, что то не нашел. Примерчик бы какой нибудь?

Попробовал твой код. Не работает, одну картинку ставил на фон, к остальным прописал путь как твоем коде указано типа:

tbPageProperties = {};
tbPageProperties.BackgroundType = 1;
tbPageProperties.ImageFilename = "AutoPlay\\Images\\img2.jpg";
Application.SetPageProperties("Page1", tbPageProperties);

Вместо картинки при наведении появляется какойто сине-черный градиент.

tbPageProperties.BackgroundType = 2;
Так должно быть. Или константу используй BG_IMAGE вместо числа.

Если кому интересно, то решил проблему с kernel32

Код: processes = System.EnumerateProcesses();
for j, file_path in pairs(processes) do
file = String.SplitPath(file_path);
if (String.Lower(file.Filename..file.Extension)) == "Process.exe" then
score = Memory.Allocate(4)
hProcess = DLL.CallFunction("kernel32.dll", "OpenProcess", Math.HexToNumber("0x1F0FFF")..", 1, "..j, DLL_RETURN_TYPE_INTEGER, DLL_CALL_STDCALL);
adr = Math.HexToNumber("0xадрес");
DLL.CallFunction("kernel32.dll", "ReadProcessMemory", hProcess..", "..adr..", "..score..", 4, 0", DLL_RETURN_TYPE_INTEGER, DLL_CALL_STDCALL);
value = Memory.GetInt(score);
Memory.Free(score);
DLL.CallFunction("kernel32.dll", "CloseHandle", hProcess, DLL_RETURN_TYPE_INTEGER, DLL_CALL_STDCALL);
end

Подскажите, пожалуйста, такой вопрос.
Я когда пишу код в нем есть много строк отладки, а когда уже баги исправлены, я эти строки комментарию, так как с Debug.Print в окне дебага процесс может идти намного дольше, чем без него.

Когда окно дебага скрыто в глобальных настройках проекта и не отображается, то debug.print все равно выполняется?
Хочу в программе сделать режим отладки в Экспертном режиме, но не знаю как это скажется на производительности, когда дебаг в коде есть, но окна нет.

Спасибо

bigbrain

Цитата:

Когда окно дебага скрыто в глобальных настройках проекта и не отображается, то debug.print все равно выполняется?

Да, т.к. окно "Debug" не закрывается, а скрывается.

Цитата:

не знаю как это скажется на производительности, когда дебаг в коде есть, но окна нет.

Будет притормаживать чуть меньше, чем с видимым окном "Debug".

Нужно запретить выполнение Debug.Print, если окно отладки скрыто.

Можно сделать подмену оригинальных действий Debug.ShowWindow и Debug.Print, чтобы не модифицировать кучу действий отладки:
Debug.ShowWindow, кроме отображения/скрытия окна отладки, должен выставлять пользовательский флаг видимости окна, например Debug.IsVisible.
Debug.Print, должен выполняться только при видимом окне (Debug.IsVisible = true)

Global Functions:
Код: Debug_Print = Debug.Print;
function Debug.Print(sText)
    if (Debug.IsVisible) then
        Debug_Print(sText);
    end
end

Debug_ShowWindow = Debug.ShowWindow;
function Debug.ShowWindow(bShow)
    Debug.IsVisible = bShow;
    Debug_ShowWindow(bShow);
end

Пожалуйста, помогите спарсить данные из xml файла
Текст файла
[more=XML-Type файл]

Код:
<!--Powered by Ubian ACS., LLC. Australia-->
<!--General System Errors-->
<error code="0xx">XubiCMS® Engine Error</error>
<error code="001">Ошибка генерации содержимого</error>
<!--General System Errors End-->
<!--Module Errors-->
<error code="1xx">XubiCMS® Module Errors</error>
<error code="1ax">XubiCMS® Accounting [Clients] Module</error>
<error code="1a0">Accounting [Clients Module] - Ошибка генерации списка клиентов</error>
<error code="1bx">XubiCMS® Accounting [Login] Module</error>
<error code="1b0">Accounting [Login Module] - Ошибка генерации полей страницы после цикла обработки пользовательских данных.</error>
<error code="1b1">Accounting [Login Module] - Ошибка. Неверный вызов файла, или неизвестная ошибка при генерации (От разработчика: такой ошибки не может быть).</error>
<error code="1b2">Accounting [Login Module] - Ошибка генерации даты окончания сессии для входа.</error>
<!--Module Errors End-->
<!--PHP Function Errors-->
<error code="2xx">Ошибка встроенных функций.</error>
<error code="20x">Ошибки функций define, defined.</error>
<error code="201">Ошибка функции define. Пустое значение.</error>
<error code="21x">Ошибки функции mysql_query</error>
<error code="210">Ошибка функции mysql_query. Запрос не вернул результатов, либо запрос сгенерирован неверно</error>
<error code="2ax">Ошибка функции mysql_fetch_array.</error>
<error code="2a0">Ошибка функции mysql_fetch_array. Не верно введены параметры, либо произошла внутреняя ошибка.</error>
<!--<error code=""></error>-->
<!--PHP Function Errors End-->
<!--XubiCMS® Functions Errors-->
<error code="3xx">System Clases Errors</error>
<error code="3ax">XubiCMS Class Errors</error>
<error code="3a0">XubiCMS::jumpToLogin Error: Wrong function call</error>
<error code="3a1">XubiCMS::jumpToLogin Error: Unknown error</error>
<error code="3a2">XubiCMS::compireDbDates Error: First param (db-formate date) is empty or not isset</error>
<error code="3a3">XubiCMS::compireDbDates Error: Second param (db-formate date) is empty or not isset</error>
<error code="3a4">XubiCMS::displayAnswer Error: Param isn't isset, or simply empty</error>
<error code="4xx">FileSys Class Errors</error>
<error code="41x">FileSys::Read Errors</error>
<error code="411">FileSys::Read Error: File not found</error>
<error code="412">FileSys::Read Error: File not found or empty</error>
<!--XubiCMS® Functions Errors End-->
<!--Last update: 11.08.2012-->
<!--Updated by: Alexander Letnikow, Layan-->
<!--Powered by Ubian ACS., LLC. Australia-->
<error code="666">Такой ошибки нету, нефиг шутить !</error>
<error code="002">Ошибка генерации списка: Ошибка выбора из базы данных</error>

ubian

Код: errors = {};
tFile = TextFile.ReadToTable("AutoPlay\\Docs\\Data.xml");
for nIdx, sRow in pairs(tFile) do
    sRow = string.gsub(sRow, "<!--.*-->", "");    -- удаляет комментарий
    for sIdx, sValue in string.gmatch(sRow, "code=\"(.*)\">(.*)</error") do
        if (String.TrimLeft(sIdx) ~= "") then
            errors[sIdx] = sValue;
        end
    end
end

tavria2
Большое спасибо. В XML файле нету пометок, что это XML вроде. Завтра потестирую код. А проверка на закоментированную строку точно не нужна?

ubian
Добавил строчку кода для удаления комментария.
См. выше.

ubian

Цитата:

P.S. AMS считает твой файл XML - некорректным, поэтому пришлось работать, как с текстовым файлом.

Если в твой XML-файл добавить главные теги, например <Errors> и строку кодировки,
Код: <?xml version="1.0" encoding="windows-1251"?>
<Errors>
<!--Powered by Ubian ACS., LLC. Australia-->
<!--General System Errors-->
<error code="0xx">XubiCMS® Engine Error</error>
<error code="001">Ошибка генерации содержимого</error>
...
</Errors>

У меня такой вопрос. Как из определённых файлов прочесть нужные строки и записать их в другой файл
Например:
Из файлов *.nup прочесть:
[update_info]
name=CLEANER0
platform=x86
versionid=1000
type=cleaner
version=1000 (20070116)
group=perseus
date=16.01.2007
buildregname="CleanerBuild"
build=1000
level=0
base=268435456
category=engine
filesize=29058

И записать данные в файл update.ver
Формат:
[CLEANER0]
platform=x86
versionid=1000
type=cleaner
version=1000 (20070116)
group=perseus
date=16.01.2007
file=nod37CA.nup
buildregname=CleanerBuild
build=1000
level=0
base=268435456
category=engine
size=29448

Sanch8
[more=Код.]
Код: local sDefaultFolder = "C:\\";
local sInSectionName = "update_info";
local sOutFileName = "update.ver";

local sFolder = Dialog.FolderBrowse("Select a Folder", sDefaultFolder);
if (sFolder ~= "CANCEL") and (sFolder ~= "") then
    local tFiles = File.Find(sFolder, "*.nup", false, false, nil, nil);
    if (tFiles) then
        for nIdx, sFileName in pairs(tFiles) do
            local tValueNames = INIFile.GetValueNames(sFileName, sInSectionName);
            if (tValueNames) then
                local tData = {};
                for nId, sValueName in pairs(tValueNames) do
                    tData[sValueName] = INIFile.GetValue(sFileName, sInSectionName, sValueName);
                end
                local sOutSectionName = tData["name"];
                if (sOutSectionName) then
                    local sFile = String.SplitPath(sFileName).Filename..String.SplitPath(sFileName).Extension;
                    INIFile.SetValue(sFolder.."\\"..sOutFileName, sOutSectionName, "file", sFile);
                    for sIdx, sValue in pairs(tData) do
                        if (sIdx) ~= "name" then
                            INIFile.SetValue(sFolder.."\\"..sOutFileName, sOutSectionName, sIdx, sValue);
                        end
                    end
                end
            end
        end
    end
end

У меня есть инфопродукт, который состоит из Html страниц . Подскажите!!! Как сделать, так чтобы при нажатии на кнопку в меню проекта, сделанном с помощью Autoplay Media Studio, открывалась бы индексная страница (Html)?

tavria2

Цитата:

Код: local sDefaultFolder = "C:\\";
local sInSectionName = "update_info";
local sOutFileName = "update.ver";

local sFolder = Dialog.FolderBrowse("Select a Folder", sDefaultFolder);
if (sFolder ~= "CANCEL") and (sFolder ~= "") then
local tFiles = File.Find(sFolder, "*.nup", false, false, nil, nil);
if (tFiles) then
for nIdx, sFileName in pairs(tFiles) do
local tValueNames = INIFile.GetValueNames(sFileName, sInSectionName);
if (tValueNames) then
local tData = {};
for nId, sValueName in pairs(tValueNames) do
tData[sValueName] = INIFile.GetValue(sFileName, sInSectionName, sValueName);
end
local sOutSectionName = tData["name"];
if (sOutSectionName) then
local sFile = String.SplitPath(sFileName).Filename..String.SplitPath(sFileName).Extension;
INIFile.SetValue(sFolder.."\\"..sOutFileName, sOutSectionName, "file", sFile);
for sIdx, sValue in pairs(tData) do
if (sIdx) ~= "name" then
INIFile.SetValue(sFolder.."\\"..sOutFileName, sOutSectionName, sIdx, sValue);
end
end
end
end
end
end
end

P.S. Код рабочий, но сделан на скорую руку и возможно нуждается в оптимизации.

solomon000
См. File.Open

tavria2
У меня ещё такой вопрос. Как сделать так чтобы в значении "file" показывало имена файлов а не их путь ?

Код: local sDefaultFolder = Input.GetText("Out_dir");
local sInSectionName = "update_info";
local sOutFileName = "update.ver";
local tFiles = File.Find(sDefaultFolder, "*.nup", false, false, nil, nil);
if (tFiles) then
for nIdx, sFileName in pairs(tFiles) do
local tValueNames = INIFile.GetValueNames(sFileName, sInSectionName);
if (tValueNames) then
local tData = {};
for nId, sValueName in pairs(tValueNames) do
tData[sValueName] = INIFile.GetValue(sFileName, sInSectionName, sValueName);
end

local sOutSectionName = tData["name"];
local tValueSize = File.GetSize(sFileName, sInSectionName);

if (sOutSectionName) then
for sIdx, sValue in pairs(tData) do
if (sIdx) ~= "name" then
INIFile.SetValue(sDefaultFolder.."\\"..sOutFileName, sOutSectionName, sIdx, sValue);
INIFile.DeleteValue(sDefaultFolder.."\\"..sOutFileName, sOutSectionName, "filesize");
INIFile.DeleteValue(sDefaultFolder.."\\"..sOutFileName, sOutSectionName, "filename");
INIFile.DeleteValue(sDefaultFolder.."\\"..sOutFileName, sOutSectionName, "crc");
INIFile.SetValue(sDefaultFolder.."\\"..sOutFileName, sOutSectionName, "size", tValueSize);
INIFile.SetValue(sDefaultFolder.."\\"..sOutFileName, sOutSectionName, "file", sFileName);
end
end
end
end
end
end

Sanch8

Цитата:

У меня ещё такой вопрос. Как сделать так чтобы в значении "file" показывало имена файлов а не их путь ?

Использовать действие String.SplitPath...

Модифицированный [more=код.]
Код: local sDefaultFolder = Input.GetText("Out_dir");                                                        -- папка с файлами .nup
local sInSectionName = "update_info";                                                                    -- имя секции в файлах .nup с нужными данными
local sOutFileName = sDefaultFolder.."\\update.ver";                                                    -- путь+имя файла результата

local tFiles = File.Find(sDefaultFolder, "*.nup", false, false, nil, nil);                                -- таблица файлов .nup (путь+имя)
if (tFiles) then                                                                                        -- если есть файлы .nup
    -- в цикле обрабатываем каждый файл .nup
    for _, sFile in pairs(tFiles) do
        local tValueNames = INIFile.GetValueNames(sFile, sInSectionName);                                -- таблица имен элементов в секции "update_info"
        if (tValueNames) then                                                                            -- если секция "update_info" содержит элементы

            local tData = {};                                                                            -- создаем таблицу элементов из секции "update_info"
            -- в цикле обрабатываем каждую строку в секции "update_info"
            for _, sValueName in pairs(tValueNames) do
                tData[sValueName] = INIFile.GetValue(sFile, sInSectionName, sValueName);                 -- заполняем таблицу данных ( напрмер: [platform] = x86 )
            end

            local sOutSectionName = tData["name"];                                                        -- имя секции для данных в файле резултата
            if (sOutSectionName) then
                -- в цикле обрабатываем таблицу с данными из секции "update_info"
                for sIdx, sValue in pairs(tData) do
                    if (sIdx ~= "name") and (sIdx ~= "filesize") and (sIdx ~= "filename") and (sIdx ~= "crc") then
                        -- добавляем данные в файл результата, кроме указанных в условии...
                        INIFile.SetValue(sOutFileName, sOutSectionName, sIdx, sValue);
                    end
                end
                -- ручное добавление данных в файл результата
                local nFileSize = File.GetSize(sFile);                                                    -- размер текущего файла .nup
                local sFileName = String.SplitPath(sFile).Filename..String.SplitPath(sFile).Extension;    -- имя файла без пути
                INIFile.SetValue(sOutFileName, sOutSectionName, "size", nFileSize);
                INIFile.SetValue(sOutFileName, sOutSectionName, "file", sFileName);
            end
        end
    end
end

tavria2
Модифицированный код

Огромное спасибо

tavria2
Спасибо. Но система настроена так, чтобы работать с таким файлом