» Autoplay Media Studio

tavria2


Цитата:

а если людям ничего не нужно из добавленных функций - зачем им ненужный "прицеп".

Тоже верно.
Но от какой-нить Базы с полезными функами я б не отказался.

Zloy_Gelud

Цитата:

Можешь сохранить все это добро в файл acrobat.lua и подключить так:

а какая кодировка должна быть текстового файла?

Добавлено:
выходит любай

ОТЛИЧНО ВСЕ РАБОТАЕТ, СПАСИБО!

Добавлено:
Случайно нет такого же кода только для Internet Explorer и для Windows Media Player

lorents
Для [more=IE]
Код: --%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
--%%% %%%
--%%% This script tests for the presence of Internet Explorer %%%
--%%% %%%
--%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

--[[
**********************************************************************************
Function: ir_GetIEVersion()
Purpose: Detects Internet Explorer
Arguments: None.
Returns: Version number, 0.0.0.0 if Internet Explorer does not exist
**********************************************************************************
]]


function ir_GetIEVersion()
local bOK = true;
local strVersion = "0.0.0.0";

-- Check to ensure key exists
bOK = Registry.DoesKeyExist(HKEY_LOCAL_MACHINE, "SOFTWARE\\Microsoft\\Internet Explorer");

if (bOK) then
-- Get version of IE (4 and above)
strVersion = Registry.GetValue(HKEY_LOCAL_MACHINE, "SOFTWARE\\Microsoft\\Internet Explorer","Version",true);
if (Application.GetLastError() ~= 0) then
-- Version 3 and lower are stored in a different reg value
strVersion = Registry.GetValue(HKEY_LOCAL_MACHINE, "SOFTWARE\\Microsoft\\Internet Explorer","IVer",true);
if (Application.GetLastError() ~= 0) then
bOK = false;
else
-- assign correct version number based on value in registry
if strVersion == "103" then
strVersion = "3.0";
elseif strVersion == "102" then
strVersion = "2.5";
elseif strVersion == "101" then
strVersion = "2.0";
elseif strVersion == "100" then
strVersion = "1.0";
end
end
end
end
return strVersion;
end

Zloy_Gelud

Цитата:

А вообще можешь заглянуть приблизительно по такому пути C:\Program Files\AutoPlay Media Studio 7.0\Plugins\Detect, где файлы .DET представляют собой архивы с необходимыми тебе .LUA файлами.

а как их открыть, при попытке открыть через блокнот, выдает какие-то символы?

lorents

А читать умеем?

Цитата:

файлы .DET представляют собой архивы с необходимыми тебе .LUA файлами.

Zloy_Gelud
сори, понял

и последний вопрос как сделать чтобы при нажатии на кнопку у меня окно проекта из standard становилось Kiosk-color?

Всем доброго времени суток. Очень благодарен всем Вам за массу полезной информации.

Столкнулся с задачей - нужно было сделать video prewiev на главной странице для небольших видео инструкций.
Для выбора инструкций изначально использовал код для ListBox:

Код:
--для On Double-CLick
_setpath = "AutoPlay\\<путь к файлам>\\"; --переменная пути
_set = ListBox.GetSelected("ListBox1"); --переменная выбора
if (_set) then --если что-то выбрано
if (_set[1] == 1) then --условие для первой строки
Video.Load("Video1", _setpath.."1.mov", true, true); --действие для первой строки и т.д.
elseif (_set[1] == 2)
Video.Load("Video1", _setpath.."2.mov", true, true);
elseif (_set[1] == 3) then
Video.Load("Video1", _setpath.."3.mov", true, true);
end
end

Zloy_Gelud
тут такая проблема, я сейчас поставил версию adobe reader 8.1.2 поставил ограничение до 9.0.0.0 и при запуске мне выдается ошибка от самой винды

код работает нормально только при отсутствии на компьютере adobe reader

Здравствуйте, требуеться совет знающих т.к. сам я в этом пока плохо разбираюсь.
потребовалось сделать кнопку которая-бы предлагала установить или запустить приложение в зависимости от ситуации.
Необходимый пример нашёл тут но в нём нет пути на запуск файла.
путём проб и ошибок смог добиться желаемого результата используя только такой код:

On Preload:

Код:
Test = Registry.GetValue(HKEY_LOCAL_MACHINE, "SOFTWARE\\Test", "Path", true);
if (Test ~= "") then
Button.SetText("Button_1", "Играть");
else
Button.SetText("Button_1", "Установить");
Test = _SourceFolder.."\\Test\\setup.exe";
end

