» Indigo Rose AutoPlay Media Studio

nikitorol

Цитата:

Пожалуйста, подскажи как это сделать...

Пожалуй Вам проще использовать для этого стандартную утилиту netsh, нежели заморачиваться с реестром. Меньше будет ошибок. Хотя полностью этого всё равно не избежать.
Изучите статейку - http://kaktusenok.blogspot.com/2012/09/blog-post.html

Цитата:

Ещё вопрос возможно ли на фтп запустить exe файл?
И как.

Нет, нельзя.

Пожалуйста помогите... Мне необходимо сделать тест с 6 вариантами ответов. Как правильно править скрипты в стандартном шаблоне скриптов quiz??? чтобы можно было выбирать не 4, а 5 или 6 вариантов ответов??? объясните ......

[more] Необходима помощь в виде дельного совета.
Проблема: есть файл EXE (презентация) 170 Mb,
распаковка в оперативную память, но крайне долго.
Делаю мелкий файлик в программе Autoplay Media Studio
для так сказать инициализации начала процесса загрузки.
Здесь полный тупик. Как использовать прогресс с отображением
загрузки?!! Даже совестно не пойму уже несколько ночей.
Посоветуйте место где подсмотреть примерчик, или проще последовательность
нажатия кнопок в программе.
С огромным почтением.

Добавлено:
[more] Имеется плагин Shape.apo отображающий процесс загрузки из сети звукового файла. Листинг выложен ниже.
Вопрос: как его подредактировать, что бы он показывал все те же процессы, но при открытии на локальном компе с CD привода
исполняемый EXE файл (который в систему не устанавливается, а работает с CD диска с оперативной памятью компа). Название же исполняемого файла PROB.exe (красивый презентационный файл).

За помощь буду очень признателен.
С уважением, Максим.

Object Plugins Shape\Shape.apo
Листинг:



-- Callback function for HTTP.Download
function DownloadCallback (nDownloaded, nTotal, TransferRate, SecondLeft, SecondsLeftFormat, Message)
-- Convert total and downloaded bytes into formatted strings
sDownloaded = String.GetFormattedSize(nDownloaded, FMTSIZE_AUTOMATIC, true);
sTotal = String.GetFormattedSize(nTotal, FMTSIZE_AUTOMATIC, true);

-- Output time left, formatted.
Label.SetText("Label_Monitor1","Downloading << "..sFileName.." >> ");
Label.SetText("Label_Monitor2","Time Left: " .. SecondsLeftFormat);

-- Output formatted sizes to user through statusdlg status text
Label.SetText("Label_Monitor3","Downloaded: " .. sDownloaded .. " / " .. sTotal);
    
    nPercent = (nDownloaded / nTotal) * 100;
-- Set meter position (fraction downloaded * max meter range)
Progress.SetCurrentPos("Progress1", nPercent);
Label.SetText("Label_Monitor4", ""..Math.Round(nPercent,2).."%");


end



nRange =0;

Progress.SetRange("Progress1", 0, 100);
Progress.SetCurrentPos("Progress1", 10);

-- Download a file from the internet to the user's computer
-- Uses DownloadCallback() as the callback function
sFileName = "gamarock.ogg";
HTTP.Download("http://www.aaaaaaa.info/ams/"..sFileName, _TempFolder.."\\"..sFileName, MODE_BINARY, 20, 80, nil, nil, DownloadCallback);




[/more] [/more]

