» Autoplay Media Studio

dallas page Уже этот вопрос решался на страницах форума. Скрипт писал tavria2. Кстати тоже что-то давно его не видно...


Цитата:

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

Для работы нужен плагин AMSWScript (есть в паке плагинов от Kindly)

Подскажите, пожалуйста, есть ли возможность сделать ограничения на запуск авторана,т.е. запрос пароля через какое-то время или ограничения срока действия? Спасибо!

Lexua Спасибо за помощь, все работает как надо. Только единственная проблема. При закрытии программы, выходит сообщение: Прекращена работа программы "AutoPlay Application". Что может быть не так?

alfonser, можно через реестр или используя файл. С каждым запуском увеличиваешь счетчик и если достиг порога авторан закрывать.

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

Спасибо за ответы на предыдущий вопрос, но дело было лишь в том, чтобы подробно прописать путь к веб-объекту)))
У меня теперь проблема в том, чтобы правильно поставить экшен для кнопки. Нужно чтобы кнопка возвращала в главное меню станица или к скрипту авторана. Дело в том, что на странице есть веб-объект, имеющий несколько ссылок, подстраниц и тому подобное. Пролистав несколько составляющих html мне нужно, нажал кнопку( находящуюся вне веб-объекта), вернуться в исходное отображение веб-объекта. Я так поняла нужно прописать в скрипте путь к исходному изображению объекта. Только не знаю как и что писать. Ну очень нужна ваша помощь

Diabolik
Дык сделай такую кнопку в редакторе кнопок и всё

Как можно разместить несколько ключей реестра ComboBox?

RW4PIR
Тут как бы не все так просто. Подробнее...

Дано:
Даны 4 картинки: A, B, C, D.
A и B одного размера. C и D отличаются по размеру от А и B, но тоже не одинаковы. Картинка A прописана в координатной сетке проекта.

Задача:
При наведении мыши на картинку А, на ее месте должна отображаться картинка B, а по правую и левую сторону от нее картинки С и D. Если курсор мыши убрать, то должна снова отобразиться картинка A, а B, С, В снова исчезнуть.

Ну и хотелось чтобы при нажатии на эту псевдо-кнопку, происходил запуск видеофайла.


Добавлено:
Собственно возникла другая мысль. Так как описаный вариант на самом деле не один, а их около 10 штук, то возникает другой вопрос. А можно ли это реализовать списком, где вместо позиций, картинки в опредленных местах? Т.е. возможно ли реализовать ListBox из картинок, хаотично разбросанных по странице проекта, при этом когда наводишь на 1 из них, появляются 3 другие? А че не дурная задумка!

Народ есть проблема, Стандартные элементы которые можно создать через Page.CreateObject не умеют фокуса на странице, нужно чтобы по щелчку по элементу с него снималось имя элемента и загонялось в переменную, командой гет фокус снимается с винбутона а в обычного бутона не умеет,
может кто что подскажет.
Кароче задумка какая Есть обычный бутон, на него кликаешь получаешь его неём, дальше работаешь с неймом.

Цитата:

Прекращена работа программы "AutoPlay Application". Что может быть не так?

Трудно, что либо сказать, не видя проекта. Куда собствено был вставлен выше приведенный код?

Добавлено:
Diabolik
тогда поставь hotspot и в него помести четыре картинки со статусом disabled и три из них невидимых. Далее в hotspot пишешь код что показывать и что скрывать при наведении и что запускать при клике.

12sucubus2049
А в чем проблема, вместо фокуса используй событие On Click бутона:
sBtnName = Button.GetProperties(this).ObjectName;

Lexua
Эх, так вот с кодом и проблема. Вот пример того, что мне надо сделать.
http://narod.ru/disk/19331547000/menu.swf.html
Можешь подсказать как такое можно грамотно реализовать?

Кто нить знает можно ли импортировать проекты из AutoPlay Menu Builder?

Diabolik Если так как на флеше, то тебе нужно создать 10 (или сколько нужно) кнопок, как советовал RW4PIR. Все, что появляется справа лучше реализовать в виде html и загружать в web-объект при наведении на соответствующую кнопку.

tavria2 спасиб реально не додумался до такого)))

Как сделать что бы через меню программы можно было переключать страници?
Что то я а то не разберусь.

Можно ли защитить проект от редактировани?

Lexua Код был вставлен в параметры страницы OnShow. Скрипт правда я переделал немного:

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

------------------------------------------------------------------------------------------------------------------------------
Label.SetText("Label1", ""..tblInfo[1].." "..tblInfo[2]);
------------------------------------------------------------------------------------------------------------------------------


end
end

Но это особо ничего не меняет ведь...

Можно меняешь пароли ставишь защиту на ЕХЕ

Насколько надежна защита?

Цитата:

Код был вставлен в параметры страницы OnShow.

Попробуй переместить в OnPreload. У меня глюков не было.

