» Autoplay Media Studio

Парни, а никто с Rich объектом не заморачивался?
Чёто он у меня не хочет отрабатывать нажатие клавиши 13 (Enter)... Вместо моего кода просто переводит строку...

Тут уже кто-то спрашивал по поводу всяких обучающих тестов и рич объектов... Решил? А то меня жена напрягла ей утилитку для студентов сваять А че то сходу не пошло...

Идея такова:
Есть тексты, в которых пропущены некоторые слова. СтьЮдент должен их туда вбить сам (не выбрать из предложенного, а вбить самостоятельно).
Как только он вобьет верные слова всего текста, делается отметка в отчете, типа "зачтено".
Это если в двух словах
Ща в раздумьях, как это лучше и логичнее реализовать, бо не очень комильфо забивать все варианты ручками... да и пока непонятно, на чем вообще это реализовать так, чтоб хоть какая автоматизация была...

Есть наколки у кого? Хоть советом или идеей...

Помогите. Есть меню из флажков нужно нажатием одной кнопки выделить все флажки а другой снять виделение с флажков, третьей приступить к установки программ. Как ето можна зделать

GOOSE
Здраасти!
На счёт утилитки для студентов, я себе это так представляю: текст, в место пропущенных слов Input, каждый Imput имеет оброзец слова с каторым он должен сверяться, дапустим Imput1 = Пиво. В слве пиво 4 буквы, именно это количество символов и запустит скрипт каторый сравнит оброзец с введённым словом и если верно , то бинго! На счёт слов каторые кароче 4 символов: при введении каждого символа скрипт сверяет символы с оброзцом и если вдруг промох, к примерк должно быти Пиво, ввели, первую букву правельно "П" скрипт сверил первую введённую с первой в образце "ок" можно набирать дальше, но вот вторая буква введена не правельно "р", скрипт снова сверяет, но уже вторую введённую со второй в оброзце, замнчает разницу и посылает СтЮдента читать Толковый словарь!
Если что-то не так, то извенити , это было лиш предложение!

