» Indigo Rose AutoPlay Media Studio

Цитата:

Я периодически вижу тут скрипты, которых нет в справке

dallas page справка по LUA, ссылка в шапке, также есть в формате CHM.

from Reteset Software


Цитата:

www.amsplugins.com has been closed , due to personal attacks by a IR staff member 'Ulrich'
This web site will no longer come back
So, there will not be any new plugins , no plugin updates and nothing else
All support to AMS has been ended today

Ulrich

+1
Ulrich

Цитата:

www.amsplugins.com has been closed , due to personal attacks by a IR staff member 'Ulrich'
This web site will no longer come back
So, there will not be any new plugins , no plugin updates and nothing else
All support to AMS has been ended today

Ulrich

[more] Всем доброго времени суток!
Столкнулся с такой проблемой, нужно мне указать в письме которое открывается по команде File.OpenEmail отправителя определённого, что-то типа команды From должно работать, да вот только никак не получается.
Программа берёт значения из Input1-5 и подставляет их в тело письма, даже делает тему и кому и в копию ставит, но вот ящик с которого отправляет никак не хочет менять.
Помогите народ, неделю уже бьюсь над этим!!!


Код: error = 0;

time1 = Input.GetText("Input1");
op1 = Input.GetText("Input2");
pr1 = Input.GetText("Input3");
fio1 = Input.GetText("Input4");
dj1 = Input.GetText("Input5");

text1 = {};
    text1[1] = "Добрый день!";
    text1[2] = "1";
    text1[3] = "2".. time1 .."";
    text1[4] = "3" .. op1 .. "";
    text1[5] = "4";
    text1[6] = "5".. pr1 .."";
    text1[7] = "6";
    text1[8] = "7";
    text1[9] = "8";
    text1[10] = "9" .. fio1 ..")";
    text1[11] = "10";
    text1[12] = "11";
    text1[13] = "12";
    text1[14] = "13" .. dj1 .. "";
    text1[15] = "14";
    text1[16] = "15";
    text1[17] = "16";
    text1[18] = "17";
    text1[19] = "18";
    text1[20] = "19";
if error~=1 then
end
File.OpenEmail("mail@mail.ru" .. "&cc=mail2@mail.ru&subject=Тут тема вашего письма&Body="..
text1[1] .. "%0D%0A" ..
text1[2] .. "%0D%0A" ..
text1[3] .. "%0D%0A" ..
text1[4] .. "%0D%0A" ..
text1[5] .. "%0D%0A" ..
text1[6] .. "%0D%0A" ..
text1[7] .. "%0D%0A" ..
text1[8] .. "%0D%0A" ..
text1[9] .. "%0D%0A" ..
text1[10] .. "%0D%0A" ..
text1[11] .. "%0D%0A" ..
text1[12] .. "%0D%0A" ..
text1[13] .. "%0D%0A" ..
text1[14] .. "%0D%0A" ..
text1[15] .. "%0D%0A" ..
text1[16] .. "%0D%0A" ..
text1[17] .. "%0D%0A" ..
text1[18] .. "%0D%0A" ..
text1[19] .. "%0D%0A" ..
text1[20], SW_SHOWNORMAL);

