» Autoplay Media Studio

да 100 % и не нужно. Просто надо с глаз убрать все запускные файлы и картинки.

what i am trying to do is;
if the scrollbar is at the bottom scroll it up and if it is up scrool it down !! what i am doing wrong ??? it comes down but not up...


Code:
Page.StopTimer()
nSpeed=String.ToNumber(Input.GetText("Input1"))
if ScrollWeb ~= SB_BOTTOM then
ScrollWeb("Web1", WM_VSCROLL, SB_LINEDOWN) else
ScrollWeb("Web1", WM_VSCROLL, SB_LINEUP)
end
Page.StartTimer(nSpeed)

tavria2

Код: function SetRedraw(bRedraw)
    local WM_SETREDRAW = "0xB";
    local hWnd = Application.GetWndHandle();
    if (bRedraw == true) then
        wParam = 1;
    else
        wParam = 0;
    end
    DLL.CallFunction("user32.dll", "SendMessageA", hWnd..","..WM_SETREDRAW..","..wParam..",0", DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL);
end
SetRedraw(false);

they dont really help if you dont buy their plugins...

Zloy_Gelud

Цитата:

local WM_SETREDRAW = "0xB";

Допустил сразу 2 ошибки:
1. Если параметр dll строковый, то берется в двойные кавычки, иначе значение будет рассматриваться как числовое
2. Т.к. AMS не поддерживает работу с шестнадцатиричными числами, то API-флаги нужно переводить в десятичные числа. Перевести можешь штатным калькулятором винды:

Код: local WM_SETREDRAW = 11;

tavria2

Цитата:

local WM_SETREDRAW = 11;

Вроде и так делал..Счас еще раз попробую.

tavria2
Заработало!! И отличненько то как Спасибо за помошь.

Приветствую вас!!
А подскажите, как мне врубить музон после restore окна??
Спасибо

Помогите, пожалуйста!

Как сделать, чтобы при нажатии правой кнопки мыши на иконку в системном трее появлялось дополнительное меню?

Требуется создать презентацию такого вида - есть html файлы (~ 120 штук), в которых вставлены объекты media player'a с помощью такого кода -

function play(media){
document.getElementById('mediaplayer').innerHTML='<OBJECT ID="MediaPlayer1" CLASSID="CLSID:22d6f312-b0f6-11d0-94ab-0080c74c7e95" ... и.т.д.

и есть 6000 аудио файлов связанных с этими html страницами, то есть по нажатию на объект Media Player'a проигрывается один из данных mp3 файлов. В браузерах все играется нормально.
Нужно сделать из этих html и mp3 один exe файл, чтобы все аудио объекты работали. Я создал проект, забросил все html в Docs, а mp3 файлы в папку Audio, кинул Web1 и все html страницы загружаются нормально, но вот с внедренным аудио плеером проблема - не показывается даже иконка с кнопкой Play (круглая такая). Как быть, посоветуйте, пожалуйста.

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

Пожалуйста помогите создать autorun как на лиц. играх с проверками реестра !!!
Пользуюсь программой AutoPlay Menu Builder 4 года. Создавал различные меню быстро и просто программа очень удобная, но в ней нет таких возможностей как в Autoplay Media Studio. Решил перейти на AMS создал меню все работает, но не могу разобраться с доп. функциями.
Статьи читал, и то что писал Lexua не помогло (Это так выглядит:Ставим кнопку и пишем)
где писать? Ссылки Kindly сдохли. И где писать скрипт если можно по подробнее или есть где дайте ссылку плиз !!!

pottapchik

Код: Window.Restore(Application.GetWndHandle());
Audio.Play(CHANNEL_BACKGROUND);

Спасибо!!! Zloy_Gelud Буду искать.

Zloy_Gelud
Ты меня наверно не понял, у меня по нажатию кнопки играется звуковой файл и одновременно отрубается звук бекграундгный и идет минимизирование проекта. Ну вот,я хочу чтобы после этого, когда я восстановлю проект , опять играла музыка. Т.Е. я думаю мне нужна вкладка в пропертях страници "On size", но я не знаю как написать скрипт, чтобы после восстановления музло игралось.

pottapchik

Цитата:

Ты меня наверно не понял

Скорее ты сразу не постарался получше объяснить суть проблемы.
On Preload:

Код: Page.StartTimer(100);

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

pottapchik

Для первого варианта ты плагин подключал?
Ну а вообще кое-чего надо прояснить..Итак. В проекте имеется некая таинственная кнопка, по нажатию на которую начинает проигрываться некоторый звуковой файл, отрубается фоновая музыка и сворачивается проект? При обратном восстановлении проекта некий звуковой файл должен "замолчать", а фоновая музыка должна вновь порадовать нас своим пением? Я правильно понимаю?

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

Добавлено:
Zloy_Gelud
подрубил все плагины во вкладке прожект - плагины, усеровано

pottapchik

Цитата:

Плагин? а какой именно?

WinApi 2.1 --> go in Варезник
Наверно стоит все таки в шапку стоит занести ссылку в дружественный раздел.

---

Попробуй такое..
Добавь в кнопку сворачивания проекта:

Код: Audio.Pause(CHANNEL_BACKGROUND);        -- приостанавливаем воспр. фон. музыки
Page.StartTimer(100);                    -- запускаем таймер

Zloy_Gelud
он сразу, через секунду начинает играть, когда в трей окно сворачиваю, т.е. таймер по сути работает только вот условие, окно свернуто а он его играет

pottapchik

Цитата:

когда в трей окно сворачиваю

«Вот оно что, Иваныч...»
Проблема именно в том, что ты сворачиваешь в трей, поетому и некорректно работает. Я сворачиваю в панель задач - все норм.

Zloy_Gelud
Да усё у лучшем виде)))
А в трее почему не пашет??