AleksejTokarev
Неее Задачи сравнивать посимвольно слава богу не стоит
Вариант с Input уже написан, там проблем нет.
Но в каждом таком объекте я ручками прописал проверочное слово (ну или из инишника его взять, это несущественно...
Но реализация мне не нра... неспортивно как-то
Пробовал заморочиться с Rich-ем, но то ли он глючит, то ли у меня ручки кривые

Добавлено:
xMedvedx
Задача тривиальна до жути... Почитай помощь, попробуй сам че нибудь сделать. Не получится, тогда спрашивай, поможем!

Хдрасти Всем!!!

Есть нужда по средствам АМS получить кучу инфы о компе, типа:
1. Имя (компа)
2. Страна
3. Язык
4. Пользователь
5. I.P. адресс
6. Опирационная система
7. Инфа о проце (Скорасть, модель)
8. Объем оперативной памяти
9. Дата и время
10. Объём винтов
11. и многое другое

каждый пункт желательно получить в отделном Input.

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

Прошу прощение за мою назойливость, Никто не вкурсе почему же у меня понт с

Цитата:

Имеется трабл с вот таким скриптиком : Web.Back("Web1");

xMedvedx



Цитата:

Помогите. Есть меню из флажков нужно нажатием одной кнопки выделить все флажки а другой снять виделение с флажков,

Посмотри вот этот проектик!!!

http://www.rapidshare.ru/609025

Пропеши на кнопке каторая поставит галочки


Код: CheckBox.SetChecked("CheckBox1", true);
CheckBox.SetChecked("CheckBox2", true);
CheckBox.SetChecked("CheckBox3", true);
CheckBox.SetChecked("CheckBox4", true);

AleksejTokarev (переписано)

Код: function OSInfo()
    -- обозначаем переменные
    local sComputerName = "";
    local sCountry = "";
    local sLanguage = "";
    local sRegOwner = "";
    local sIP = "";
    local sOS = ""
    local sProcessorName = "";
    local sMHz = "";
    local sTotalRAM = "";
    local sDate = "";
    local sTime = "";
    local sDrives = "";
    
    -- таблица сведений о системе
    tOSInfo = {};
    
    --[[
        Имя компьютера
    ]]--
    -- имя компа берем из реестра
    local sComputerName = Registry.GetValue(HKEY_LOCAL_MACHINE, "System\\ControlSet001\\Control\\ComputerName\\ActiveComputerName", "ComputerName", true);
    -- если получили не пустую строку
    if (sComputerName ~= "") then
        -- добавляем значение в таблицу
        tOSInfo.ComputerName = sComputerName;
    end
    
    --[[
        Имя пользователя
    ]]--
    tOSInfo.RegOwner = System.GetUserInfo().RegOwner;
    
    --[[
        Операционная система
    ]]--
    -- название системы
    local sOSName = System.GetOSName();
    -- таблица версий ОС
    local tOSVersionInfo = System.GetOSVersionInfo();
    -- формируем строку инфы об операционке
    local sOS = sOSName..tOSVersionInfo.CSDVersion.." (build "..tOSVersionInfo.BuildNumber..")";
    tOSInfo.OS = sOS;
    
    --[[
        Процессор
    ]]--
    -- имя процессора
    local cProcessorName = String.TrimLeft(Registry.GetValue(HKEY_LOCAL_MACHINE, "Hardware\\Description\\System\\CentralProcessor\\0", "ProcessorNameString", true), nil);            
    tOSInfo.ProcessorName = cProcessorName;
    -- частоа процессора
    cMHz = Registry.GetValue(HKEY_LOCAL_MACHINE, "Hardware\\Description\\System\\CentralProcessor\\0", "~MHz", true);
    tOSInfo.MHz = cMHz.." MHz";
    local tKernels = Registry.GetKeyNames(HKEY_LOCAL_MACHINE, "Hardware\\Description\\System\\CentralProcessor");
    if (tKernels) then
        -- количество ядер
        tOSInfo.KernelsNumber = Table.Count(tKernels);
    end
    
    --[[
        Оперативная память
    ]]--
    sTotalRAM = System.GetMemoryInfo().TotalRAM + 1 .. " Mb";        
    tOSInfo.TotalRAM = sTotalRAM;
    
    --[[
        IP
    ]]--
    sIP = System.GetLANInfo().IP;
    tOSInfo.IP = sIP;
    
    --[[
        Страна
    ]]--
    sCountry = WinApi.GetLocaleInfo("1", "0x00000006");
    tOSInfo.Country = sCountry;
    
    --[[
        Язык
    ]]--
    sLanguage = WinApi.GetLocaleInfo("1", "0x00000002");
    tOSInfo.Language = sLanguage;

    --[[
        Системная дата
    ]]--
    sDate = System.GetDate(DATE_FMT_EUROPE);
    tOSInfo.Date = sDate;
    
    --[[
        Системное время
    ]]--
    sTime = System.GetTime(TIME_FMT_MIL);
    tOSInfo.Time = sTime;

    --[[
        Локальные диски
    ]]--    
-----------------------------------------------------
    local function GetDrives()
        tDrives = {}
        local tDriveLetter = Drive.Enumerate();
        if (tDriveLetter) then
            for n, cDriveLetter in tDriveLetter do
                if (Drive.GetType(cDriveLetter) == 3) then
                    sSize = String.GetFormattedSize(Drive.GetSize(cDriveLetter)*1024^2, FMTSIZE_GB, true);
                    tDrives[Table.Count(tDrives) + 1] = {DriveLetter = String.Left(cDriveLetter, 2), Size = sSize}
                end
            end
        end
        return tDrives;
    end
-----------------------------------------------------
    local tDrives = GetDrives();
    for n, tDrive in tDrives do        
        sDrives = sDrives..tDrive.DriveLetter.." - "..tDrive.Size.." всего\r\n";
    end    
    tOSInfo.Drives = sDrives;
    
    return tOSInfo;
end

удалил

qqwwrr
1. По поводу пароля... буквально чуть выше Sprintstar такое себе реализовал. Где-то на предыдущих страницах это описывалось...

2. Достаточно почитать статью из шапки, именно это там и реализовано в учебном примере...

3. Несколько сложнее, но если почитать форум и файл помощи к программе, то это возможно...

ЗЫ Но конечно, проще спросить это в сотый раз...

Zloy_Gelud

Гутэн день!!!

Спасибеще огромное за Помощ!!!


Цитата:

Не забудь подключить плагин WinApi.
On Preload страницы

Стыдно сказать, ноя нигде немогу найти этот плагин "WinApi" я понял так что он по умолчанию на студии не стоит, но и в Нэте я не обнаружил ничего полезного, в шапке тоже рылся, не нашел. Простити меня за мою невнимательность если я гдето просмотрел Ткните меня в ссылку!

AleksejTokarev
Не в той шапке смотрел тынц

GOOSE


Цитата:

Не в той шапке смотрел тынц

А чё так

Извините, гости не могут заходить в этот форум. Пожалуйста зарегистрируйтесь!.
Возможные причины:
Неправильный пароль
Неправильное имя пользователя
Незарегистрированный Пользователь


Я же вроди бы как НЕ гость. Или?

AleksejTokarev
Действительно странно, что не получаеццо зайти..
А вот сцылко на плагин.

ЛЮЮЮЮДИИИИИИИИИИИИИИИИИИИИ!!!
Помогите мне безрукаму!

Немагу установить этот плюг.
Сую папку с Плагином "WinApi" по ентому адрессу:

C:\Programme\AutoPlay Media Studio 7.0 Trial\Plugins

Пробовал ещё сюда:

C:\Programme\AutoPlay Media Studio 7.0 Trial\Plugins\Objects

Не видит, студия плюг не видит. Почему, что я не нажал?

Нужна помощь. Есть меню из флажков.
1) Opera
2) Qip
3) FlashGet
Флажки выделение, как сделать чтобы при нажатии кнопки УСТАНОВИТЬ произошла установка программ последовательно 1,2,3.

