Widok Moderator-Следопыт Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Часть 3 [Часть 2, Часть 1] Дружественная тема в Варезнике [Home Page] - [Features] - [Add-Ons] - [Support] - [Forums]   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 Trial v7.5.1006.0 Рекомендуемое дополнение: AMS PluginPowerPack by Kindly v4.0 - Зеркало Это дополнение содержит все последние плагины, расширяющие возможности AMS, на момент его выпуска (02.08.09). Учимся работать с AMS: Ресурс 1 - Ресурс 2 - Ресурс 3 - Ресурс 4 Скриптовый язык LUA: Ресурс 1 (En) - Ресурс 2 (Ru) Ресурсы, посвященные AMS (содержат коллекции примеров, дополнений, уроков): amsplugins.com amsuser.com azman.info icynorth.com gooseweb.ru   -умер, сорри... warmuskerken.com Ответы на наиболее часто задаваемые вопросы: Альтернативный перенос строки для текста (подходит и для *.ini) от Zloy_Gelud Активация кнопок по информации из реестра (на примере авторана для игр) от Zloy_Gelud Виды путей, используемых в AMS от GOOSE Включение\отключение фоновой музыки кнопкой Вывод HTML отчета с использованием SQLite плагина от IndigoRose Выделение и копирование в буфер текста\части текста от GOOSE Для тех, у кого русский проект с "кракозяблами" Запуск WinRAR'a для распаковки архивов от Reineke Запуск файлов из Web объекта Запуск/открытие файлов из Web объекта от tavria2 Запускаем экзешник по информации из реестра от Lexua Пример бегущей строки (более красивый способ) от tavria2 Из окна в полноэкранный режим и обратно   Изменяем иконку приложения от 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 Обсуждение оформления шапки Старая версия шапки Всего записей: 24190 | Зарегистр. 07-04-2002 | Отправлено: 12:11 30-01-2009 | Исправлено: Maz, 12:31 25-09-2017

Lexua Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Цитата: вот тут мб исправить для моего случай какнибудь     "Свойства страницы>OnAudio"   if e_State == "Finish" and ind < ListBox.GetCount("ListBox1") then   ind = ind + 1;   ListBox.SelectItem("ListBox1", ind);   Audio.Load(CHANNEL_USER1, ListBox.GetItemData("ListBox1", ind), true, false);   end   --ind - индекс воспроизводимой песни   if e_State == "Finish" and a < result then   a = a +1   Audio.Load(CHANNEL_BACKGROUND, "AutoPlay\\Audio\\"..playlist[a], true, false);   elseif e_State == "Finish" and a >= result then a = 1;   Audio.Load(CHANNEL_BACKGROUND, "AutoPlay\\Audio\\"..playlist[a], true, false);   end   Цитата: Музыка начинает играть когда запускается авторан (т.е. на главной странице) потом когда я перехожу на другую страницу тоже все норм, а когда обратно на главную, то Плейлист начинает заного играть. Помогите плз. Попробуй перенести этот код из OnShow     Цитата: playlist = TextFile.ReadToTable("AutoPlay\\Docs\\playlist.txt");   result = Table.Count(playlist);   a =1;   Audio.Load(CHANNEL_BACKGROUND, "AutoPlay\\Audio\\"..playlist[a], true, false); в Project -> Actions -> On Startup Всего записей: 2844 | Зарегистр. 15-10-2002 | Отправлено: 19:48 16-07-2009 | Исправлено: Lexua, 20:06 16-07-2009

Gans123 Newbie Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Цитата: Попробуй перенести этот код из OnShow     if e_State == "Finish" and a < result then   a = a +1   Audio.Load(CHANNEL_BACKGROUND, "AutoPlay\\Audio\\"..playlist[a], true, false);   elseif e_State == "Finish" and a >= result then   a = 1;   Audio.Load(CHANNEL_BACKGROUND, "AutoPlay\\Audio\\"..playlist[a], true, false);   end    [/q]   Блин все работает, спс биг, как я тебе благодарен. еще раз Спасибо...     Добавлено: мб кто подскажет, можно реализовать вот это:   У меня есть папка с картинками. Я хочу, чтобы был слайд шоу на определенной странице, картинки крутились по 5 сек и если мне понравилась картинка которая проходит в слайд шоу, я жму на нее и она мне на весь экран открывается и я могу ее на рабочий стол поставить.   Добавлено: и еще. Мне нада вставить на страницу видеоролик, и чтоб как бы он в плеере был и обложка была, какойнибдуь скрин из ролика. Ну вот скрин ниже, чтоб вместо черных окон была другая картинка или еще какнить сделать красиво.     Добавлено: мб примерчик видео плеера какогонибдуь Всего записей: 29 | Зарегистр. 26-07-2008 | Отправлено: 06:22 17-07-2009