Добавлено:
Zloy_Gelud
спасибо

Разобрался с запуском игр через реестр может комуто пригодится!!!
Пример:
exeRunPath = Registry.GetValue(HKEY_LOCAL_MACHINE, "Software\\prey", "InstallPath", true);
File.Run(exeRunPath.."\\prey.exe", "", exeRunPath, SW_SHOWNORMAL, false);

Но, кнопка всегда активна. Помогите сделать, чтобы если есть параметр в реестре кнопка была активна, а сли нет то неактивна.
И если можно когда реестр пуст кнопка (Установить) "Run Setup.exe",а если полон то кнопка (Установить) менялась на (Играть)"Параметр реестра".
Или еще лучше если нет реестра то (Меню1) Если есть то (Меню2).
Два дня убил не получается, и справка огромная да еще и на английском!
Помогите пожалуйста!!!

blaster4
Ну что по двести раз мусолить одно и то же?
Или воспользуйся поиском в Версии для печати или скачай готовый авторан с сайта GOOSE'a.

blaster4

Цитата:

Помогите сделать, чтобы если есть параметр в реестре кнопка была активна, а сли нет то неактивна.

Используй

Цитата:

result = Registry.DoesKeyExist(HKEY_LOCAL_MACHINE, "Software\\prey");
if result then
Button.SetEnabled("Button_Run", true);
else
Button.SetEnabled("Button_Run", false);
end

Цитата:

И если можно когда реестр пуст кнопка (Установить) "Run Setup.exe",а если полон то кнопка (Установить) менялась на (Играть)"Параметр реестра".

Цитата:

result = Registry.DoesKeyExist(HKEY_LOCAL_MACHINE, "Software\\prey");
if result then
Button.SetVisible("Button_Run", true);
Button.SetVisible("Button_Install", false);
else
Button.SetEnabled("Button_Run", false);
Button.SetVisible("Button_Install", true);
end

кнопки находятся одна над другой. Можно сделать и на одной кнопке, но код будет чуть посложнее для самой кнопки


Цитата:

result = Registry.DoesKeyExist(HKEY_LOCAL_MACHINE, "Software\\prey");
if result then
Button.SetText("Button1", "Run Game");
else
Button.SetText("Button1", "Install Game");
end

и в On Click кнопки прописывай соответственно условие


Цитата:

if result then
File.Run(exeRunPath.."\\prey.exe", "", exeRunPath, SW_SHOWNORMAL, false); -- запуск игры
else
File.Run(InstallRunPath.."\\myfile.exe", "", InstallRunPath, SW_SHOWNORMAL, false); -- установка игры
end

Цитата:

Или еще лучше если нет реестра то (Меню1) Если есть то (Меню2).

Ну тут практически аналогично, думаю сам разберешься
end


Добавлено:
Zloy_Gelud
Хэх, не видел твой добрый пост

Код: -- Set the page's properties.
Application.SetPageProperties("Zav'jalova 2", tblPageProps);
-- Page properties table.
tblPageProps = {};
tblPageProps.BackgroundType = 2;
tblPageProps.ImageFilename = "AutoPlay\Images\0707_dresden_elbe.jpg";
tblPageProps.ImageStretchMode = BG_IMG_FITPAGE;
tblPageProps.Description = "My Page Description";

pottapchik
Ну естесно..Ты пытаешься устанавливать свойства страницы, описанные в таблице tblPageProps, которой еще не существует (она у тебя создается позже). Делай так:

Код: -- Page properties table.
tblPageProps = {};
tblPageProps.BackgroundType = 2;
tblPageProps.ImageFilename = "AutoPlay\Images\0707_dresden_elbe.jpg";
tblPageProps.ImageStretchMode = BG_IMG_FITPAGE;
tblPageProps.Description = "My Page Description";
-- Set the page's properties.
Application.SetPageProperties("Zav'jalova 2", tblPageProps);

Lexua
Огромое спасибо!!!!!
Все прекрасно работает, а я два дня пальцем в небо тыкал.
Только с переходом Меню (Page1) на (Page2) не могу разобраться
то к мышке прилипнет то еще какая не будь Ерунда получается!
Если не сложно подскажите пожалуйста.

blaster4

Цитата:

Только с переходом Меню (Page1) на (Page2) не могу разобраться

Более понятно вырази свою мысль. Что ты хочешь получить? Я например не понял

тут такая проблема
есть код

Код: bStop = false;
function Callback(strSource, strDestination, nCopied, nTotal)
local nPercent = Math.Round(nCopied / nTotal * 100, 0);
Progress.SetText("Progress1", Math.Round(nPercent, 0).."%");
Progress.SetCurrentPos("Progress1", nPercent);
Label.SetText("Label1", strOutFile);
if (bStop) then
        Progress.SetCurrentPos("Progress1", 0);
        Progress.SetText("Progress1", "");
    File.Delete(strOutFile, false, false, false, nil);
return false;
else
return true;
end
end
function SaveAs(strOutDir, strOutFileName)
strFileToCopy = "AutoPlay\\Videos\\ВТО. Изменения в российской экономике.wmv";
local strFiles = CommonDialogs.File(false, "Сохранить",strOutDir, "Видео файл (*.wmv)|*.wmv|", strOutFileName, "wmv", false);
if (strFiles ~= "CANCEL") then
local tblFiles = WinApi.DelimitedStringToTable(strFiles, "|");
if (tblFiles) then
if (File.DoesExist(tblFiles[1])) then
local cBut = Dialog.Message("Сохранить как", tblFiles[1].."\r\nУже существует.\r\nЗаменить существующий файл?", MB_YESNO, MB_ICONQUESTION, MB_DEFBUTTON1);
if (cBut == 6) then
strOutFile = tblFiles[1];
                    Paragraph.SetText("Paragraph2", tblFiles[1]);
                    Paragraph.SetProperties("Paragraph2", {TooltipText = tblFiles[1]});
                    File.Copy(strFileToCopy, tblFiles[1], true, true, true, true, Callback);
                    error = Application.GetLastError();
                    if (bStop == false) then
                        if error ~= 0 then
                            result = Dialog.Message("Error", "There was an error copying the files to your system. Please try again.", MB_OK, MB_ICONEXCLAMATION, MB_DEFBUTTON1);
                        else
                            bChecked = CheckBox.GetChecked("CheckBox1");
                            if (bChecked) then
                                File.ExploreFolder(Desktop_Folder, SW_SHOWNORMAL);
                            end
                        end
                    end
                    Window.Close(DialogEx.GetWndHandle(), CLOSEWND_SENDMESSAGE);
else
local strOutDir = String.SplitPath(tblFiles[1]).Drive..String.SplitPath(tblFiles[1]).Folder;
local strOutFileName = String.SplitPath(tblFiles[1]).Filename
SaveAs(strOutDir, strOutFileName);
end
else
strOutFile = tblFiles[1];
                Paragraph.SetText("Paragraph2", tblFiles[1]);
                Paragraph.SetProperties("Paragraph2", {TooltipText = tblFiles[1]});
                File.Copy(strFileToCopy, tblFiles[1], true, true, true, true, Callback);
                error = Application.GetLastError();
                if (bStop == false) then
                    if error ~= 0 then
                        result = Dialog.Message("Error", "There was an error copying the files to your system. Please try again.", MB_OK, MB_ICONEXCLAMATION, MB_DEFBUTTON1);
                    else
                        bChecked = CheckBox.GetChecked("CheckBox1");
                        if (bChecked) then
                            File.ExploreFolder(strOutDir, SW_SHOWNORMAL);
                        end
                    end
                end
                Window.Close(DialogEx.GetWndHandle(), CLOSEWND_SENDMESSAGE);
            end
end
    else
        Window.Close(DialogEx.GetWndHandle(), CLOSEWND_SENDMESSAGE);
end
end
local strOutDir = Shell.GetFolder(SHF_MYDOCUMENTS);
local strOutFileName = "ВТО. Изменения в российской экономике";
SaveAs(strOutDir, strOutFileName);