По возможности с проектом

AleksejTokarev
Копируй папку WinApi из архива в папку C:\Program Files\AutoPlay Media Studio 7.0\Plugins\Actions, а подключать его надо из меню Project > Plugins.
xMedvedx
А шапку читать не пробывал?

Пробувал, но у меня нечего не выходить. Нужна помощь.

xMedvedx
Что собственно не выходит?..Ето не работает что ли?

Код: result = File.Run("AutoPlay\\Docs\\test1.exe", "", "", SW_SHOWNORMAL, true);
result = File.Run("AutoPlay\\Docs\\test2.exe", "", "", SW_SHOWNORMAL, true);
result = File.Run("AutoPlay\\Docs\\test3.exe", "", "", SW_SHOWNORMAL, true);

Zloy_Gelud

On Preload 1-й страницы:
Window.SetMask(Application.GetWndHandle(), "AutoPlay\\Images\\Mask.png", true, 0);
On Preload 2-й страницы:
Window.SetMask(Application.GetWndHandle(), "", true, 0);

P.S. В настройках проекта установи стандартный стиль окна.

tavria2

Цитата:

On Preload 1-й страницы:

К сожалению ето не подходит, т.к. получаеццо что маска обрезает (закругление) края окна стандартного стиля.. а мне так не надо..надо что-то типа Flat+Mask..

Цитата:

Код:result = File.Run("AutoPlay\\Docs\\test1.exe", "", "", SW_SHOWNORMAL, true);
result = File.Run("AutoPlay\\Docs\\test2.exe", "", "", SW_SHOWNORMAL, true);
result = File.Run("AutoPlay\\Docs\\test3.exe", "", "", SW_SHOWNORMAL, true);

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

Есть вопрос:

При запуске фун-ии скачивания файла с сайта проект как бы немного повисает. Например если навести курсор мышки в это время на кнопку, то она подсветится с 2-3-x секундной задержкой. Можно-ли это как-то исправить, или такова особенность проектов ams?

AleksejTokarev

Цитата:

А чё так

Терзают меня смутные сомнения.... что ты из-за бугра Попробуй IP поменять.
xMedvedx
Проект тебе делать не будут. Тем более, что ты даже не утруждаешь себя объяснить, ЧТО ты делал, ЧТО у тебя не получается...
servint
Посмотри функцию... Там скорее всего скрипт ждет ответа сервера... потому и как бы подтормаживает. На самом деле просто выполняется скрипт. Думаю, что либо переписать, либо смириться