Парни есть такая задумка как запустить диалоговое окно печати в Web (а если через web открывать pdf-файл то и pdf-файл можно вызвать функцию печать)

задумка такая
ставим фокус на Web
потом проект должен нажать на кнопки Ctrl+P
и у нас запускается диалоговые окно печати

и так притупим

устонавливаем фокус
Page.SetFocus("Web1");
а вот дальше проблема я не знаю как сделать чтобы проект сам нажимал на эти две эти кнопки просто так
знаю код клавиш только
e_Modifiers.ctrl and e_Key == 50

говорю честно, всю справку просмотрел но не нашел, может кто скажет где можно посмотреть?

LasDesperado
Фон и прозрачность для ЛистБокса установить не получится.

---

lorents

Цитата:

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

Из-за скрипта врядли такое может быть. Устанавливать Акробат не хочу абы не засирать реестр ненужными записями. Может у кого-нить еще установлен Акробат и потестит код?

Цитата:

я не знаю как сделать чтобы проект сам нажимал на эти две эти кнопки

Счас под рукой AMS нету, но вроде есть такой плагин Send... (точно не помню название), который нажимает кнопочки.

---

K0JI9IH
Это вроде т так самый оптимальный вариант. Только зачем в On Click две таких строчки:

Цитата:

File.Run(Test, "", "", SW_SHOWNORMAL, false);
File.Run(Test.."\\Start.exe", "", Test, SW_SHOWNORMAL, false);

Можно использовать только:

Цитата:

File.Run(Test, "", "", SW_SHOWNORMAL, false);

где Test - полный путь к файлу.

Zloy_Gelud

Цитата:

Из-за скрипта врядли такое может быть. Устанавливать Акробат не хочу абы не засирать реестр ненужными записями. Может у кого-нить еще установлен Акробат и потестит код?

у меня не акробат а adobe reader, может в этом проблема то что код ориентирован на акробат


Цитата:

но вроде есть такой плагин Send... (точно не помню название), который нажимает кнопочки.

сейчас поищу, как всегда на высате спасибо

Добавлено:
случайно не этот плагин SendKeys ?
вроде бы он

Добавлено:
не пойму почему не работает вроде сделал все по примеру?

Код: Page.SetFocus("Web1")
handle = Application.GetWndHandle();
SendKeys.AppActivateByHandle(handle)
SendKeys.Send("^P",50 )

lorents

Цитата:

у меня не акробат а adobe reader

Вообсче то полное название Adobe Acrobat Reader.

Цитата:

не пойму почему не работает вроде сделал все по примеру?

Пока не дома..приду попробую че-нить замутить..

Zloy_Gelud

Цитата:

Вообсче то полное название Adobe Acrobat Reader.

туплю по-чёрному, просто привык называть его Adobe Reader а полное название и забыл

Цитата:

Пока не дома..приду попробую че-нить замутить..

жду с нетерпением

lorents
Чет у меня тоже не получается ничего
Возмоно из-за того, что не удается установить фокус на "Web1". Page.SetFocus("Web1"); не робит вроде как..

Zloy_Gelud
жаль
а идея такая хорошая была

lorents -- может можно распечатать .PDF, посылая запрос Акробату через командную строку... Он же наврено может работать через командную строчку..

Добавлено:
lorents
Можно предположить, что если Акробат в системе установлен, то он и будет являться дефолтной программой для распечатки .PDF.
Попробуй Shell.Execute("AutoPlay\\Docs\\PDF.pdf", "print", "", "", SW_SHOWNORMAL); может выйдет че-нить..

А у меня сработало, правда под мою задачу. Но может поможет:


Код: File.Open("C:\\name.exe", "C:", SW_MINIMIZE);
while SendKeys.AppActivateByTitle("NAME 2008") == false do
end
SendKeys.Send("{ENTER}.{DELAY 500}", 5, true);

Zloy_Gelud

Цитата:

Попробуй Shell.Execute("AutoPlay\\Docs\\PDF.pdf", "print", "", "", SW_SHOWNORMAL); может выйдет че-нить..

печатает но без открытия диалогового окна, при этом открывает Adobe Reader но не закрываете его
эффект такой же если использовать,

Код: File.Print("AutoPlay\\Docs\\PDF.pdf");

Zloy_Gelud
Используя в On Click одну такую строчку:

