» Autoplay Media Studio

Ребята, подскажите пожалуйста мне одну вещь,
Создал небольшое меню по выбору и установке приложений:
Так вот, создал список из нескольких программ, возле каждой программы прилепил CheckBox (может будет лучше RadioButton)
А так же последняя кнопка с действием установки выбранных приложений.
Во только не знаю как связать каждый CheckBox с той программой которую он фиксирует.
К примеру, хочу отметить в CheckBox те программы которые нужны для установки и кликнув на кнопку START начать установку того что выбранно.
У меня в списке программ на выделение действует следующая команда:


Цитата:

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

sPath = appPathOriginal();
File.Run(sPath.."\\SOFTWARE\\Myfile.exe", "", "", SW_SHOWNORMAL, false);

Знаю что этот вопрос не из легких, но пожалуйста, кто сталкивался с подобной арифметикой, подскажите пожалуйста как заставить работать все это! Буду очень и очень благодарен за решение этого вопроса.
Спасибо на заранее!

all043


Цитата:

Знаю что этот вопрос не из легких [..]

Да вопрос собстно на 10 минут..тем более где я уже писал подобное, лень искать ток.

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

Код: function GetSFXPath()
strPath = "";
strArg = _CommandLineArgs[1];
if strArg then
strPath = String.Right(strArg, String.Length(strArg) - 10);
end
if (String.Length(strPath) > 0) then
tblPath = String.SplitPath(strPath);
strPath = tblPath.Drive..String.Left(tblPath.Folder, String.Length(tblPath.Folder) - 1);
end
return strPath;
end

_SourceFolder = GetSFXPath();

-- путь к папке с софтом
strPathToSoft = _SourceFolder.."\\SOFTWARE";

function File.FindEx(strFolderPath, tblExts)
    local tblResult = {};
    if (tblExts ~= nil) and (Table.Count(tblExts) > 0) then
        for n, strExt in tblExts do
            local tblFilePaths = File.Find(strFolderPath, strExt, false, false, nil, nil);
            if (tblFilePaths) then
                for _, strFilePath in tblFilePaths do
                    tblResult[Table.Count(tblResult) + 1] = strFilePath;
                end
            end
        end
    end
    if (Table.Count(tblResult) == 0) then return nil else return tblResult; end
end

Вот вам за это огромное спасибо!!
Мне это оооочень нужно было!
Завтра опробирую этот вариант.
Еше раз огромное спасибо за полезное инфо, и желаю всего самого наилучшего вам!

Всем привет!
Подскажите а можно в APMS файлы загрузить по FTP.
Т.е. со своего компа загрузить на сайт файлы по FTP с использованием логина/пароля?
-------------------------------------
он вообще как нибудь может загрузить файл на сайт?!

sp3d
См. плагин FTP или FTPS

Zloy_Gelud
ОК! спасибо! посмотрю

Добавлено:
Народ помогите, немогу никак одолеть этот FTP
при тесте выкидывает ошибку
ERROR:
An unknown error occurred.
код взял из хелпа, 3 часа колдую и все безтолку, подскажите, что делаю не так?!
вот собственно сам код

Код:
FTP.Connect("server", "login", "pass", "", true);

function cbUpload(nBytes, nTotal)
if nTotal == 0 then
Paragraph.SetText("Progress", nBytes .. " байт!")
else
Paragraph.SetText("Progress", nBytes / nTotal * 100 .. "% загруженно!")
end
end

FTP.ChangeDir("/uploads");
err = Application.GetLastError();

if err ~= FTP.OK then
Paragraph.SetText("Log_paragraph", Paragraph.GetText("Log_paragraph").."* Error: " .. _tblErrorMessages[err] .."\r\n");
end

StatusDlg.ShowCancelButton();
StatusDlg.Show();

FTP.Upload("C:\\files\\", "*.*", cbUpload);
err = Application.GetLastError();

StatusDlg.Hide();

if err == FTP.OK then
Dialog.Message("Успех", "Успех!");
else

Paragraph.SetText("Log_paragraph", Paragraph.GetText("Log_paragraph").."* Error: " .. _tblErrorMessages[err] .."\r\n");
end

Оффлайновые подсказки
_http://rapidshare.com/files/182707140/AMS_HELP.rar.html

Djon1970
Неплохо. Сам сделал? Было бы еще лучше, если бы ты прошелся по всей ветке и собрал все ответы на задаваемые вопросы (популярные).

Djon1970
А можно пожалуйста не на рапиду (я в локальной сети) а то я так век не скачаю. Заранее спасибо!

2ALL
Внимание Вирус!
Файл AMS_HELP.rar (Оффлайновые подсказки), предоставленный Djon1970 - содержит вирус: Trojan.Win32.Crypt.aed.

Вот ето новость..говорила мне мама поставь антивирусник..
Пошел сканить..
Djon1970
Объяснишься?

tavria2

Цитата:

Внимание Вирус!
Файл AMS_HELP.rar (Оффлайновые подсказки), предоставленный Djon1970 - содержит вирус: Trojan.Win32.Crypt.aed.

