» Autoplay Media Studio

Stalkersof
S_a_c_s

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

S_a_c_s, там есть возможность добавления своих аватаров. Код луа подсвечивать... Не знаю я пхп настолько. А у сайта проблем не будет если заливать туда файлы. Напиши свою асю или скайп в ЛС здесь, или на сайте

Цитата:

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

Нет же! При выделении файла в tree (древе, каталоге), его содержимое отображалось в объекте RichText1 (т.е., если выделить в каталоге текстовой файл, его содержимое появится в RichText1) Это мне и нужно!
И ещё как при том же выделении текстового файла, его имя отображалось в imput без расширения (*txt)
***Если опять непонятно могу отправить картинку.
А ты мне прислал сценарий, чтобы имя файла по определённому пути отображалось, а мне надо чтобы отображалось при ВЫДЕЛЕНИИ в каталоге, а каталог мой работает так: Он берёт все текстовые файлы из определённой папки, их и надо выделять

Добавлено:
Всё, уже не надо!
получилось!

Добавлено:
Подскажите, это делает вынос имени файла:
Input.SetText("имя обьекта", String.SplitPath("сюда вставить путь файла").Filename);

А как сделать, чтобы выносилось имя папки в которой находится этот файл?

Vadim021X

On Select объекта Tree:

Код: local sSelNode = Tree.GetSelectedNode(this);
if sSelNode ~= '' then
local sPath = Tree.GetNode(this, e_NodeIndex).Data;
Input.SetText("Input1", String.SplitPath(sPath).Filename);
RichText.LoadFromFile("RichText1", sPath);
end

Цитата:

On Select объекта Tree:

Код:
local sSelNode = Tree.GetSelectedNode(this);
if sSelNode ~= '' then
local sPath = Tree.GetNode(this, e_NodeIndex).Data;
Input.SetText("Input1", String.SplitPath(sPath).Filename);
RichText.LoadFromFile("RichText1", sPath);
end

не работает...

Vadim021X, см. TextFile.ReadFromString

ВСЁ РАБОТАЕТ!
СПАСИБО!!

ubian

Цитата:

см. TextFile.ReadFromString

Откуда взял?

И ещё:
как после просмотра файла в каталоге он переносился в другую папку?

Vadim021X
См.: File.Move, File.Copy.

Цитата:

ubian

Цитата:
см. TextFile.ReadFromString

Откуда взял?

Помоему ты мне где-то раньше писал)

ubian

Цитата:

Помоему ты мне где-то раньше писал)

Клевета. Докажи.

NEW!!!
Онлайн версия скрипта раскраски AMS кода от камрада UModeL. Юзаем!

AMS To BB

PS. Добавил в шапку.

Всем доброго дня. Подскажите пожалуйста, мне необходимо на страницу вместо фона поставить видео ролик (или flash) но так чтобы все кнопки были видны, т.е. перед ним. Заранее спасибо

Добавлено:
И пожалуйста еще подскажите как сделать так, чтобы в LABEL записалось название видеокарты. Заранее спасибо

dallas page

Цитата:

Подскажите пожалуйста, мне необходимо на страницу вместо фона поставить видео ролик (или flash) но так чтобы все кнопки были видны, т.е. перед ним.

Имхо, не получится.

Цитата:

как сделать так, чтобы в LABEL записалось название видеокарты.

[more]
Код: function Escape(v)
if v == nil then return ""; end
if (type(v) == "table") then return Table.Concat(v, ";", 1, TABLE_ALL);
elseif (type(v) == "boolean") then
if v == true then return "Yes";
elseif (v == false) then return "No";
end
end
return v;
end

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

-- Generated by ScriptOMatic Tool for AutoPlay Media Studio

require "luacom";
strComputer = "localhost";

OutputTitle = "";
Output = "";
OutputTitle = OutputTitle .. "Computer: " .. strComputer .. "\r\n";
OutputTitle = OutputTitle .. "==========================================\r\n\r\n";
objWMIService = luacom.GetObject("winmgmts:\\\\" .. strComputer .. "\\root\\CIMV2");
colItems = objWMIService:ExecQuery("SELECT * FROM Win32_VideoController", "WQL", 48);