Относительно, при желании можно снять любую защиту)

dallas page
Эта ошибка уже обсуждалась на официальном форуме AMS. Плагин устойчиво работал под XP, а под Вистой вызывал крах при закрытии приложения.
Автор обещал пофиксить баги в следующей версии, которая за 2 года так и не появилась.

Как выход из сложившейся ситуации, попробуй в событии On Shutdown (Menu->Project->Actions...) прописать следующее:

Код: Window.Close(Application.GetWndHandle(), CLOSEWND_TERMINATE);

Я понимаю, но защита уровня WinZip или WinRar?

tavria2 Привет Я уж думал, что тебя тоже в армию забрали как Гелуда

Собственно я не знал, что плагин крашит под vista. Я отказался от использования этого скрипта в своем проекте по другим соображениям. Как другой вариант, собственно - это использование сторонней программы (наприм. CPU-Z) которая может выдать результат работы в текстовый файл (или ini или xml) и потом этот файл парсить на предмет нужной информации.

Добавлено:
Есть вопрос. Кто использует последнюю AMS 7.5.1008 - работают ли там функции Web.Back, Web.Forward и т.д. при условии, что сам web-объект и кнопки управления расположены в диалоге а не на странице?

AstraZak ты меняшь пароль на свою абракадабру пароль знает тока ЕХЕ берёшь какойнить WinLicence и пакуешь ЕХЕ
-----------------------------------
Вопрос к tavria2

Смотри так оно работает когда обьект уже создан а я создаю обьекты динамически при старте:

Код: ----------------------------
function starting ()
base = INIFile.GetSectionNames("base.ini");
for j,num in base do
    test = INIFile.GetValue("base.ini", num, "live")
    if test ~= "0" then
    butTS = {}
    butTS.ButtonFile = INIFile.GetValue("base.ini", num, "file")
    butTS.Text = INIFile.GetValue("base.ini", num, "name")
    butTS.X = INIFile.GetValue("base.ini", num, "posx")
    butTS.Y = INIFile.GetValue("base.ini", num, "posy")
    butTS.TooltipText = INIFile.GetValue("base.ini", num, "live")

    Page.CreateObject(OBJECT_BUTTON, num, butTS);
    Page.SetObjectScript(num, "On Click", "clicko ();");
    else
    butTS = {}
    butTS.ButtonFile = INIFile.GetValue("base.ini", num, "file")
    butTS.Text = INIFile.GetValue("base.ini", num, "name")
    butTS.X = INIFile.GetValue("base.ini", num, "posx")
    butTS.Y = INIFile.GetValue("base.ini", num, "posy")
    butTS.TooltipText = "Номер пустой"

    Page.CreateObject(OBJECT_BUTTON, num, butTS);
    Page.SetObjectScript(num, "On Click", "clicko ();");
    end

end
end


function clicko ()
focus = Button.GetProperties(this).ObjectName;
Dialog.Message("Notice", focus, MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
end
---------------------------------------------

Lexua

Цитата:

Я уж думал, что тебя тоже в армию забрали как Гелуда

Мне уже поздно Со временем большой напряг.
Цитата:

Кто использует последнюю AMS 7.5.1008 - работают ли там функции Web.Back, Web.Forward и т.д. при условии, что сам web-объект и кнопки управления расположены в диалоге а не на странице?

У меня в диалоге не работает, да и на странице как-то не сразу начинает работать.

12sucubus2049
Код:
-- [...skip...]

Page.CreateObject(OBJECT_BUTTON, num, butTS);
-- Page.SetObjectScript(num, "On Click", "clicko ();");
Page.SetObjectScript(num, "On Click", clicko);
end

end
end

clicko = [[focus = Button.GetProperties(this).ObjectName;
Dialog.Message("Notice", focus, MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1); ]]

RW4PIR
Или приблизительно так можно получить инфу о проце

Код: Script.SetLanguage(Script_VBScript);

Cen_Proc=[[Set objService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\CIMV2")
For Each objProc In objService.ExecQuery("SELECT * FROM Win32_Processor")
conf=conf&"Процессор: "&Trim(objProc.Name)&vbCrLf&"Текущая Скорость Процессора : "&objProc.CurrentClockSpeed&" MHz"&vbCrLf&vbcrlf&"Описание: "&objProc.Caption&vbCrLf
Next ]]
Script.AddCode(Cen_Proc, Script_InternalCode);
strInfo = Script.GetResultAsString("conf");
function String.ToTable(str, delimiter)
local conf = {};
for line in string.gfind(str, "[^"..delimiter.."]+") do
table.insert(conf, line);
end
return (table.getn(conf) > 0) and conf or nil
end
if (strInfo ~= "") then
tblInfo = String.ToTable(strInfo, "\r\n");
if tblInfo then
Dialog.Message("Информафия", tblInfo[1].."\r"..tblInfo[2].."\r"..tblInfo[3], MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
end
end