Код: File.Run(Test.."\\Start.exe, "", "", SW_SHOWNORMAL, false);

lorents

Цитата:

не пойму почему не работает вроде сделал все по примеру?

Вместо плагина SendKeys:

Global Functions
Код: -- Нажимает указанную клавишу
function KeyDn(Key)
DLL.CallFunction("user32.dll", "keybd_event", Key..",0,0,0", DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL);
end

-- Отпускает указанную клавишу
function KeyUp(Key)
DLL.CallFunction("user32.dll", "keybd_event", Key..",0,2,0", DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL);
end

K0JI9IH

On Preload:

Код: strPath = Registry.GetValue(HKEY_LOCAL_MACHINE, "SOFTWARE\\Test", "Path", true);
if (strPath ~= "") then                             -- если ключ в реестре присутствует
    strPath = strPath.."\\Start.exe";                -- путь к установленной программе
    Button.SetText("Button_1", "Играть");
else                                                 -- если ключ отсутствует
strPath = _SourceFolder.."\\Test\\setup.exe";    -- путь к установщику
Button.SetText("Button_1", "Установить");
end

Zloy_Gelud
Спасибо!

tavria2
отлично, спасибо, тогда можно и кнопки сохранить сделать и тому подобное
предлагаю данный код в шапку, думаю он будет полезен не только мне, так как здесь идёт управление и Adobe Reader и Internet Explorer

Добавлено:
и еще не знаешь причины выдачи ошибки на проверке версии Adobe Reader?

lorents

Цитата:

и еще не знаешь причины выдачи ошибки на проверке версии Adobe Reader?

У меня не выдает никаких ошибок.
Стоит - Adobe Acrobat Reader 7.08. Менял параметр ограничения минимальной версии - все ОК.

интересно почему у меня выдает ошибку

Добавлено:
сейчас проверил на других компах все работает
думаю причина в не корректном удалении именно адоба акробота

Добавлено:
tavria2
я тут заметил такой баг с печатью через web
проблема вот в чем, код кнопки работает только один раз, после нажатия на отмену в появившемся диалоговом окне, код кнопки не работает
одним словом как я понял чтобы код заработал снова надо мышкой кликнуть на объект web
и так каждый раз
проблема как я понимаю в следующей строке

Цитата:

Page.SetFocus("Web1");

проект работает и без этого кода
есть идеи по этому вопросу
и ещё код не работает если объект web не видим

lorents

Цитата:

проблема вот в чем, код кнопки работает только один раз, после нажатия на отмену в появившемся диалоговом окне, код кнопки не работает
одним словом как я понял чтобы код заработал снова надо мышкой кликнуть на объект web и так каждый раз

У меня работает и после нажатия отмены, скорее всего у тебя уходит фокус с Web-объекта.

Цитата:

проект работает и без этого кода

Это потому, что у тебя Web-объект стоит первым в Z-порядке объектов и получает фокус автоматически, если Z-порядок будет изменен, то код работать не будет.

Цитата:

и ещё код не работает если объект web не видим

естественно, невидимому объекту нельзя передать фокус, можешь попробовать применить черную маску к Web-объекту, чтобы сделать его невидимым.

Добавлено:
вместо маски, можешь просто сделать размер Web-объекта - 1x1 px.

tavria2

Цитата:

фокус с Web-объекта.

Цитата:

Это потому, что у тебя Web-объект стоит первым в Z-порядке объектов и получает фокус автоматически, если Z-порядок будет изменен, то код работать не будет.

а как мне сделать чтобы все работало как надо?

Цитата:

естественно, невидимому объекту нельзя передать фокус, можешь попробовать применить черную маску к Web-объекту, чтобы сделать его невидимым.

я просто предупреждал что код не работает если web не видим, причина мне понятно
если есть пример скинь пожалуйста я сам разберусь.

lorents
Пример я тебе дал рабочий, а почему у тебя фокус не возвращается Web-объекту я не знаю. По поводу скрытия Web-объекта я тебе сказал выше, сделай его размер в 1 пиксель и ты его не увидишь.

Цитата:

По поводу скрытия Web-объекта я тебе сказал выше, сделай его размер в 1 пиксель и ты его не увидишь.

это да я так и сделал

Цитата:

Пример я тебе дал рабочий, а почему у тебя фокус не возвращается Web-объекту я не знаю.

надо разобраться мне с этим
спасибо за все

Добавлено:
tavria2

я тут с версией разобрался это по какой-то причине у меня только
но вот печатью ну ни как не выходит (на двух компах проверил), все весталку, и версию ставил 7.0.8 думал может с 9 версией что не так
у тебя какая версия AMS? (может в этом дело)