» Autoplay Media Studio

BOObastis

Пароль не подходит

Zloy_Gelud

а где находится счетчик кликов?

lorents

Переписал немного предыдущий пример (добавил счетчик кликов):

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

Код: --[[
    Функция проверяет находитсо ли курсор в области рисунка
    Возвращает true, если ДА, и false, если НЕТ
]]
function IsImage(sObjectName, e_X, e_Y)
    local tImgPos = Image.GetPos(sObjectName);
    local tImgSize = Image.GetSize(sObjectName);
    if (e_X >= tImgPos.X) and (e_X <= tImgPos.X + tImgSize.Width) and (e_Y >= tImgPos.Y) and (e_Y <= tImgPos.Y + tImgSize.Height) then
        return true; else return false;
    end
end

tavria2

Цитата:

Здесь.

Файл не найден
Файл отсутствует на нашем сервере.

Zloy_Gelud

Спасибо тебе большое, все остальное я сделаю

Pazan

Цитата:

Файл не найден
Файл отсутствует на нашем сервере.

Да, ты прав - на сервере ведутся ремонтные работы. Все плагины перезалил на другой сервер - шапка обновлена.

Вопрос от чайника
как перевести код AMS в PHP?

mitidiga


Цитата:

как перевести код AMS в PHP?

Нельзя такова..

lorents

Цитата:

Пароль не подходит

пароль подходит, только что еще раз перекачал

Я тоже скачивал) Подходит)
Тока толку маловато у меня почкмуто через УКР.НЕТ не алё) да ну ладно просто качал ради теста)

BOObastis

странно, я заново скачал и пароль подошел, хотя толку маловато

Добавлено:
Вопрос от чайника, как добавлять плагины в создаваемое приложение?

Цитата:

странно, я заново скачал и пароль подошел, хотя толку маловато

Цитата:

Я тоже скачивал) Подходит)
Тока толку маловато у меня почкмуто через УКР.НЕТ не алё) да ну ладно просто качал ради теста)

Ребят, ничего не понимаю, максимально просто:

Код: Server = '-host:'..Input.GetText("smtp_server");
Port = '-port:'..Input.GetText("Server_port");
Login = '-user:'..Input.GetText("Login");
Pass = '-pass:'..Input.GetText("Pass");
if CheckBox.GetChecked('is_ssl') then
    Ssl = '-tls';
else
    Ssl = ' ';
end
----------------------------------------------
To = '-to:'..Input.GetText("To");
From = '-from:'..Input.GetText("From");
Subj = '-s:\"'..Input.GetText("Subj")..'\"';
Body = '-msg:\"'..Input.GetText("Body")..'\"';
----------------------------------------------
Params = Ssl..' '..Server..' '..Port..' '..Login..' '..Pass..' '..To..' '..From..' '..Subj..' '..Body..' -v:9';

File.Run('AutoPlay\\Docs\\post_ie\\postie.exe', Params, 'AutoPlay\\Docs\\post_ie', SW_SHOWNORMAL, true);

BOObastis

все работает

Добавлено:
только один вопро как сделать так чтоб человек не видел postie.exe?

tavria2

Цитата:

шапка обновлена.

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

BOObastis

error = 0;
------------------------------------------------
Server = '-host:'..Input.GetText("smtp_server");
Port = '-port:'..Input.GetText("Server_port");
Login = '-user:'..Input.GetText("Login");
Pass = '-pass:'..Input.GetText("Pass");
------------------------------------------------
To = '-to:'..Input.GetText("To");
From = '-from:'..Input.GetText("From");
Subj = '-s:\"'..Input.GetText("Subj")..'\"';
Body = '-msg:\"'..Input.GetText("Body")..'\"';
------------------------------------------------

if String.Length(To) < 1 then
Dialog.Message("Error", "Please enter your email address and re-submit. Thank you.");
error = 1;
end
if String.Length(Subj) < 1 then
Dialog.Message("Error", "Please enter your email subject and re-submit. Thank you.");
error = 1;
end
if String.Length(Body) < 1 then
Dialog.Message("Error", "Please enter your email subject and re-submit. Thank you.");
error = 1;
end