Здравствуйте. Прошу помощи в очередной раз: есть Splash Screen .png – все работает как надо, только файл .png в рамочке на белом фоне(( Можно ли это побороть? Заранее, спасибо!

chopochomer

Цитата:

нужно мне указать в письме которое открывается по команде File.OpenEmail отправителя определённого,

Через File.OpenEmail такое не возможно сделать? Вообще как вы это представляете? Вы указываете email отправителя, а настройки SMTP-сервера где будете указывать? А пароль от учетной записи? File.OpenEmail открывает почтовую программу по умолчанию, в которой уже настроена учетная запись для отправки и получения писем.
Если же вы хотите сами указывать адрес отправителя и все настройки сервера, то используйте плагин

Цитата:

SmtpT Action Plugin
Created by Tavria-2
Copyright © 2012 Tavria-2
tavria2@email.ua

Вот это поворот..
from Reteset Software

Цитата:

Please Notice !
Our account at IR forums with user name 'reteset' has been banned and hacked by IR staff member 'Ulrich'
Therefore , We are not responsible with anything made with that account , Please do not send private messages to this account
We wont be able to reply any message because our account hacked by him and not under our control

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

InpSec = Input.GetText("Sec");
InpMin = Input.GetText("Min");

if (InpSec == 60) then
Input.SetText("Min", InpMin+1);
else
Input.SetText("Sec", InpSec+1);
end
Должно работать правильно.
Если InSec = 60, то, должно прибавлять + 1 мин.
Но, почему то не работает...

nikitorol
а в чем неработоспособоность заключается? И как и где этот код используется?
Предположительно проблема
Пока InpSec не равно 60 ты увеличиваешь InpSec+1, но когда InpSec=60 выполниться условие Input.SetText("Min", InpMin+1) - увеличится InpMin+1, но при этом нужно обнулить InpSec=0, иначе у тебя условие Input.SetText("Sec", InpSec+1) больше не выполниться... При InpSec = 60 это Input.SetText("Sec", InpSec+1) выполняться уже не будет, соответсвенно не будет увеличения InpSec, теоритически у тебя пойдет добавление InpMin+1.
Вообщем напиши как это должно работать тогда и код будет.

Смотри, я делаю переменные.
Допустим,
MaxSec = 60;
MaxMin = 60;
MaxHours = 24;
Надо сделать проверку на данное число, мне нужен вывод.
т.е
if(Seconds == 60) then
--Тут мы добавляем минуту +1 (и обнуляем время в сек)
else
--Тут, если нету 60 сек, то мы прибавляем секунду+1.
end
И все вроде.

nikitorol
вот пример http://rghost.ru/56148666

Фууух... Искал-искал, да всё впустую. Есть два вопроса:

Как передать параметры приложению AMS при запуске?

Как запретить запуск копий приложения AMS?

UModeL
И первый и второй вопрос точно есть ответы на форуме.
Как передать параметры приложению AMS при запуске?

_CommandLineArgs - глобальная переменная (таблица), которая содержит все параметры командной строки.
Пример


Код:
for i, arg in pairs(_CommandLineArgs) do
if (String.CompareNoCase(arg, "/maximize") == 0) then
Window.Maximize(Application.GetWndHandle());
end
end

где-то здесь читал, что есть русский хелп. по ссылкам пошел, битые(( у кого оно есть можете отправить на почту

xxxxxbek

Тут в паке от Robby есть https://yadi.sk/d/96wQqw7Z1w87c

Как правильно сконвертить скачанную веб-страницу из UTF-8 в понятный AMS'у? У меня не получается. Плагин Encoding и Unicode выдают ошибку Conversion failed, хотя кодировка вроде-бы верная указана.


Код: local sURL = Dialog.Input("", "URL:", "", MB_ICONNONE);
local sFilePath = _DesktopFolder.."\\1.htm";
if sURL ~= "CANCEL" and sURL ~= "" then
    HTTP.Download(sURL, sFilePath, MODE_BINARY, 20, 80, nil, nil, nil);
    local sHTML = Encoding.ReadToString(sFilePath, "utf-8", "windows-1251");
end

Подскажите, реально ли сделать начало координат в Auto play media studio в центре рабочего поля?

New Version Available: 8.3.0.0
http://www.indigorose.com/files/autoplay-media-studio-trial.exe

Today (June 12, 2014) we have released a new version of AutoPlay Media Studio (v8.3.0.0). Commercial users can download the new full installer from your customer portal.

This release contains the following features and bug fixes:
Feature: Added RTL support to the Grid object if the project RTL setting was turned on.
Fix: Fixed a bug where the second optional argument of the 'Window.Close' action was mistakenly required at runtime.
Fix: Fixed a bug where the 'Page.CreateObject' was not setting the width of the ComboBox object properly.
Fix: Fixed a couple issues in the 'File.Copy' action where the 'AbortOnFail' parameter wasn't working properly, and progress wasn't handled correctly upon failure.
Fix: Made it so that the xButton object pays attention to the project's global RTL setting.
Fix: Fixed an issue where the Input object's 'ReadOrder' property was incorrectly being interpreted as boolean by the 'getProperties' and 'setProperties' actions.
Fix: Fixed an issue in the File Layout dialog relating to projects referenced using UNC paths.

Доброго дня всем хорошим людям!
Подскажите, плиз, кто знает, как получить серийный номер USB-HDD средствами AMS?
Цель: для привязки к ней записываемой в USB-HDD информации.

В ScriptOMatic.Tool не нашел подходящий скрипт

ra700
По идее, серийный номер можно получить из Win32_DiskDrive. Выхлоп Скриптоматика:

Цитата:

Computer: localhost
==========================================

InterfaceType: USB
PNPDeviceID: USBSTOR\DISK&VEN_JETFLASH&PROD_TRANSCEND_4GB&REV_1100\08MLVTMW1XJPWZDC&0

Жирным выделен серийник. Можно и через DeviceIoControl (WinApi) заморочиться.

Zloy_Gelud, я смотрел этот скрипт, но не придумал как указать букву привода (порта), куда подключен внешний жесткий диск. Точнее- в какой строке кода:
-- 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_DiskDrive", "WQL", 48);

if (objColItems) then
local oEnum = luacom.GetEnumerator(objColItems);
local objItem = oEnum:Next();
while (objItem) do
strOutput = strOutput .. "Availability: " .. Escape(objItem:Availability()) .. "\r\n";
strOutput = strOutput .. "BytesPerSector: " .. Escape(objItem:BytesPerSector()) .. "\r\n";
strOutput = strOutput .. "Capabilities: " .. Escape(objItem.Capabilities(0)) .. "\r\n";
strOutput = strOutput .. "CapabilityDescriptions: " .. Escape(objItem.CapabilityDescriptions(0)) .. "\r\n";
strOutput = strOutput .. "Caption: " .. Escape(objItem:Caption()) .. "\r\n";
strOutput = strOutput .. "CompressionMethod: " .. Escape(objItem:CompressionMethod()) .. "\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 .. "DefaultBlockSize: " .. Escape(objItem:DefaultBlockSize()) .. "\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 .. "ErrorMethodology: " .. Escape(objItem:ErrorMethodology()) .. "\r\n";
strOutput = strOutput .. "Index: " .. Escape(objItem:Index()) .. "\r\n";
strOutput = strOutput .. "InstallDate: " .. WMIDateStringToDate(objItem:InstallDate()) .. "\r\n";
strOutput = strOutput .. "InterfaceType: " .. Escape(objItem:InterfaceType()) .. "\r\n";
strOutput = strOutput .. "LastErrorCode: " .. Escape(objItem:LastErrorCode()) .. "\r\n";
strOutput = strOutput .. "Manufacturer: " .. Escape(objItem:Manufacturer()) .. "\r\n";
strOutput = strOutput .. "MaxBlockSize: " .. Escape(objItem:MaxBlockSize()) .. "\r\n";
strOutput = strOutput .. "MaxMediaSize: " .. Escape(objItem:MaxMediaSize()) .. "\r\n";
strOutput = strOutput .. "MediaLoaded: " .. Escape(objItem:MediaLoaded()) .. "\r\n";
strOutput = strOutput .. "MediaType: " .. Escape(objItem:MediaType()) .. "\r\n";
strOutput = strOutput .. "MinBlockSize: " .. Escape(objItem:MinBlockSize()) .. "\r\n";
strOutput = strOutput .. "Model: " .. Escape(objItem:Model()) .. "\r\n";
strOutput = strOutput .. "Name: " .. Escape(objItem:Name()) .. "\r\n";
strOutput = strOutput .. "NeedsCleaning: " .. Escape(objItem:NeedsCleaning()) .. "\r\n";
strOutput = strOutput .. "NumberOfMediaSupported: " .. Escape(objItem:NumberOfMediaSupported()) .. "\r\n";
strOutput = strOutput .. "Partitions: " .. Escape(objItem:Partitions()) .. "\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 .. "SCSIBus: " .. Escape(objItem:SCSIBus()) .. "\r\n";
strOutput = strOutput .. "SCSILogicalUnit: " .. Escape(objItem:SCSILogicalUnit()) .. "\r\n";
strOutput = strOutput .. "SCSIPort: " .. Escape(objItem:SCSIPort()) .. "\r\n";
strOutput = strOutput .. "SCSITargetId: " .. Escape(objItem:SCSITargetId()) .. "\r\n";
strOutput = strOutput .. "SectorsPerTrack: " .. Escape(objItem:SectorsPerTrack()) .. "\r\n";
strOutput = strOutput .. "Signature: " .. Escape(objItem:Signature()) .. "\r\n";
strOutput = strOutput .. "Size: " .. Escape(objItem:Size()) .. "\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 .. "TotalCylinders: " .. Escape(objItem:TotalCylinders()) .. "\r\n";
strOutput = strOutput .. "TotalHeads: " .. Escape(objItem:TotalHeads()) .. "\r\n";
strOutput = strOutput .. "TotalSectors: " .. Escape(objItem:TotalSectors()) .. "\r\n";
strOutput = strOutput .. "TotalTracks: " .. Escape(objItem:TotalTracks()) .. "\r\n";
strOutput = strOutput .. "TracksPerCylinder: " .. Escape(objItem:TracksPerCylinder()) .. "\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_DiskDrive");
end

ra700
А зачем тебе буква? Ты же к серийнику привязываешь.

---

Вроде не постил новость... Я давно написал версию ScriptOMatic'a в виде проекта для AMS.


Скачать: https://yadi.sk/d/J7Kt3GCCUeKSD

Большой плюс - можете сразу протестировать скрипт, нажав на кнопку "Run".

Zloy_Gelud, в том-то и дело, что мне надо узнать серийный номер не встроенного жесткого диска, а внешнего, подключенного к usb-порту.
Огроменное спасибо за ScriptOMatic, очень удобно!

всем привет! как изменить скорость перехода эффекта metro?

Приветствую господа. Есть вопрос. У меня проект в виде exe-файла (web executable). Возможно ли как то записать в текстовый документ адрес папки, из которой его запустили?

dallas page

Код: GetSourceFolder = function ()
local sAutorunPath = _CommandLineArgs[1];
if sAutorunPath then
local tPaths = String.SplitPath(String.Mid(sAutorunPath, 11, -1));
return tPaths.Drive..tPaths.Folder;
else
return _SourceFolder;
end
end

_SourceFolder = GetSourceFolder();
-----------------------------------------------------------------------------------

Dialog.Message("Notice", _SourceFolder, MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);

Zloy_Gelud как всегда супер. Спасибо.

Приветствую господа. Есть идея привязать программу к "ID" компьютера, чтобы на другом пк не запускалась. Есть мысль использовать этот код:

Код: result = System.GetLANInfo().NIC;
Dialog.Message("", result, MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);