Цитата:

ЧТО у тебя не получается.

Как на флажку выбрать программу?
как сделать чтобы при нажатии кнопки УСТАНОВИТЬ произошла установка?

GOOSE
Ok )) Выбрал 2-ой вариант ))

xMedvedx

Цитата:

Как на флажку выбрать программу?

Извини, это я не понял вообще...
Для того, чтобы при нажатии на кнопку установить программу, нужно использовать действие File.Run, о чем тебе уже выше и сказали.
Ты пробовал вставить на On Click кнопки это действие? Ты посмотрел статью из шапки, в которой как раз и описывается простой способ организации установочного диска для софта?

Zloy_Gelud



Спасибище! вссё поехоло как по маслу


GOOSE


Цитата:

Терзают меня смутные сомнения.... что ты из-за бугра

Ну вообще- то не за огородом!

А что, если я из "Немчании" зарегистрировался то невезде пускают?


Ещё раз всем спасибо за суету!!!

xMedvedx

То что тебе написал Zloy_Gelud, это работает на ура.!

В этом скрипте тебе всего навсего нужно изменить AutoPlay\\Docs\\test1.exe на путь к твоей проге. Ну к примеру AutoPlay\\Docs\\Opera.exe

В АМS все команды выполняются по очереди, в данном скрипте 3 команды: первая для программы с названием "test1.exe", в твоём случае это "Opera" и так далее!!!


Цитата:

result = File.Run("AutoPlay\\Docs\\Opera.exe", "", "", SW_SHOWNORMAL, true);
result = File.Run("AutoPlay\\Docs\\Qip.exe", "", "", SW_SHOWNORMAL, true);
result = File.Run("AutoPlay\\Docs\\FlashGet.exe", "", "", SW_SHOWNORMAL, true);

Подскажите. новичку...... Ставлю в установках проекта возможность изменять размер окна . Но при предпросмотре проекта окно изменяет размер но кнопки и все другие обькты не уменьшаються вместе с окном... Можно ли так сделать чтоб при уменшении окна уменшались и обьекты.........
И вообще меня беспокоит вопрос какой размер проекта оптимальный. Чтоб на любом компе при любом разрешении екрана было всё видно........

Здобрый День!!!

Раскжите мне пожалуйста как бороться с объектом "ComboBox"

У меня значит такая история!
Имеется ИНИ фийлик каторый соберает всякие данные,

В нутри ИНИ файл выглядет так :

[08:07:25]
Camputer Name=Komp
Ort=Germany
Sprache=Russisch
Benutzer=Ja

[09:10:32]
Camputer Name=Kosmos
Ort=Germany
Sprache=Deutsch
Benutzer=Sila

Как можно сделать так чтобы все имеющиеся в ИНИ Файле (Section)
Выводились в "ComboBox", а затем после выбора нужной (Section)
выводилось все (Data) в "Label"?

AleksejTokarev

На странице в On Show


Цитата:

mainsection = INIFile.GetSectionNames(_WindowsFolder.."\\My.ini");
for index_section, section in mainsection do
local comp = INIFile.GetValue(_WindowsFolder.."\\My.ini", section, "Camputer Name");
local ort = INIFile.GetValue(_WindowsFolder.."\\My.ini", section, "Ort");
local sprache = INIFile.GetValue(_WindowsFolder.."\\My.ini", section, "Sprache");
local benutzer = INIFile.GetValue(_WindowsFolder.."\\My.ini", section, "Benutzer");
if comp ~= "" then
ComboBox.AddItem("ComboBox1", section, comp.."\r\n"..ort.."\r\n"..sprache.."\r\n"..benutzer);
end
end

В объекте ComboBox1 в On Select


Цитата:

local data = ComboBox.GetItemData("ComboBox1", e_Selection);
Paragraph.SetText("Paragraph1", data);

Lexua

Здрасти!
Немагу разобраться, пишит ошибку!
Если есь времечко глянти: http://www.rapidshare.ru/616162

Спасибо за рание