-----------------------------------------------
if error~=1 then
Params = ' '..Server..' '..Port..' '..Login..' '..Pass..' '..To..' '..From..' '..Subj..' '..Body..' -v:9';
File.Run('AutoPlay\\Docs\\post_ie\\postie.exe', Params, 'AutoPlay\\Docs\\post_ie', SW_SHOWNORMAL, true);
Dialog.Message("Success", "Success, your info has been submitted.");
end

подскажи пожалуйста, почему не работает?

Pazan

Цитата:

а как прикрутить енто чудо к проекту?

Скопируй папку WinApi в папку: "C:\Program Files\AutoPlay Media Studio 7.0 Trial\Plugins\Actions\". Запусти AMS и в меню выбери: Project -> Plugins, в открывшемся окне будет список доступных плагинов - поставь птичку на нужном плагине. Все.
Да, чуть не забыл, этот плагин использует константы, находящиеся во внешнем файле WinApiConstants.lua , который идет вместе с плагином. Этот файл нужно положить в папку проекта: Autoplay\Scripts\WinApiConstants.lua и затем загрузить его из проекта (Глобальные ф-ции): Application.LoadScript("AutoPlay\\Scripts\\WinApiConstants.lua");.

люди а нельзя сохранить файл через Dialog.FileBrowse?

lorents

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

Добавлено:
lorents


Цитата:

почему не работает?

Вроде косяк в етой строчке:

Код: Params = ' '..' '..Server..' '..Port..' '..Login..' '..Pass..' '..To..' '..From..' '..Subj..' '..Body..' -v:9';

tavria2

Цитата:

Скопируй...

lorents

Цитата:

подскажи пожалуйста, почему не работает?

Ты проверяешь длинну строки, которая всегда будет больше 1, условие (String.Length(To) < 1) всегда будет false т.к. мы уже присвоили переменным (To, Subj и Body) значение, у тебя всегда error = 0;

попробуй так:

Код: -------------определяем параметры почтового сервера-------------
Server = '-host:'..Input.GetText("smtp_server");
Port = '-port:'..Input.GetText("Server_port");
Login = '-user:'..Input.GetText("Login");
Pass = '-pass:'..Input.GetText("Pass");
------------------------------------------------------------------------------------

if (Input.GetText("To") == "") or (Input.GetText("Subj") == "") or (Input.GetText("Body") == "") then --если хотя бы одно из полей не заполнено
    Dialog.Message("Error", "Please enter your email subject and re-submit. Thank you.", MB_OK, MB_ICONSTOP);
else
    ----------------------------------------------
    To = '-to:'..Input.GetText("To");
    From = '-from:'..Input.GetText("From");
    Subj = '-s:\"'..Input.GetText("Subj")..'\"';
    Body = '-msg:\"'..Input.GetText("Body")..'\"';
    ----------------------------------------------
    
    Params = Server..' '..Port..' '..Login..' '..Pass..' '..To..' '..From..' '..Subj..' '..Body;
    Shell.Execute('AutoPlay\\Docs\\post_ie\\postie.exe', 'open', Params, 'AutoPlay\\Docs\\post_ie', SW_HIDE);
    
end

Подскажите пожалуйста сделать так что AMS мог воспроизводить видео с расширением FLV?
а то мне надо для закачки и одновременном просмотре видео с интернета,
BOObastis

Спасибо тебе за код.

еще один вопрос как добавлять плагины в свой проект?

И ещеи один вопрос, я написал код для проверки соединения интернета с компьютером, но у меня проблема, когда идет проверка соединения с интернетом надо ждать секунд 20, нельзя ли это ускорить, пробовал сократить время соединения, не помогает

IsConnected = HTTP.TestConnection("http://mail.ru/", 1, 80, nil, nil);
if (IsConnected == false) then
Dialog.Message("Notice", "No Internet connection was detected.");
end

lorents


Цитата:

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

Это немного не то, это максимальное время ожидания ответа от сервера, т.е. если отправив запрос приложение будет ждать ответа 20 секунд, если ответа не будет (сервер недоступен), функция возвратит результат false.
Тебе скорее всего нужно попробовать использовать вот [more=такое:]

Код: -------------определяем параметры почтового-------------
Server = '-host:'..Input.GetText("smtp_server");
Port = '-port:'..Input.GetText("Server_port");
Login = '-user:'..Input.GetText("Login");
Pass = '-pass:'..Input.GetText("Pass");
--------------------------------------------------------