Блин, а чем проверял? У меня Dr.Web стоит, периодически обновляю, компилировал с помощью программы htm2chm. В CHMe лежит пример SQLite, и программа PE Spin.

OFF.
Скорей всего на пакер тогда ругнулся. Ложная тревога наверн.

Добавлено:

Цитата:

Блин, а чем проверял?

Что-то их этих скоей всего: F-Secure/Kaspersky.
http://www.virustotal.com/ru/analisis/7b7ee5ff703bceed7490bd11ddd0d595
Однозначно на PESpin ругается.

Yakim777
Ну я теперь и не знаю, подождем еще рецензий. А куда кинуть если что?? Там всего около 300 кб.

Добавлено:
Zloy_Gelud
Могу убрать из CHMa PeSpin, мне не трудно. И занова перезалить. Но нужно ли.
Да кстати, Всех Со Старым Новым Годом!!!

Цитата:

Однозначно на PESpin ругается.

Да, ругается именно на него.

Возможно это и ложная тревога, но мне кажется, что exe файлы лучше не паковать в CHM, а предоствлять отдельным архивом.
Во первых это сократит размер CHM.
Во вторых версии файлов имеют св-во старение
В третьих, человек глядя на размер Справки надеется на большой объем информации, а не на то, что основной размер съедают вложенные файлы, которыми возможно он вообще не воспользуется.

Все вышесказанное - это IMHO.

tavria2
Хотел, как лучше.
Да там всего 300 кб.

Djon1970
Ну если это не вирус, то можно на аську 366178733. Большое спасибо.

Djon1970

Цитата:

Да там всего 300 кб.

Да, но со временем будет больше инфы и файлов и если ты собираешся продолжать развитие Подсказок, то и размер будет расти. А вот, как быть людям у которых стоит антивирус Касперский - файл на комп попадает уже битым. Это хорошо, что размер архива не велик, а при большом размере получить битый файл - радости мало, особенно если у людей плохая связь и нет безлимитки, да и еще предоплаченный трафик не велик.

Цитата:

Хотел, как лучше.

Инициатива наказуема, шутю А вообще я обеими руками ЗА полезную инфу, особенно русскоязычную, которой порой очень не достает.

Успехов тебе!

tavria2

Цитата:

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

Да за полезную инфу, спасибо не мне, а смотри шапку, все тупо выдрано оттуда, просто приведено более менее удобоваримый (что блин за слово) формат.
Еще раз с уже наступившим Старым Новым Годом. Удачи!!!!

как добавлять на плагин WINBUTTON картинку?
что-то не вижу этой фишки, может ее нету?

lorents

Цитата:

что-то не вижу этой фишки, может ее нету?

Нету.

У меня вопрос по плагинам: плагин PopupNotify у меня на WinXP не идёт, а в самом хелпе WinApi
Цитата:

IMPORTANT: This Plugin Is Not Working Under Windows Xp

А ещё, есть ли в Matrix настройки (ничего не происходит при нажатии) а при нажатии на вкладку Script вылетает.
Помогите ПЛЗ)

Yakim777

Цитата:

плагин PopupNotify у меня на WinXP

Он просто специфический и нужно строго соблюдать порядок действий, напимер:
PopupNotify.SetBackGroundImage - картинка формата BMP-24
PopupNotify.SetCaptionRect - место вывода заголовка
PopupNotify.SetCaption - заголовок
PopupNotify.SetText1Rect - место для текста
PopupNotify.SetText1 - текст
...
PopupNotify.Show

Цитата:

IMPORTANT: This Plugin Is Not Working Under Windows Xp

Здесь имеется ввиду то, что плагин WinApi не будет работать на WinXP без SP2.

Цитата:

А ещё, есть ли в Matrix настройки (ничего не происходит при нажатии) а при нажатии на вкладку Script вылетает.

Так и есть, он не имеет дополнительных настроек, возможно автор добавит в следующей версии.

tavria2
Большое спасибо!
Я ещё хотел узнать, при нажатии на вкладку Script (объект Matrix) только у меня ams вылетает с ошибкой?

Yakim777
У меня тоже вылетает, это из-за того, что автор сделал облегченную версию плагина и не сделал заглушек.

Подскажите пожалуйста, где остановить таймер Page.StartTimer. Пишу на вкладке On Timer строку Page.StopTimer();, а он не останавливаеться?
======
Ой всё проблему решил строку Page.StopTimer(); надо писать самой первой с вверху.

Помогите решить проблему!

Код: File.Open(_SourceFolder.."\\Patch\\Readme_Russian.txt", "", SW_SHOWNORMAL);
result = File.Run(_SourceFolder.."\\Patch\\Patch_rus.exe", "", "", SW_SHOWNORMAL, false);

alfonser
Может лучше так:

Код: Shell.Execute(_SourceFolder.."\\Patch\\Readme_Russian.txt", "open", "", "", SW_SHOWNORMAL, true);
Shell.Execute(_SourceFolder.."\\Patch\\Patch_rus.exe", "open", "", "", SW_SHOWNORMAL, true);

Zloy_Gelud
Все равно однлвременно открывает текстовик и запускает екзешник

alfonser
Не может быть. У меня все работает как надо (сначала текстовик, затем екзешник).