lorents Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору подскажите пожалуйста как можно изменить название файла autorun.cdd? Всего записей: 3297 | Зарегистр. 30-12-2007 | Отправлено: 21:32 17-07-2009

Lexua Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Подскажите как получить модель и производителя компа в параграф. Я тут подсмотрел в одной програмке, но она на жабе. А я в жабе нуль...   Выглядит так   Цитата: <tr>                                    <td><script>l(system_comp)</script></td>                                    <td><a href="#"><script>document.write(wpi('Manufacturer','Win32_ComputerSystem') + " " + wpi('Model','Win32_ComputerSystem'));</script></a></td>     </tr> Всего записей: 2844 | Зарегистр. 15-10-2002 | Отправлено: 11:41 18-07-2009 | Исправлено: Lexua, 11:43 18-07-2009

Zloy_Gelud Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Lexua Ты VBS-скрипт кажется не полностью привел... По-крайне мере в таком виде он у меня он не работает. Также классWin32_ComputerSystem не содержит вроде как значений Manufacturer и Model. _______________________________ Немного пищи для размышлений.. Код: Script.SetLanguage(Script_VBScript);   --*** Наш vbs-скрипт strScript=[[Set objService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\CIMV2") result="" For Each objOS In objService.ExecQuery("SELECT * FROM Win32_OperatingSystem")     Exit For Next result=result & objOS.Caption & vbCrLf    'короткое описание версии операционной системы' result=result & objOS.SerialNumber    'серийный номер' ]];    --> конец vbs-скрипта   Script.AddCode(strScript, Script_InternalCode); strInfo = Script.GetResultAsString("result");    -- инфа из vbs-скрипта   function String.ToTable(str, delimiter)    -- функция перевода строки в таблицу     local result = {};     for line in string.gfind(str, "[^"..delimiter.."]+") do         table.insert(result, line);     end         return (table.getn(result) > 0) and result or nil end     if (strInfo ~= "") then     tblInfo = String.ToTable(strInfo, "\r\n");     if tblInfo then         Dialog.Message("", "Операционная система: "..tblInfo[1].."\r\nСерийный номер: "..tblInfo[2], MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);     end end Больше информации по классам можешь найти здесь: Script-Coding.Info. Выбери уже для себя подходящий класс и переделай немного скрипт.   Всего записей: 3266 | Зарегистр. 30-05-2007 | Отправлено: 03:14 19-07-2009 | Исправлено: Zloy_Gelud, 04:07 19-07-2009

Lexua Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Цитата: Ты VBS-скрипт кажется не полностью привел... По-крайне мере в таком виде он у меня он не работает.   Ну не знаю, но программа написана на Java. Мини версию можно скачать здесь http://drp.su/download/DRPSu9Pro_mini.zip   Однако за инфу спасибо, попробую переварить Всего записей: 2844 | Зарегистр. 15-10-2002 | Отправлено: 13:09 19-07-2009 | Исправлено: Lexua, 13:19 19-07-2009

tavria2 Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Lexua Исправлено Код: Script.SetLanguage(Script_VBScript);     --*** Наш vbs-скрипт strScript=[[Set objService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\CIMV2")   result=""     For Each objOS In objService.ExecQuery("SELECT * FROM Win32_ComputerSystem")     Exit For   Next     result=result & objOS.Manufacturer & vbCrLf result=result & objOS.Model  ]];    --> конец vbs-скрипта     Script.AddCode(strScript, Script_InternalCode);   strInfo = Script.GetResultAsString("result");    -- инфа из vbs-скрипта     function String.ToTable(str, delimiter)    -- функция перевода строки в таблицу       local result = {};       for line in string.gfind(str, "[^"..delimiter.."]+") do           table.insert(result, line);       end           return (table.getn(result) > 0) and result or nil   end       if (strInfo ~= "") then       tblInfo = String.ToTable(strInfo, "\r\n");       if tblInfo then           Dialog.Message("", "Manufacturer: "..tblInfo[1].."\r\nModel: "..tblInfo[2], MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);       end   end Всего записей: 1127 | Зарегистр. 19-01-2005 | Отправлено: 13:25 19-07-2009 | Исправлено: tavria2, 19:02 19-07-2009

Mars803 Junior Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Меня вопрос Neronk'a тоже интересует Всего записей: 52 | Зарегистр. 02-05-2009 | Отправлено: 14:19 19-07-2009

tavria2 Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Neronkkk Цитата: вот как мне сделать такое же окно в AutoPlay тока чтоб  и на XP норм было. Чтоб по бокам прозрачность была а в центре нет Стандартными средствами AMS - этого не сделать. Возможно только с использованием соответствующего плагина, которого я пока не встречал. Всего записей: 1127 | Зарегистр. 19-01-2005 | Отправлено: 14:40 19-07-2009 | Исправлено: tavria2, 14:40 19-07-2009

Lexua Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору tavria2 Я со скриптами VBS раньше не работал.   1. При попытке вставки кода в пустой проект ошибка Цитата: Line 12: unexpected symbol near `&' 2. Что я должен добавить в проект, чтобы это заработало. Код, который привел Zloy_Gelud вставляется без ошибок, но при запуске Цитата: On Show, Line 1: attempt to index global `Script' (a nil value) Я так полагаю, что нет какого-то плагина, отвечающего за Script Всего записей: 2844 | Зарегистр. 15-10-2002 | Отправлено: 18:22 19-07-2009

tavria2 Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Lexua Цитата:  При попытке вставки кода в пустой проект ошибка   Убери закоментированные строчки - они нарушают синтаксис VBScript, я оставил их для сравнения... Скрипт исправил - удалил эти строчки, чтобы никто больше не наступал на эти грабли. Цитата: Я так полагаю, что нет какого-то плагина, отвечающего за Script Да, нужен плагин AMSWScript - он есть в KindlyPluginPowerPack v3.2 Всего записей: 1127 | Зарегистр. 19-01-2005 | Отправлено: 18:55 19-07-2009 | Исправлено: tavria2, 19:05 19-07-2009

Zloy_Gelud Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Цитата: objOS.Manufacturer Цитата: objOS.Model Когда я у себя такое тестировал - скрипт выдал: Цитата: System Manufacturer System Name Мне показалось это бредом, вот и не стал на форум постить. А оказалось правдой.. Всего записей: 3266 | Зарегистр. 30-05-2007 | Отправлено: 20:54 19-07-2009

Lexua Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору tavria2, спасибо, все как всегда работает.   Еще один вопросик, есть какие-то наработки по работе с подсказками(tooltip)? Помнится GOOSE когда-то приводил такой код по многострочным подсказкам, но он был очень громоздок и тормозил ужасно. Всего записей: 2844 | Зарегистр. 15-10-2002 | Отправлено: 22:30 19-07-2009

Vjik86 Newbie Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Существует ли возможность отправки e-mail прямо из окна проекта, заполнив необходимую форму?   Нашел только "File.OpenEmail", но он вызывает стандартную почтовую программу.   И существует ли подробное описание action'ов и методики их использования (желательно на русском) для "чайников", а то банального плеера из listbox'a сделать не могу Всего записей: 4 | Зарегистр. 19-07-2009 | Отправлено: 22:42 19-07-2009

Pazan Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору столкнулся с такой проблемой: Код: lan = System.GetLANInfo(); Paragraph.SetText("Адрес в локальной сети: "..lan.IP.."\nФизический адрес: "..lan.NIC);     Когда компьютер физически не подключён к сети ("Сетевой кабель не подключён"), то результат этого кода неверен, т.е.:   Адрес в локальной сети: 127.0.0.1 Физический адрес: None можно как-то пофиксить это? ---------- Почему глупый, потому что бедный... Почему бедный, потому что глупый... Всего записей: 924 | Зарегистр. 17-11-2002 | Отправлено: 22:42 19-07-2009

Yakim777 Junior Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Vjik86 Может тебе дать 6 версию автоплэя? Там всё на русском (кроме хелпа) а того, что ты хочеш в природе не существует. На счёт отпраки почты, тебе нужен бесплатный хостинг с поддержкой пхп, напр. 0fees.net и php скрипт отправки почты Всего записей: 88 | Зарегистр. 07-01-2009 | Отправлено: 23:26 19-07-2009

Zloy_Gelud Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Vjik86 Цитата: Существует ли возможность отправки e-mail прямо из окна проекта, заполнив необходимую форму?   Нашел только "File.OpenEmail", но он вызывает стандартную почтовую программу. Пример от плагина SMTP тебе в помощь. Всего записей: 3266 | Зарегистр. 30-05-2007 | Отправлено: 00:33 20-07-2009

Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99

Компьютерный форум Ru.Board » Компьютеры » Программы » Indigo Rose AutoPlay Media Studio (часть 3)

Widok (17-05-2010 12:17): Лимит страниц. Продолжаем здесь.

Переход по форумам  Закладки   » Компьютеры Цифровое изображение Программы Microsoft Windows UNIX Другие OS Hardware В помощь сисадмину Прикладное программирование Игры Форумные игры   » Интернет Web-программирование В помощь вебмастеру Графика Хостинг Зацените-ка!   » Тематические Ikonboard v.2 Ikonboard v.3 Invision Board Другие форумы PHP-Nuke и другие порталы Мобила   » Общие Спорт Флейм Темы по региональным встречам Музыка и Кино Юмор Литература и Живопись   » Ru.Board Новости Помощь по форуму   » Андеграунд eBookz Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование