» Autoplay Media Studio

Цитата:

Vadim021X
См. пример к плагину IExplorer.

а где его найти?
подскажите поподробнее, плиз))

Vadim021X -- в папке с плагином, если устанавливал AMS PluginPowerPack (AMS 8.x).

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

Вот, что у меня получилось:

Web.LoadURL("Окно", "http://yandex.ru/yandsearch?text=", Input.GetText("поиск"));

надо чтобы в адресе сначало было: http://yandex.ru/yandsearch?text=
а потом без пробела к нему добавлялось поисковое слово: Input.GetText("поиск")

Как сделать, чтобы без пробела добавлялось?

Vadim021X

Цитата:

Вот, что у меня получилось:

Откуда взял третий параметр?
Согласно справки
http://umodel.narod.ru/webhelp/ams/Program_Reference/Actions/Web.LoadURL.htm
это действие имеет 2 параметра. Так что у тебя фигня получилась.
Вот так будет правильно:

Код: Web.LoadURL("Web1", "http://yandex.ru/yandsearch?text="..String.Replace(Input.GetText("Input1"), " ", "+", false));

Zloy_Gelud
исходя из аналогии твоего ранее выложенного кода
http://forum.ru-board.com/topic.cgi?forum=5&topic=33745&start=1660#2

Код: require("luacom")
s =String.Replace(Input.GetText("Input1"), " ", "+", false)
sYandexSearch = "http://yandex.ru/yandsearch?text=";
local oSC = luacom.CreateObject("ScriptControl");
if oSC then
oSC.Language = "JavaScript";
local sEncode_URI = oSC:Eval("encodeURI(\""..s.."\");");
oSC = nil;
sYandexSearch = sYandexSearch .. sEncode_URI;
end
--File.OpenURL(sGoogleSearch, SW_SHOWNORMAL);
Web.LoadURL("Web1", sYandexSearch)

lerik2703 -- у меня и без перевода в URI отработало правильно. Поэтому и не стал лишнего писать.

кто подскажет код для действий ComboBox ??
Хотел бы что-бы в каждом выборе ComboBox срабатывало действие типа Page.ClickObject.
Беда в том, что из любых прописаных действий выполняется либо одно либо все.
Пример таких действий
if ComboBox.GetSelected("ComboBox1", 1) then
Page.ClickObject("Button1");
end
Может я неправильно это делаю?

sjdb45
http://umodel.narod.ru/webhelp/ams/Program_Reference/Actions/ComboBox.GetSelected_Examples.htm

Код: local nSel = ComboBox.GetSelected("ComboBox1");
if nSel == 1 then
Page.ClickObject("xButton1");
elseif nSel == 2 then
Page.ClickObject("xButton2");
end

Zloy_Gelud
Спасибо за быстрый ответ!
Дело в том, что я пробовал этот код.
Код обрабатывает только первое действие если даже выбираешь другое. В ItemData в ComboBox у меня ничего не прописано, только цифры 1.2.3. и т.д. Для Button я не знаю как и что выбирать там.
Вместо xButton у меня простая кнопка в которой множество функций и хотелось бы в действия ComboBox прописать 5 бутонов.
Может этот код исключительно только для xButton а не для других действий?

sjdb45

Цитата:

Код обрабатывает только первое действие если даже выбираешь другое.

Т.е.? В примере в зависимости от выбранного пункта (1, 2 и т.д.) выполняется определенное действие.

Цитата:

Вместо xButton у меня простая кнопка в которой множество функций и хотелось бы в действия ComboBox прописать 5 бутонов.

Ну так замени на свои действия.
PS. Может я не понял, что тебе нужно? Может подробней?

