» Autoplay Media Studio

Я 5ю постами выше спрашивал, и тоже глухо как в танке
был бы zloy_gelud то глухо бы не было

Друзья, подскажите пожалуйста как решить следующую проблему:

Прикрутил Отображение процесса распаковки файла из ZIP-архива + общий прогресс распаковки от Zloy_Gelud все прекрасно работает. Теперь нужно собственно заменить то, что выдает скрипт, а именно "Extracting" и "Item" на русский и вернуть в label.
Я начал копать в сторону string.replace, но ничего не получается.

Всем привет! Отвечать не могу по увожительной причине - Я В Армии! и сорри за офф..

Zloy_Gelud
Чувак мы незнали, бум тебя ждать

Rom4ik84

Код: function line_w(line)
line = String.Replace(line, "Extracting", "Извлекаю", false);
line = String.Replace(line, "Item", "Пункт", false);
Label.SetText("Label1",line);
return
end

function Callback_ZIP(String, Percent, Status)
-- Extracting: путь к папке назначения + извлекаемый файл
local line =String
--Label.SetText("Label1", String);
line_w(line)
....

ПРИВЕТ!КТО ПОДСКАЖЕТ - ЧЕМ МОЖНО ДЕЛАТЬ ПРОГИ ДЛЯ ТИХОЙ УСТАНОВКИ,БЕЗ ВВОДА СЕРИЙНОГО НОМЕРА???тоесть не вводить серийник постоянно,а сделать так,что нажал на нее и все поставилось как надо!!!А проги обычные типа WinRar,PowerDvd ну и тому подобное!!!Обычно в WPI СБОРНИКАХ СОФТА ТАК ПАКУЮТ!может прога есть простенькая для такого дела?

stts09
я думаю тебе надо воспользоватся плагином AutoIt он есть в Варезнике

ЭТОТ AutoIt для пользователя? или надо навыки программера иметь?

Добавлено:
Может есть прога простенькая - собрал прогу серийник и сделал - без наваротов

stts09
есть программа так и называеться AutoIt я правда с ней не работал поиши описание в инете

lerik2703


Цитата:

Код:function line_w(line)
line = String.Replace(line, "Extracting", "Извлекаю", false);
line = String.Replace(line, "Item", "Пункт", false);
Label.SetText("Label1",line);
return
end

function Callback_ZIP(String, Percent, Status)
-- Extracting: путь к папке назначения + извлекаемый файл
local line =String
--Label.SetText("Label1", String);
line_w(line)
....

можно так.

Огромное спасибо, все работает отлично!

Здравствуйте. У меня на данный момент есть меню авторана в котором фоном запускаеться музыка, и кнопки с 3-мя играми. И я вот парюсь, никак неполучаеться сделать так что бы когда я нажал на кнопку запустился сетапник игры, и меню авторна свернулось (а музыка стала на паузу) а когда окно сетапника игры закроеться что бы опять авторан из панели задач появился (музыка опять начала воспроизводиться),как мне это реализовать ? ? ?
Вот что на данный момент у меня есть :

Код:
_Searchdir=_SourceFolder.."\\Трилогия S.T.A.L.K.E.R\S.T.A.L.K.E.R. Тень Чернобыля";

Window.Minimize(Application.GetWndHandle());
Audio.Pause(CHANNEL_BACKGROUND);
File.Run("Трилогия S.T.A.L.K.E.R\S.T.A.L.K.E.R. Тень Чернобыля\\setup.exe", "/w", "", SW_MAXIMIZE, true);
Application.Restore();
Audio.Play(CHANNEL_BACKGROUND);

Цитата:

Window.Minimize(Application.GetWndHandle());
Audio.Pause(CHANNEL_BACKGROUND);
File.Run(_SourceFolder.."Трилогия S.T.A.L.K.E.R\\S.T.A.L.K.E.R. Тень Чернобыля\\setup.exe", "/w", "", SW_MAXIMIZE, true);
Application.Restore();
Audio.Play(CHANNEL_BACKGROUND);

Lexua
я заменил на то что ты написал но выбивается ошибка и необходимый сценарий непроисходит, или там в скрипту надо изменить чет ?



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


Код:
Window.Minimize(Application.GetWndHandle());
Audio.Pause(CHANNEL_BACKGROUND);
File.Run(_SourceFolder.."Трилогия S.T.A.L.K.E.R\\S.T.A.L.K.E.R. Тень Чернобыля\\setup.exe", "/w", "", SW_MAXIMIZE, true);
Application.Restore();
Audio.Play(CHANNEL_BACKGROUND);

Цитата:

запускаеться сетапник и сразу розварачиваеться авторан в чем может быть ошибка ?

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

Подскажите в чем может быть проблема ? Сделал я авторан всё работает как надо (у меня стоит Windows XP), принес к друг диск а авторан у него не запускаеться пишет мол в приложению найдена ошибка и тд.(у него стоит Windows 7) пробовал запускать в режиме совместимости тоже ничего непомогло.

Andreycko В свойствах проекта, закладка Advanced поставте Require administrator
Иначе у друга авторан нужно было запускать от имени администратора.

Lexua та пробовал я и так, а в свойтсвах проекта это стояло. А может быть из-за того что нет какого нибудь java или ещё чего то ?

Господа, нужна ваша помощь. Есть цель, при запуске программы на любом ноутбуке, программа выводила надпись в Label Object, где было бы написано: производитель и модель ноутбука. Например, Samsung R520. Заранее спасибо.

Цитата:

А может быть из-за того что нет какого нибудь java или ещё чего то ?

Andreycko Сложно судить потому, что недостаточно данных -
Цитата:

в приложению найдена ошибка и тд.

Lexua
Вот что написано :

Код:
Сигнатура проблемы:
Имя события проблемы:    APPCRASH
Имя приложения:    autorun.exe_S.T.A.L.K.E.R Трилогия [Rus] , [Ukr] 2010
Версия приложения:    1.0.0.0
Отметка времени приложения:    4a411740
Имя модуля с ошибкой:    ntdll.dll
Версия модуля с ошибкой:    6.1.7600.20548
Отметка времени модуля с ошибкой:    4ad6bca9
Код исключения:    c0000005
Смещение исключения:    00052ba9
Версия ОС:    6.1.7600.2.0.0.256.1
Код языка:    1049
Дополнительные сведения 1:    4208
Дополнительные сведения 2:    42089e10e6ea373e44a0401cd6a14834
Дополнительные сведения 3:    3c2e
Дополнительные сведения 4:    3c2ee18d47385c49c34331027ca9c494

Andreycko
По поводу твоей ошибки посмотри Здесь

Как сделать чтобы инпут 1 показывал модель проца, а инпут 2 объём оперативной памяти ?

RW4PIR
Модель процессора можешь получить из реестра HKEY_LOCAL_MACHINE\Hardware\Description\System\CentralProcessor\0 "ProcessorNameString"
А память System.GetMemoryInfo().TotalRAM +1;

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

Цитата:

Код:function line_w(line)
line = String.Replace(line, "Extracting", "Извлекаю", false);
line = String.Replace(line, "Item", "Пункт", false);
Label.SetText("Label1",line);
return
end

function Callback_ZIP(String, Percent, Status)
-- Extracting: путь к папке назначения + извлекаемый файл
local line =String
--Label.SetText("Label1", String);
line_w(line)
....

можно так.

lerik2703 и Добрые Люди
Аппетит приходит во время еды
Подскажите, пожалуйста, как сделать, чтобы после того как архив полностью распакуется надпись "Extracting" автоматически сменялась на "Item", а не после повторного нажатия на кнопку распаковки, а то останавливается на 100% и не совсем понятно, то ли распаковалось то ли нет. С учетом конечно же предложенной выше функции перевода.
Речь идет о Отображение процесса распаковки файла из ZIP-архива + общий прогресс распаковки от Zloy_Gelud

И еще вопросик. Есть file.pdf, как сделать так, чтобы в случае отсутствия установленной у юзера программы ассоциирующейся с файлами .pdf открывалось окно "открыть с помощью".
Перерыл весь поиск, безрезультатно, может я запрос неправильно строю. Спасибо за помощь!

Rom4ik84 По поводу первого вопроса ответ есть в справке.
После Zip.Extract пиши что-то типа


Цитата:

error = Application.GetLastError();

-- If an error occurred, display the error code message.
if (error ~= 0) then
Dialog.Message("Error", tblErrorMessages[error], MB_OK, MB_ICONEXCLAMATION);
else
Dialog.Message("Success", "The unzipping was successful.", MB_OK, MB_ICONINFORMATION);
end

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

По второму вопросу windows асоциации файлов хранит естеесно в реестре - сюда и рой
Например эту ветку
Цитата:

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.pdf

Опять же справка рулит раздел Registry - Registry.DoesKeyExist и т.д.

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

Со вторым копался, копался и решил немного изменить задачу.
Сделал так: проверяется есть ли дефолтная программа для открытия .pdf файла, если да, то открыть через нее, если нет, то выдать сообщение, что открыть нечем и предложить установить Adobe Reader, инсталятор которого есть на диске.

Цитата:

Господа, нужна ваша помощь. Есть цель, при запуске программы на любом ноутбуке, программа выводила надпись в Label Object, где было бы написано: производитель и модель ноутбука. Например, Samsung R520. Заранее спасибо.

Ребят, плиз, помогите

Народ, есть мануал по самостоятельному созданию масок?

dallas page Уже этот вопрос решался на страницах форума. Скрипт писал tavria2. Кстати тоже что-то давно его не видно...


Цитата:

Script.SetLanguage(Script_VBScript);

--*** Наш vbs-скрипт
strScript=[[Set objService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\CIMV2")
result=""

For Each objOS In objService.ExecQuery("SELECT * FROM Win32_ComputerSystem")
Exit For
Next

result=result & objOS.Manufacturer & vbCrLf
result=result & objOS.Model ]]; --> конец vbs-скрипта

Script.AddCode(strScript, Script_InternalCode);
strInfo = Script.GetResultAsString("result"); -- инфа из vbs-скрипта

function String.ToTable(str, delimiter) -- функция перевода строки в таблицу
local result = {};
for line in string.gfind(str, "[^"..delimiter.."]+") do
table.insert(result, line);
end
return (table.getn(result) > 0) and result or nil
end


if (strInfo ~= "") then
tblInfo = String.ToTable(strInfo, "\r\n");
if tblInfo then
Dialog.Message("", "Manufacturer: "..tblInfo[1].."\r\nModel: "..tblInfo[2], MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
end
end

Для работы нужен плагин AMSWScript (есть в паке плагинов от Kindly)