if (colItems) then
local oEnum = luacom.GetEnumerator(colItems);
local objItem = oEnum:Next();
while objItem do
--[[strAcceleratorCapabilities = Escape(objItem.AcceleratorCapabilities(0))
Output = Output .. "AcceleratorCapabilities: " .. strAcceleratorCapabilities .. "\r\n";
Output = Output .. "AdapterCompatibility: " .. Escape(objItem:AdapterCompatibility()) .. "\r\n";
Output = Output .. "AdapterDACType: " .. Escape(objItem:AdapterDACType()) .. "\r\n";
Output = Output .. "AdapterRAM: " .. Escape(objItem:AdapterRAM()) .. "\r\n";
Output = Output .. "Availability: " .. Escape(objItem:Availability()) .. "\r\n";
strCapabilityDescriptions = Escape(objItem.CapabilityDescriptions(0))
Output = Output .. "CapabilityDescriptions: " .. strCapabilityDescriptions .. "\r\n";
Output = Output .. "Caption: " .. Escape(objItem:Caption()) .. "\r\n";]]
Output = Output .. Escape(objItem:Caption()) .. "\r\n";
--[[ Output = Output .. "ColorTableEntries: " .. Escape(objItem:ColorTableEntries()) .. "\r\n";
Output = Output .. "ConfigManagerErrorCode: " .. Escape(objItem:ConfigManagerErrorCode()) .. "\r\n";
Output = Output .. "ConfigManagerUserConfig: " .. Escape(objItem:ConfigManagerUserConfig()) .. "\r\n";
Output = Output .. "CreationClassName: " .. Escape(objItem:CreationClassName()) .. "\r\n";
Output = Output .. "CurrentBitsPerPixel: " .. Escape(objItem:CurrentBitsPerPixel()) .. "\r\n";
Output = Output .. "CurrentHorizontalResolution: " .. Escape(objItem:CurrentHorizontalResolution()) .. "\r\n";
Output = Output .. "CurrentNumberOfColors: " .. Escape(objItem:CurrentNumberOfColors()) .. "\r\n";
Output = Output .. "CurrentNumberOfColumns: " .. Escape(objItem:CurrentNumberOfColumns()) .. "\r\n";
Output = Output .. "CurrentNumberOfRows: " .. Escape(objItem:CurrentNumberOfRows()) .. "\r\n";
Output = Output .. "CurrentRefreshRate: " .. Escape(objItem:CurrentRefreshRate()) .. "\r\n";
Output = Output .. "CurrentScanMode: " .. Escape(objItem:CurrentScanMode()) .. "\r\n";
Output = Output .. "CurrentVerticalResolution: " .. Escape(objItem:CurrentVerticalResolution()) .. "\r\n";
Output = Output .. "Description: " .. Escape(objItem:Description()) .. "\r\n";
Output = Output .. "DeviceID: " .. Escape(objItem:DeviceID()) .. "\r\n";
Output = Output .. "DeviceSpecificPens: " .. Escape(objItem:DeviceSpecificPens()) .. "\r\n";
Output = Output .. "DitherType: " .. Escape(objItem:DitherType()) .. "\r\n";
Output = Output .. "DriverDate: " .. WMIDateStringToDate(objItem:DriverDate()) .. "\r\n";
Output = Output .. "DriverVersion: " .. Escape(objItem:DriverVersion()) .. "\r\n";
Output = Output .. "ErrorCleared: " .. Escape(objItem:ErrorCleared()) .. "\r\n";
Output = Output .. "ErrorDescription: " .. Escape(objItem:ErrorDescription()) .. "\r\n";
Output = Output .. "ICMIntent: " .. Escape(objItem:ICMIntent()) .. "\r\n";
Output = Output .. "ICMMethod: " .. Escape(objItem:ICMMethod()) .. "\r\n";
Output = Output .. "InfFilename: " .. Escape(objItem:InfFilename()) .. "\r\n";
Output = Output .. "InfSection: " .. Escape(objItem:InfSection()) .. "\r\n";
Output = Output .. "InstallDate: " .. WMIDateStringToDate(objItem:InstallDate()) .. "\r\n";
Output = Output .. "InstalledDisplayDrivers: " .. Escape(objItem:InstalledDisplayDrivers()) .. "\r\n";
Output = Output .. "LastErrorCode: " .. Escape(objItem:LastErrorCode()) .. "\r\n";
Output = Output .. "MaxMemorySupported: " .. Escape(objItem:MaxMemorySupported()) .. "\r\n";
Output = Output .. "MaxNumberControlled: " .. Escape(objItem:MaxNumberControlled()) .. "\r\n";
Output = Output .. "MaxRefreshRate: " .. Escape(objItem:MaxRefreshRate()) .. "\r\n";
Output = Output .. "MinRefreshRate: " .. Escape(objItem:MinRefreshRate()) .. "\r\n";
Output = Output .. "Monochrome: " .. Escape(objItem:Monochrome()) .. "\r\n";
Output = Output .. "Name: " .. Escape(objItem:Name()) .. "\r\n";
Output = Output .. "NumberOfColorPlanes: " .. Escape(objItem:NumberOfColorPlanes()) .. "\r\n";
Output = Output .. "NumberOfVideoPages: " .. Escape(objItem:NumberOfVideoPages()) .. "\r\n";
Output = Output .. "PNPDeviceID: " .. Escape(objItem:PNPDeviceID()) .. "\r\n";
strPowerManagementCapabilities = Escape(objItem.PowerManagementCapabilities(0))
Output = Output .. "PowerManagementCapabilities: " .. strPowerManagementCapabilities .. "\r\n";
Output = Output .. "PowerManagementSupported: " .. Escape(objItem:PowerManagementSupported()) .. "\r\n";
Output = Output .. "ProtocolSupported: " .. Escape(objItem:ProtocolSupported()) .. "\r\n";
Output = Output .. "ReservedSystemPaletteEntries: " .. Escape(objItem:ReservedSystemPaletteEntries()) .. "\r\n";
Output = Output .. "SpecificationVersion: " .. Escape(objItem:SpecificationVersion()) .. "\r\n";
Output = Output .. "Status: " .. Escape(objItem:Status()) .. "\r\n";
Output = Output .. "StatusInfo: " .. Escape(objItem:StatusInfo()) .. "\r\n";
Output = Output .. "SystemCreationClassName: " .. Escape(objItem:SystemCreationClassName()) .. "\r\n";
Output = Output .. "SystemName: " .. Escape(objItem:SystemName()) .. "\r\n";
Output = Output .. "SystemPaletteEntries: " .. Escape(objItem:SystemPaletteEntries()) .. "\r\n";
Output = Output .. "TimeOfLastReset: " .. WMIDateStringToDate(objItem:TimeOfLastReset()) .. "\r\n";
Output = Output .. "VideoArchitecture: " .. Escape(objItem:VideoArchitecture()) .. "\r\n";
Output = Output .. "VideoMemoryType: " .. Escape(objItem:VideoMemoryType()) .. "\r\n";
Output = Output .. "VideoMode: " .. Escape(objItem:VideoMode()) .. "\r\n";
Output = Output .. "VideoModeDescription: " .. Escape(objItem:VideoModeDescription()) .. "\r\n";
Output = Output .. "VideoProcessor: " .. Escape(objItem:VideoProcessor()) .. "\r\n";]]
--if Dialog.Message("WMI Output", OutputTitle .. Output , MB_OKCANCEL, MB_ICONINFORMATION, MB_DEFBUTTON1) == 2 then break end
Label.SetText("Label1", Output);
Output = "";
--objItem = oEnum:Next();
objItem = nil;
end
else
Dialog.Message("WMI Output", "No WMI Objects Found for class: Win32_VideoController", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
end

Всем доброго дня, знатоки подскажите, сам уже голову сломал, хотя должно быть просто. Суть такая: У меня в проекте по выбору ЛИСТбоксе на событие on select подгружается картинка в Image1, проблема в том, что размеры картинок и пропорции везде разные, делать их одинаковыми ни вариант, можно ли как нибудь при подгрузке изображения устанавливать размеры загружаемой картинки или производить сброс параметров Image1?

rokhlin

Вместо объекта Image используй объект SlideShow. Или же придется сценарий писать для сохранения пропорций изображения.

Cоздал выпадающий список, в списке программы для запуска, всё работает.
Но как сделать чтоб названия тем и пути к файлам лежали в xml файле. И чтоб я мог добавлять в xml файл новые названия тем и пути к файлам, причём, из самой программы, путём текстовых полей. В принцепи я знаю как сделать это, но имею очень мало опыта в работе с xml.

Cmaster2K

Пример записи:

Код: -- загружаем БД. Файл БД должен изначально существовать, с содержимым "<db></db>"
if not _load then XML.Load(_SourceFolder.."\\db.xml"); _load = true; end

local sTheme = Input.GetText("Input1"); -- тема
local sPath = Input.GetText("Input2"); -- путь

local nElement = XML.Count("db", "item"); -- количество записей в БД
-- добавляем новый элемент в конец БД
XML.InsertXML("db/item:"..nElement, "<item><name>"..sTheme.."</name><path>"..sPath.."</path></item>", XML.INSERT_AFTER);
-- сохраняем изменения
XML.Save(_SourceFolder.."\\db.xml");

Здравствуйте. Подскажите пожалуйста, как узнать запущена ли программа.
Если я правильно понял, ниже представленный код работает только в том случае, если запускаем файл "autorun.exe" и проверяем был ли он запущен ранее. Мне же нужно запустить файл "autorun.exe" и проверить запущена ли программа "PotPlayer.exe" и не убивать процесс, а выдать сообщение о том запущена программа или нет.

Код: instances_of_file = 0;
file_to_check_for = "autorun.exe"; --have all lowercase
processes = System.EnumerateProcesses();

for j, file_path in pairs(processes) do
file = String.SplitPath(file_path);
if (String.Lower(file.Filename..file.Extension)) == file_to_check_for then
System.TerminateProcess(j);
end
end

genai05

Код: local file_to_check_for = "potplayer.exe";
local processes = System.EnumerateProcesses();
local file
for j, file_path in pairs(processes) do
file = String.SplitPath(file_path);
if (String.Lower(file.Filename..file.Extension)) == file_to_check_for then
Dialog.Message("Notice", "Программа запущена.", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
break;
end
end

Спасибо, работает. Но всё же нужно сообщение о том, что программа не запущена. Попробовал написать так:

Код: local file_to_check_for = "potplayer.exe";
local processes = System.EnumerateProcesses();
local file
for j, file_path in pairs(processes) do
file = String.SplitPath(file_path);
if (String.Lower(file.Filename..file.Extension)) == file_to_check_for then
Dialog.Message("Notice", "Программа запущена.", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
break;
else
Dialog.Message("Notice", "Программа не запущена.", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
end
end

genai05
Надо, так надо.

Код: local instances_of_file = 0;
local file_to_check_for = "potplayer.exe";
local processes = System.EnumerateProcesses();
local file
for j, file_path in pairs(processes) do
file = String.SplitPath(file_path);
if (String.Lower(file.Filename..file.Extension)) == file_to_check_for then
instances_of_file = 1;
break;
end
end
if instances_of_file > 0 then
Dialog.Message("Notice", "Программа запущена.", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
else
Dialog.Message("Notice", "Программа НЕ запущена.", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
end

Большое спасибо.

Здравствуйте! Нужна помощь в AutoPlay Media Studio 8.0.4.0:

1) Как в объекте Список (ListBox) как для каждого пункта меню указать открытие определённой страницы? Что указывать в настройках? Page.Jump("Page2"); применяется сразу ко всему списку и всем пунктам.

Скриншот 1 Скриншот 2 Скриншот 3 Скриншот 4

2) Как в этом меню добавить иконку перед каждым пунктом?

3) Как настроить кнопку, чтобы при нажатии открывалась папка "sound", которая будет находится в каталоге с файлом autorun.exe?

Sergeynoshin

On Select или On Double-Click Листбокса:

Цитата:

1) Как в объекте Список (ListBox) как для каждого пункта меню указать открытие определённой страницы?

Код: local tSel = ListBox.GetSelected(this);
if tSel then
-- если выбрали первый пункт
if tSel[1] == 1 then
Page.Jump("Page1");
-- если выбрали второй пункт
elseif tSel[1] == 2 then
Page.Jump("Page2");
end
end

Zloy_Gelud, большое спасибо!

Ещё один вопрос:

Можно ли объекты, которые повторяются на всех страницах (меню, кнопка Выход и т.п.) прикрепить в одном экземпляре сразу ко всем страницам - а то неудобно меняя что-то в меню повторять это на всех страницах.

P.S.
Цитата:

RW4PIR: кстате значки прикреплять к меню я тоже разобрался как, всё очень просто

http://forum.ru-board.com/topic.cgi?forum=5&topic=29440&start=1920#20
Может это оно?

Sergeynoshin

Цитата:

Можно ли объекты, которые повторяются на всех страницах (меню, кнопка Выход и т.п.) прикрепить в одном экземпляре сразу ко всем страницам - а то неудобно меняя что-то в меню повторять это на всех страницах.

Нельзя.

Цитата:

Может это оно?

Нет. Не оно.

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

Код: getval = Registry.GetValue(HKEY_LOCAL_MACHINE, "Software\\Program\\ProductInfo", "ProductPath", true);

Registry.SetValue(HKEY_LOCAL_MACHINE,"Software\\Microsoft\\Windows\\CurrentVersion\\Run","file",""..getval.."\\file.exe",REG_SZ);

genai05
Если добавляется только название программы, значит переменная getval равна "" (пустая строка), т.е. указанный ключ не найден.