Делаю проект где имеются 5 листбоксов. имеются 5 бутонов которые открывают нужный листбокс первая кнопка открывает первый листбокс, вторая кнопка второй и т.д.
Кнопок в проекте много и хочу задействовать ComboBox вместо кнопок.
В этих 5 -ти кнопках кроме запуска листбокса так же прописаны другие действия которые прячут другие листбоксы и т.д. on click, on enter, on live ... что не пропишешь в combobox.В принципе можно было задействовать одну кнопку для этих действий вписав код который будет прятать другие.
Блин позвонили и мне срочно нужно на работу.. Вечерком опишусь до мелочей!
Спасибо за необходимые подсказки!

Подскажите пожалуйста код

function g_OnSystemTrayMenu(X, Y)

tblMenu = {};

tblMenu[1] ={};
tblMenu[1].Text = "&Закрыть";
tblMenu[1].ID = 100;
tblMenu[1].IconID = 0;

nRes = Application.ShowPopupMenu(X, Y, tblMenu, 4, 32, true, false);


как поставить иконку на пункт меню в трее?
икона находится в проекте AutoPlay\\Icon\\about.bmp

Вопрос снят:

Всем здравствуйте!
Я хочу создать загрузочный диск с виндовсом и сборником моих программ.
С виндой вроде всё в порядке. С программами тоже, они на отдельной странице. Щёлкаешь иконку, открывается установщик.
Но я видел на некоторых установочных дисках сделано так: рядом с каждой иконкой программы есть метка, программ много, меток тоже. Отмечаещь нужные и одной общей кнопкой их устанавливаешь все и сразу. (не надо по одной ставить) это удобно в целях экономии времени.
Понимаю, что это где-то в пункте "сценарий" долго долбался и мучился. Но так ничего и не нашёл. Прогрограммой пользуюсь не давно, поэтому мало, что понимаю, особенно пункт "сценарий". Помогите пожалуйста.

PAVELNEXT

Сохрани эту картинку себе на хард (в формате .BMP):

Выбери: Project > Menu Bar... > Use image list > Укажи путь к этой картинке.
Затем:

Глобальные функции:

Код: function g_OnSystemTrayMenu(X, Y)
tblMenu = {};
tblMenu[1] ={};
tblMenu[1].Text = "&New Menu";
tblMenu[1].ID = 100;
tblMenu[1].IconID = 0;
tblMenu[1].Checked = false;
tblMenu[1].Enabled = true;
tblMenu[1].SubMenu = {};
tblMenu[1].SubMenu[1] = {};
tblMenu[1].SubMenu[1].Text = "&SubItem 1";
tblMenu[1].SubMenu[1].ID = 101;
tblMenu[1].SubMenu[1].IconID = 1;
tblMenu[1].SubMenu[1].Checked = false;
tblMenu[1].SubMenu[1].Enabled = true;
tblMenu[1].SubMenu[2] = {};
tblMenu[1].SubMenu[2].Text = "S&ubItem 2";
tblMenu[1].SubMenu[2].ID = 102;
tblMenu[1].SubMenu[2].IconID = 2;
tblMenu[1].SubMenu[2].Checked = false;
tblMenu[1].SubMenu[2].Enabled = true;

result = Application.ShowPopupMenu(X, Y, tblMenu, TPM_RIGHTALIGN, TPM_BOTTOMALIGN, true, false);

if(result ~= 0)then
Dialog.Message("Menu Item Selected",result);
end
end

Edik540
Не знаю возможно это сделать в AMS. Наверно можно но трудно. Трудности возникнут в момент установки. Например если какой-то установщик просто не запустится или произойдет сбой во время установки программы. Или просто напросто не хватит места на диске. Также желательно сделать прогрес бар для всех программ. Короче мульти установщик.
Все это уже сделано в WPI. Посмотри может это то что тебе надо.
http://forum.oszone.net/thread-46483-193.html -- Не знаю на Ru-Borde есть такая тема.

Zloy_Gelud

Цитата:

Выбери: Project > Menu Bar... > Use image list > Укажи путь к этой картинке.

Спасибо вам огромное, вы как всегда помогли

Спасибо попробую может что и получиться.

Цитата:

http://forum.oszone.net/thread-46483-193.html -- Не знаю на Ru-Borde есть такая тема.

Вроде как тема подходит.
Ещё раз спасибо!

Добавлено:

Цитата:

Stalkersof

Да да да оноооо! Спасибо

Zloy_Gelud
Объясни пожалуйста каким образом можно запустить последовательно выбранные установщики из listbox-a?
Делал так:

result = ListBox.GetSelected("ListBox1");
if ( result[1] == 1 ) then
File.Run(sPath.."\\DataPack\\setup01.exe", "", "", SW_SHOWNORMAL, true);
elseif ( result[1] == 2 ) then
File.Run(sPath.."\\DataPack\\setup02.exe", "", "", SW_SHOWNORMAL, true);
и т.д
Вместо ListBox.GetSelected вставлял ListBox.IsItemSelected и ListBox.GetChecked
и всё безуспешно...
С чекбоксами легче, все работает:
if CheckBox.GetChecked("CheckBox01") then
File.Run(sPath.."\\DataPack\\setup01.exe", "open", "", "", SW_SHOWNORMAL, true);
end

К стати хороший код который заполняет листбоксы из текстового файла.
Все что вписал в текст то и получаешь в листбоксе:

Код:
ListFromFile("ListBox1", "\\autoplay\\myfolder\\mylist.txt")

function ListFromFile(sListObject, sFilename)
    -- does the file exist
    if File.DoesExist(sFilename) then
        -- read the file into a table
        tblList = TextFile.ReadToTable(sFilename)
        -- if the file contained something
        if Table.Count(tblList) > 0 then
            -- loop throught the table
            for n=1, Table.Count(tblList) do
                -- if the line is blank, skip it
                if String.TrimRight(tblList[n], " ") ~= "" then
                    -- add the item
                    ListBox.AddItem(sListObject, tblList[n], tblList[n])
                end
            end
        end
    end
end

Добрый вечер форумчане. С момента последнего поста перечитал тему аж загордился далеко пошли Вы ничего не скажешь респект и уважуха.
У меня следующая проблема так как не кодер думаю для вас тривиальная но для меня стала камнем предкновения номер один))))
итак суть вопроса. на странице идут обекты Label и форма pdf. при клике на Label отображается документ в pdf
PDF.LoadFile("PDF1", "pdf\\novishek\\9.pdf");
Пытаюсь сделать тоже самое но для объекта Web, так как не нашел функции LoadFile пытался использовать LoadHTML - web.LoadHtml("web1", "html\\1f.mht"); в итоге отображается строчка html\\1f.mht.

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

Пытался запускать документ по клику на объекте Label но тогда запускает в браузере а не в объекте web.