Добрый день господа знатоки. Подскажите пожалуйста, использую ScriptOMatic Tool v.1.1. Нужно получить температуру процессора. Выбираю WMI Class Win32_TemperatureProbe. Но в итоге ничего не происходит (((.



Код: -- Generated by ScriptOMatic Tool for AutoPlay Media Studio
function Escape(v)
if (v == nil) then return ""; end
if (type(v) == "table") then return Table.Concat(v, ", "); end
if (type(v) == "boolean") then
if (v == true) then
return "Yes";
else
return "No";
end
end
return v;
end

function WMIDateStringToDate(dtmDate)
if dtmDate then
dtmDate = tostring(dtmDate);
return (String.Mid(dtmDate, 7, 2) .. "/" ..
String.Mid(dtmDate, 5, 2) .. "/" ..
String.Left(dtmDate, 4) .. " " ..
String.Mid(dtmDate, 9, 2) .. ":" ..
String.Mid(dtmDate, 11, 2) .. ":" ..
String.Mid(dtmDate,13, 2));
else
return "";
end
end

local strOutputTitle = "";
local strOutput = "";
strOutputTitle = strOutputTitle .. "Computer: localhost\r\n";
strOutputTitle = strOutputTitle .. "==========================================\r\n\r\n";
local objWMIService = luacom.GetObject("winmgmts:\\\\.\\root\\CIMV2");
local objColItems = objWMIService:ExecQuery("SELECT * FROM Win32_TemperatureProbe", "WQL", 48);

if (objColItems) then
local oEnum = luacom.GetEnumerator(objColItems);
local objItem = oEnum:Next();
while (objItem) do
strOutput = strOutput .. "Accuracy: " .. Escape(objItem:Accuracy()) .. "\r\n";
strOutput = strOutput .. "Availability: " .. Escape(objItem:Availability()) .. "\r\n";
strOutput = strOutput .. "Caption: " .. Escape(objItem:Caption()) .. "\r\n";
strOutput = strOutput .. "ConfigManagerErrorCode: " .. Escape(objItem:ConfigManagerErrorCode()) .. "\r\n";
strOutput = strOutput .. "ConfigManagerUserConfig: " .. Escape(objItem:ConfigManagerUserConfig()) .. "\r\n";
strOutput = strOutput .. "CreationClassName: " .. Escape(objItem:CreationClassName()) .. "\r\n";
strOutput = strOutput .. "CurrentReading: " .. Escape(objItem:CurrentReading()) .. "\r\n";
strOutput = strOutput .. "Description: " .. Escape(objItem:Description()) .. "\r\n";
strOutput = strOutput .. "DeviceID: " .. Escape(objItem:DeviceID()) .. "\r\n";
strOutput = strOutput .. "ErrorCleared: " .. Escape(objItem:ErrorCleared()) .. "\r\n";
strOutput = strOutput .. "ErrorDescription: " .. Escape(objItem:ErrorDescription()) .. "\r\n";
strOutput = strOutput .. "InstallDate: " .. WMIDateStringToDate(objItem:InstallDate()) .. "\r\n";
strOutput = strOutput .. "IsLinear: " .. Escape(objItem:IsLinear()) .. "\r\n";
strOutput = strOutput .. "LastErrorCode: " .. Escape(objItem:LastErrorCode()) .. "\r\n";
strOutput = strOutput .. "LowerThresholdCritical: " .. Escape(objItem:LowerThresholdCritical()) .. "\r\n";
strOutput = strOutput .. "LowerThresholdFatal: " .. Escape(objItem:LowerThresholdFatal()) .. "\r\n";
strOutput = strOutput .. "LowerThresholdNonCritical: " .. Escape(objItem:LowerThresholdNonCritical()) .. "\r\n";
strOutput = strOutput .. "MaxReadable: " .. Escape(objItem:MaxReadable()) .. "\r\n";
strOutput = strOutput .. "MinReadable: " .. Escape(objItem:MinReadable()) .. "\r\n";
strOutput = strOutput .. "Name: " .. Escape(objItem:Name()) .. "\r\n";
strOutput = strOutput .. "NominalReading: " .. Escape(objItem:NominalReading()) .. "\r\n";
strOutput = strOutput .. "NormalMax: " .. Escape(objItem:NormalMax()) .. "\r\n";
strOutput = strOutput .. "NormalMin: " .. Escape(objItem:NormalMin()) .. "\r\n";
strOutput = strOutput .. "PNPDeviceID: " .. Escape(objItem:PNPDeviceID()) .. "\r\n";
strOutput = strOutput .. "PowerManagementCapabilities: " .. Escape(objItem.PowerManagementCapabilities(0)) .. "\r\n";
strOutput = strOutput .. "PowerManagementSupported: " .. Escape(objItem:PowerManagementSupported()) .. "\r\n";
strOutput = strOutput .. "Resolution: " .. Escape(objItem:Resolution()) .. "\r\n";
strOutput = strOutput .. "Status: " .. Escape(objItem:Status()) .. "\r\n";
strOutput = strOutput .. "StatusInfo: " .. Escape(objItem:StatusInfo()) .. "\r\n";
strOutput = strOutput .. "SystemCreationClassName: " .. Escape(objItem:SystemCreationClassName()) .. "\r\n";
strOutput = strOutput .. "SystemName: " .. Escape(objItem:SystemName()) .. "\r\n";
strOutput = strOutput .. "Tolerance: " .. Escape(objItem:Tolerance()) .. "\r\n";
strOutput = strOutput .. "UpperThresholdCritical: " .. Escape(objItem:UpperThresholdCritical()) .. "\r\n";
strOutput = strOutput .. "UpperThresholdFatal: " .. Escape(objItem:UpperThresholdFatal()) .. "\r\n";
strOutput = strOutput .. "UpperThresholdNonCritical: " .. Escape(objItem:UpperThresholdNonCritical()) .. "\r\n";
if Dialog.Message("WMI Output", strOutputTitle .. strOutput, 1) == 2 then break end
Output = "";
objItem = oEnum:Next();
end
else
Dialog.Message("WMI Output", "No WMI Objects Found for class: Win32_TemperatureProbe");
end

dallas page

Цитата:

Но в итоге ничего не происходит (((.

Потому, что objItem равен nil. Т.е. похоже, что союз материнки и OS не могут выводить инфу о температурах через этот WMI-класс.

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

Цитата:

Потому, что objItem равен nil. Т.е. похоже, что союз материнки и OS не могут выводить инфу о температурах через этот WMI-класс.

Пробовал на компьютере (материнка Asrock) и на ноутбуке Sony. Везде Windows 8

dallas page
Почитай, что пишут по этому классу. Работает очень редко.

25Gnom25

Код: Shell.Execute("C:\\Windows", "open", "", "", SW_SHOWNORMAL, false);

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

Код: Вопрос, помогите пожалуйста с проблемой в .ini
Содержимое .ini
[SECT] -- Секция
Structure=10 -- Переменная
Как узнать значение Structure и выдать это значение в label или в Paragraph1
Делаю так.
TTS = INIFile.GetValue("AutoPlay\\Docs\\Login.ini", "[SECT]", "Structure");
Paragraph.SetText("Paragraph1", TTS);
И так делал.
TTS = INIFile.GetValue("AutoPlay\\Docs\\Login.ini", "[SECT]", "Structure=");
Paragraph.SetText("Paragraph1", TTS);
Не выводит Value в Paragraph

Добрый день.
Злой Желудь, вы уже не раз меня выручали, может и сейчас поможете?
я не знаю как правильно описать что мне нужно...
есть поле со списком и есть кнопка...в поле списка 15-20 наименований видеофайлов. Нужно что бы при выборе одного из наименований в поле со списком кнопка выводила на просмотр нужный файл.
Можно конечно на каждое наименование поставить свою кнопку и сделать ее невидимой через Label.SetVisible. Но если перечень большой то такой способ, утомителен, мягко говоря..

Подобный вопрос задавал ХИТМЕН http://forum.ru-board.com/topic.cgi?forum=5&topic=39341&start=100, но я не нашел ответ на его вопрос

25Gnom25
Во-первых, напиши как ты заполняешь ListBox, а во-вторых, просмотр необходимо выполнять средствами плеера, установленного в системе, или с помошью объекта Video?

Вот скрипт на выпадающий список -

if e_Selection == 2 then
Label.SetVisible("a1", true);
Label.SetVisible("s1", true);
Image.SetVisible("260", true);
Image.SetVisible("1020", false);

elseif e_Selection == 3 then
Label.SetVisible("a1", false);
Label.SetVisible("s1", false);
Image.SetVisible("260", false);
Image.SetVisible("1020", true);
Label.SetVisible("a2", true);
Label.SetVisible("s2", true);
end

Когда первое наименование - появляется кнопка А1 (она проигрывает файл системным плеером) и кнопка S1 (она копирует видеофайл в указанную папку)

25Gnom25 -- я просил тебя написать как ты его заполняешь, а не какой скрипт ты на него повесил.

25Gnom25 -- т.е. ты заполняешь Item Text ручками? Ну значит тебе еще необходимо заполнить Item Data[1] именами соотвествующих файлов (с расширением) и

OnClick кнопки воспроизведения файла:

Код: local sDirMovies = _SourceFolder.."\\Video"; -- папка с видео-файлами
local nInd = ComboBox.GetSelected("ComboBox1");
if (nInd ~= -1) then
local sFileName = ComboBox.GetItemData("ComboBox1", nInd);
File.Open(sDirMovies.."\\"..sFileName, "", SW_SHOWNORMAL);
end

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

25Gnom25 -- динамически. Скрипт может сам заполнить ItemText и ItemData именем файла и местонахождением его соотвественно.

[more] Необходима помощь в виде дельного совета.
Проблема: есть файл EXE (презентация) 170 Mb,
распаковка в оперативную память, но крайне долго.
Делаю ещё мелкий файлик в программе Autoplay Media Studio
для так сказать инициализации начала процесса загрузки.
Здесь полный тупик. Как использовать прогресс с отображением
загрузки?!! Даже совестно не пойму уже несколько ночей. Посоветуйте
место где подсмотреть примерчик.
С огромным почтением.

Добавлено:
Имеется плагин Shape.apo отображающий процесс загрузки из сети звукового файла. Листинг выложен ниже.
Вопрос: как его подредактировать, что бы он показывал все те же процессы, но при открытии на локальном компе с CD привода
исполняемый EXE файл (который в систему не устанавливается, а работает с CD диска с оперативной памятью компа). Название же исполняемого файла PROB.exe (красивый презентационный файл).

За помощь буду очень признателен.

Object Plugins Shape\Shape.apo

Листинг:
------------------------------------------------------------------------------------------------------------------------------------------


-- Callback function for HTTP.Download
function DownloadCallback (nDownloaded, nTotal, TransferRate, SecondLeft, SecondsLeftFormat, Message)
-- Convert total and downloaded bytes into formatted strings
sDownloaded = String.GetFormattedSize(nDownloaded, FMTSIZE_AUTOMATIC, true);
sTotal = String.GetFormattedSize(nTotal, FMTSIZE_AUTOMATIC, true);

-- Output time left, formatted.
Label.SetText("Label_Monitor1","Downloading << "..sFileName.." >> ");
Label.SetText("Label_Monitor2","Time Left: " .. SecondsLeftFormat);

-- Output formatted sizes to user through statusdlg status text
Label.SetText("Label_Monitor3","Downloaded: " .. sDownloaded .. " / " .. sTotal);

nPercent = (nDownloaded / nTotal) * 100;
-- Set meter position (fraction downloaded * max meter range)
Progress.SetCurrentPos("Progress1", nPercent);
Label.SetText("Label_Monitor4", ""..Math.Round(nPercent,2).."%");


end



nRange =0;

Progress.SetRange("Progress1", 0, 100);
Progress.SetCurrentPos("Progress1", 10);

-- Download a file from the internet to the user's computer
-- Uses DownloadCallback() as the callback function
sFileName = "gamarock.ogg";
HTTP.Download("http://www.aaaaaaa.info/ams/"..sFileName, _TempFolder.."\\"..sFileName, MODE_BINARY, 20, 80, nil, nil, DownloadCallback);

-----------------------------------------------------------------------------------------------------------------------------------------------------------------
[/more]

Felix_GHF -- никак.

Zloy_Gelud

спасибо за ответ!
НО что то нужно всёравно сделать!

Причём давно и очень!
Меня устроит любой другой вариант и без плагина.

Жду помощи...

День добрый.
Злой Желудь, я попробовал скрипт который вы мне вчера дали..похоже я все таки что то не так делаю.Не работает. Заполнил КомбоБокс как вы сказали:
http://clip2net.com/s/4QRxAN
http://clip2net.com/s/4QRAgL

25Gnom25

Цитата:

Заполнил КомбоБокс как вы сказали:

Я в посте опечатался. Перечитай плиз и внеси необходимые изменения.

Блин, ни фига не работает
Добавил в Item Data имена файлов с расширенем...и нифига

25Gnom25
А видеофайлы в папке Videos? И папка Videos должна находится рядом с autorun.exe.

Все файлы лежат в Videos. Сама папка в проекте. я не менял пути.
http://clip2net.com/s/4QSKuW

25Gnom25 -- попробуй так:

Код: local sDirMovies = "AutoPlay\\Videos"; -- папка с видео-файлами
local nInd = ComboBox.GetSelected("ComboBox1");
if (nInd ~= -1) then
local sFileName = ComboBox.GetItemData("ComboBox1", nInd);
File.Open(sDirMovies.."\\"..sFileName, "", SW_SHOWNORMAL);
end

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

On Show страницы:

Код: ComboBox.FillFiles = function (sObject, sDir, tExts)
if tExts and #tExts > 0 then
local tFiles, tPaths
for i, sExt in pairs(tExts) do
tFiles = File.Find(sDir, sExt, false, false, nil, nil);
if tFiles then
for k, sFilePath in pairs(tFiles) do
tPaths = String.SplitPath(sFilePath);
ComboBox.AddItem(sObject, tPaths.Filename, tPaths.Filename..tPaths.Extension);
end
end
end
end
ComboBox.SetSelected(sObject, 1);
end

ComboBox.FillFiles("ComboBox1", "AutoPlay\\Videos", {"*.mpg", ".avi"});

Друзья !
Есть задача - нужна помощь.

Проблема: есть файл EXE (презентация) 170 Mb,
распаковка в оперативную память, но крайне долго.
Делаю ещё мелкий файлик
для так сказать инициализации начала процесса загрузки.
Здесь полный тупик. Как использовать прогресс с отображением
загрузки?!! Даже совестно не пойму уже несколько ночей. Посоветуйте
место где подсмотреть примерчик. Или уж совсем было бы отлично - сам текст кода.

Необходимо отображение процента; объёма Мб загружаемых; ну и сам прогресс загрузки.
Грузим файл EXE (под названием PROP.EXE) из директории корневой папки ( CD диска).

Жду помощи ....