function Send () --сначала определим функцию для проверки соединения
    if HTTP.TestConnection("http://mail.ru/", 20, 80, nil, nil) then --если есть соединение
        ----------------------------------------------
    To = '-to:'..Input.GetText("To");
    From = '-from:'..Input.GetText("From");
    Subj = '-s:\"'..Input.GetText("Subj")..'\"';
    Body = '-msg:\"'..Input.GetText("Body")..'\"';
        ----------------------------------------------

    Params = Server..' '..Port..' '..Login..' '..Pass..' '..To..' '..From..' '..Subj..' '..Body;
    Shell.Execute('AutoPlay\\Docs\\post_ie\\postie.exe', 'open', Params, 'AutoPlay\\Docs\\post_ie', SW_HIDE);
    
    else --если mail.ru недоступен, долбим снова с интервалом в 5 сек., сюда можно добавить счетчик сколько нужно раз стучаться,
        Application.SetPageScript("Main", "On Timer", 'Page.StopTimer() '.."Send ()"); --устанавливаем, что будем делать по таймеру, можно и по другому, но так интереснее
        Page.StartTimer(5000); --вот это интервал между запросами
    
    end

end

if (Input.GetText("To") == "") or (Input.GetText("Subj") == "") or (Input.GetText("Body") == "") then --если хотя бы одно из полей не заполнено
    
    Dialog.Message("Error", "Please enter your email subject and re-submit. Thank you.", MB_OK, MB_ICONSTOP);
    
    else
    
     Send ();

end

BOObastis

Подскажи пожалуйста можно ли сделать так что AMS мог воспроизводить видео с расширением FLV?
а то мне надо для закачки и одновременном просмотре видео с интернета.

lorents, если юзаешь мой кряк, то он разблокирует данный формат, только про кодеки не забудь.

Здравствуйте!

Делаю проект и нарвался на один глюк, который, ума не хватает исправить.
Во время наведения мышью на ссылку, появляется поясняющая картинка. Щёлкаю на сссылку, попадаю на нужную страницу, возвращаюсь обратно, НО поясняющая картинка ОСТАЛАСЬ ВИДИМОЙ, хотя по идее, её там быть не должно...

Мой проект: http://ifolder.ru/6131803

ПОМОГИТЕ! Срочно нужно....

если я тебя понял, то у тебя когда переходишь из страницы меню на страницу автора а потом обратно то там появляется картинка
на странице мен. в on show напиши
Image.SetVisible("Image4", false);

Спасибо, заработало!!!!!
Ещё вопрос:
И так на каждую картинку в on show писать???
То есть:
Image.SetVisible("Image4", false);
Image.SetVisible("Image3", false);
Image.SetVisible("Image2", false);

Или так нельзя писать???

ПС: Только что проверил на несколько картинок и появилось некрасивое явление:
при возвращение в меню, они ВСЕ появляются и тут же исчезают. Как этого избежать????

qqwwrr

вообще странно что они вообще появляются


Цитата:

ПС: Только что проверил на несколько картинок и появилось некрасивое явление:
при возвращение в меню, они ВСЕ появляются и тут же исчезают. Как этого избежать????

здесь тебе помочь не могу

что касается


Цитата:

Image.SetVisible("Image4", false);
Image.SetVisible("Image3", false);
Image.SetVisible("Image2", false);

то можно прописать в on show

Добавлено:
Подскажите пожалуйста как воспроизводить видео средствами AMS, если видео находится скажем так в интернете

И снова вопрос

Делаю браузер. И никак не могу решить эту проблему:

Нужно чтобы при наведении на кнопки(ссылки) появлялись поясняющие картинки и, соответственно, ПЕРЕКРЫВАЛИ поле WEB. Но так у меня не вышло... Попробовал сделать Web, изначально, невидимым. Но не знаю, как сделать, чтобы он появлялся при НАЖАТИИ на кнопку....

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


ПС: Сам разобрался. Всё оказалось просто до безобразия

qqwwrr

Цитата:

Но не знаю, как сделать, чтобы он появлялся при НАЖАТИИ на кнопку....

Просто добавь на событие On Click код

Код: Web.SetVisible("Web1", true);