Помогите выйти с тупика плиз((

maxakul

используй Shell.Execute для файлов "*.mht"

можно подробней плиз нешарю вообще в этом.
Мне не принципиально mht можно и html главно чтоб при клике на объект label оно отобразилось в объекте web((((
Я просто думал mht чтоб не засоряться для себя в папках/файлах html но это не принципиально главно чтоб работало реализовать как-то а мозгов нехватает((((

maxakul

См. действие Web.LoadURL, где параметр URL - путь к файлу HTML.

Добавлено:
sjdb45

Цитата:

Объясни пожалуйста каким образом можно запустить последовательно выбранные установщики из listbox-a?

Попробуй так, может устроит.


Код: local tChecked = ListBox.GetChecked("ListBox1", BST_CHECKED);
if tChecked then
for i = 1, #tChecked do
local sFilename = ListBox.GetItemData("ListBox1", tChecked[i]);
File.Run(sPath.."\\DataPack\\"..sFilename, "", "", SW_SHOWNORMAL, true);
end
end

Zloy_Gelud
Нее, у меня не работает такой код.
Дает ошибку Error: attempt to concatenate global 'sPath' (a nil value)
И если в listbox1 в ItemData отмечать setup01.exe и т.д. то в листбоксе появляется дополнительный список этих установщиков так, как я изначально беру список из текстового файла... см код выше в моем сообщении..
Вот если я составляю список в листбоксе из текстового файла нельзя ли поступить следующим образом:
К примеру, я отмечаю в листбоксе установщики, и когда выбрал необходимые то нажав на кнопку - кнопка составляет выбраный список и создает новый текстовый файл (либо *.ini файл) и бросает его в папку темп на диске и далее другая кнопка может запустить процесс установки исходя из созданного файла...
Я так понимаю что это возможно, но составлять такие коды я не умею.

sjdb45

Цитата:

Дает ошибку Error: attempt to concatenate global 'sPath' (a nil value)

Ну так у тебя в сообщении выше тоже указана переменная "sPath":

Цитата:

File.Run(sPath.."\\DataPack\\setup01.exe", "", "", SW_SHOWNORMAL, true);

Ее значение надо было дописать вначало к моему коду.

Цитата:

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

В файле только названия файлов или полные пути?

только названия файлов без путей.
установщики будут к примеру setup.exe , или java6u27.exe и т.д.
в глобальных функциях у меня это:

Код:
function appPathOriginal()

    local cdPath = "";
    local findMarker = "SFXSOURCE:";
    local cmdArgs = "";

    if (Table.Count(_CommandLineArgs) > 0) then
        for i = 1, Table.Count(_CommandLineArgs) do
            if (String.Find(_CommandLineArgs[i], findMarker) > 0) then
                cmdArgs = _CommandLineArgs[i];
                break;
            end
        end
    end

    if (cmdArgs ~= "") then
        if (String.Find(cmdArgs, findMarker) == 1) then
            local fullPath = String.Replace(cmdArgs, findMarker, "", true);
            local tblFullPath = String.SplitPath(fullPath);
            cd_Path = tblFullPath.Drive .. tblFullPath.Folder;
        end
    else
        cd_Path = _SourceFolder .. "\\";
    end
    return cd_Path;
end

sjdb45

Добавь в Глобальные функции:

Код: _SourceFolder = appPathOriginal();

Нет, не работает после нажатия кнопки запуска все стоит на месте без всяких действий

sjdb45
Попробуй заменить

Цитата:

File.Run(_SourceFolder.."\\DataPack\\"..sFilename, "", "", SW_SHOWNORMAL, true);

на

Код: Shell.Execute(_SourceFolder.."\\DataPack\\"..sFilename, "open", "", "", SW_SHOWNORMAL, true);

Zloy_Gelud
После смены на твой код всё заработало!
Но вся беда в том, что установщики надо прописывать в листбоксе все точь в точь до запятой.
То есть если установщик под именем NotePad_v5.4.6.exe то в описании в листбоксе он должен так же и называться.
Если имена не совпадают то выходит ошибка что такой то файл не найден.
И вообще странно что ShellExecute тут срабатывает, хотя я раньше делал проект и в нём для запуска тихого установщика прописывал File.Open("блаблабла", "", SW_SHOWNORMAL); и всё работало.
Вопрос, (если не напрягаю) ты не знаешь как можно сделать такое действие когда после выбора приложений в листбоксе нажав на кнопку, создается список в ini файл например? А затем можно было-бы сделать последовательный запуск приложений из этого файла.
Например я хотел бы чтобы при установке каждого приложения в Image1 появлялоась картинка установщика с описанием в параграфе и последовательно с другими установщиками тоже самое.
к примеру:

Тут if (если таковой выбран)
Shell.Execute(_SourceFolder.."\\DataPack\\setup_001.exe, "open", "", "", SW_SHOWNORMAL, true);
Image.Load("Image1", "AutoPlay\\Images\\picture_001.png");
Paragraph.SetText("Paragraph1", TextFile.ReadToString("AutoPlay\\Docs\\001.txt")); <-- текст с описанием
Тут либо(end) либо (elseif ) для продолжения...

Да к стати, Shell.Execute заменил на File.Open .
тоже работает.