» Autoplay Media Studio

woolfkv жесть Позови друга на пиво, он поставит прогу

DenVl

Цитата:

Возможно эт те поможет:

Все равно работает только от следующего запуска.

Цитата:

[/q]
[q]

не чуваки вы не поняли, поставить прогу это не проблема, проблема в том что я хочу заделать авторан где можно одним нажатием запустить целую цепь т.е. устанавливается прога авторан сам запускает кейген его же сам вводит и русифицирует !!!!!!!!!!!!!!!!!!! Как питерпен FuckYouBill вот его мыло класнная софтина penpite@gmail.com

NightW0lf

Global Functions

Код: function Install()
search_reg_after_launch_install = Registry.DoesKeyExist(HKEY_LOCAL_MACHINE, "Software\\7-Zip");
if (search_reg_after_launch_install == false) then
are_ya_there = File.DoesExist(_SourceFolder.."\\7-zip.exe");
if are_ya_there == false then
Dialog.Message("Ошибка", "Инсталлятор отсутствует!\n\nУстанавливать нечего.", MB_OK, MB_ICONEXCLAMATION, MB_DEFBUTTON1);
else
handle = Application.GetWndHandle();
Window.Hide(handle);
File.Run(_SourceFolder.."\\7-zip.exe", "","", SW_SHOWNORMAL, true)
error = Application.GetLastError();
if (error ~= 0) then
Dialog.Message("Ошибка запуска", "Инсталлятор отсутствует.", MB_OK, MB_ICONEXCLAMATION, MB_DEFBUTTON1);
end
Window.Show(handle);
end
end
end

function RegCheck()
search_reg_after_launch_install = Registry.DoesKeyExist(HKEY_LOCAL_MACHINE, "Software\\7-Zip");
if (search_reg_after_launch_install == false) then
Label.SetEnabled("Install", true);
Label.SetEnabled("Play", false);
Label.SetEnabled("Uninstall", false);
else
Label.SetEnabled("Install", false);
Label.SetEnabled("Play", true);
Label.SetEnabled("Uninstall", true);
end
end

DenVl
ОГРОМНОЕ СПАСИБО за помощь!

Где можно поcмотреть пример авторана для программ (с кряками т.д.)

могу выложить скрипты созданного мной авторана
по функциональности такой же как и у пиратов Петрософт

4ubaka

Цитата:

могу выложить скрипты созданного мной авторана
по функциональности такой же как и у пиратов Петрософт

Выложи пожалста

On_Preload_Page (этот скрипт нужно вставить в сами знаете куда)(Забыл как называется))))
Эта часть кода заполняет список названиями папок в выбранной директории
название папок должны быть и названиями программ которые внутри

result = Folder.Find("AutoPlay\\Docs\\dvd", "*", false, nill); -- Здесь нужно выбрать путь к вашей директории с папками программ

count = Table.Count(result);
listboxcount = 1;
while (count > 0) do
    itemelem = Table.Remove(result, 1);
    
    textTable = String.SplitPath(itemelem);
    
    text = Table.Remove(textTable, Drive);
    
    num = String.ReverseFind(itemelem, "\\", false);

    numb=String.Length(itemelem);

    num=numb-num

    text = String.Right(itemelem, num);
        
    ListBox.AddItem("ListBox1", text, itemelem);
    listboxcount = listboxcount + 1;
    
    count = count - 1;    
end


Добавлено:
On_Close_Page
Здесь мы очищаем список (когда переходим на другую страницу)


coun = ListBox.GetCount("ListBox1");
while coun > 0 do
ListBox.DeleteItem("ListBox1", 1);
coun=coun-1;
end

Добавлено:
List_Box_Select
назначение - заполняем объект параграф текстом описания проги при выборе строки
--******************************************************
SelectedIt = ListBox.GetSelected("ListBox1");
SelectedIt = Table.Concat(SelectedIt, ";", 1, TABLE_ALL);
SelectData = ListBox.GetItemData("ListBox1", SelectedIt);
foundF = File.Find(SelectData, "~.txt", false, false, nil, nil); -- Название текстового файла можно изменить или поставить маску на названии
Type=type(foundF);
if Type=="table" then
installer = Table.Concat(foundF, ";", 1, TABLE_ALL);
contentst = TextFile.ReadToString(installer);
Paragraph.SetText("Paragraph1", contentst);
else
Paragraph.SetText("Paragraph1", "На данную программу нет описания");
end

Добавлено:
List_box_Double_Click
Назначение - ищет и запускается инсталяхи

--*****************************************************


SelectedIt = ListBox.GetSelected("ListBox1");
SelectedIt = Table.Concat(SelectedIt, ";", 1, TABLE_ALL);
SelectData = ListBox.GetItemData("ListBox1", SelectedIt);
if Folder.DoesExist(SelectData)==true then
foundF = File.Find(SelectData, "setup.exe", false, false, nil, nil);-- seek exe-files
tyPe=type(foundF);
if (tyPe=="table") then
installer = Table.Concat(foundF, ";", 1, TABLE_ALL);    
File.Run(installer, "", "", SW_SHOWNORMAL, false);
end

--************************************************************************************************
if (tyPe == "nil") then

exeseek = File.Find(SelectData, "*.exe", false, false, nil, nil);-- ищет хоть какой нибудь екзешник в папке
tyPeExS=type(exeseek);
--*************************************************************************************************    
     if (tyPeExS=="nil") then
     foundMSI = File.Find(SelectData, "setup.msi", false, false, nil, nil);-- ищет файл мсай сетап
     typeMSIS=type(foundMSI);
--***********************************************************************************    
     if (typeMSIS == "nil") then
MSIseek = File.Find(SelectData, "*.msi", false, false, nil, nil);-- ищет какой нибудь мсай
     typeMSI=type(MSIseek);
--*********************************************************************
-- нифига не нашлось... открывается проводник пусть юзер сам разбирается
     if (typeMSI=="nil") then
     File.ExploreFolder(SelectData, SW_SHOWNORMAL);
     Application.ExitScript();
end
--******************************************
-- дальше прописана логика действий если найденых файлов больше чем 1
-- действие - открывается проводник (в принципе можно функцию другую поставить - файл оупен откроется эта папка просто)
if (Table.Count(MSISseek) > 1) then
File.ExploreFolder(SelectData, SW_SHOWNORMAL);
end
     installer = Table.Concat(MSIseek, ";", 1, TABLE_ALL);
     File.Open(installer, "", "");
     Application.ExitScript();
     end
     --********************************************************
     if (Table.Count(foundMSI) > 1) then
File.ExploreFolder(SelectData, SW_SHOWNORMAL);
end
     installer = Table.Concat(foundMSI, ";", 1, TABLE_ALL);
     File.Open(installer, "", "");
     Application.ExitScript();
     end
if (Table.Count(exeseek) > 1) then
File.ExploreFolder(SelectData, SW_SHOWNORMAL);
end
installer = Table.Concat(exeseek, ";", 1, TABLE_ALL);
File.Run(installer, "", "", SW_SHOWNORMAL, false);
Application.ExitScript();
end
else
arraypath = String.SplitPath(SelectData)
if arraypath.Extension==".zip" or arraypath.Extension==".rar" then
File.Open(SelectData, "", SW_SHOWNORMAL);
else
File.Open("AutoPlay\\Docs\\cd 2\\игры", "", SW_SHOWNORMAL);
end
end

4ubaka
Спасибочки!

ButtonInstallClick
эта часть кода при нажании на кнопку Инстал
***************************************

Код:
isExist = type(SelectData);
if (isExist == "string") then
foundF = File.Find(SelectData, "setup.exe", false, false, nil, nil);-- seek exe-files
tyPe=type(foundF);
if (tyPe=="table") then
installer = Table.Concat(foundF, ";", 1, TABLE_ALL);    
File.Run(installer, "", "", SW_SHOWNORMAL, false);
end

--***************************************************************************
if (tyPe == "nil") then -- if we found more then 1 exe-file
exeseek = File.Find(SelectData, "*.exe", false, false, nil, nil);
tyPeExS=type(exeseek);
--*************************************************************************    
     if (tyPeExS=="nil") then
     foundMSI = File.Find(SelectData, "setup.msi", false, false, nil, nil);
     typeMSIS=type(foundMSI);
--************************************************************************     if (typeMSIS == "nil") then
MSIseek = File.Find(SelectData, "*.msi", false, false, nil, nil);
typeMSI=type(MSIseek);
--*********************************************************************    
     if (typeMSI=="nil") then
     File.ExploreFolder(SelectData, SW_SHOWNORMAL);
     Application.ExitScript();
end
--******************************************
if (Table.Count(MSISseek) > 1) then
File.ExploreFolder(SelectData, SW_SHOWNORMAL);
end
     installer = Table.Concat(MSIseek, ";", 1, TABLE_ALL);
     File.Open(installer, "", "");
     Application.ExitScript();
     end
--********************************************************
     if (Table.Count(foundMSI) > 1) then
File.ExploreFolder(SelectData, SW_SHOWNORMAL);
end
     installer = Table.Concat(foundMSI, ";", 1, TABLE_ALL);
     File.Open(installer, "", "");
     Application.ExitScript();
     end
if (Table.Count(exeseek) > 1) then
File.ExploreFolder(SelectData, SW_SHOWNORMAL);
end
installer = Table.Concat(exeseek, ";", 1, TABLE_ALL);
File.Run(installer, "", "", SW_SHOWNORMAL, false);
Application.ExitScript();
else
Dialog.Message("Notice", "Выберите сначала программу", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
end
end

Sero
Вот мой Autorun_for_Programs
Он основан на заполнении ini-файлов (AutoPlay\Docs\) соответствующей иноформацией, так что, для того чтоб потестить этот авторан необходимо заполнить хотя бы один из ini-файлов (Page1, Page2, ...).
Также этот авторан можно использовать и тем, у которых не установлен AMS (правда сначала нужно откомпилировать проект) и тада все дело сводится к правильному заполнению все тех же ini-файлов, остальное все сделается само...
P.S. Известная ошибка, но скорее всего не ошибка, а баг сборки: не полностью отрабатывает код на On Preload Страницы, а именно ListBox.SelectItem("ListBox1", 1);
P.P.S. Просьба сообщать о других багах в проекте, если такие были обнаружены.

4ubaka
DenVl
Спасибо,разбирусь!

скажите плиз как создать кнопку запуск\удаление так чтобы прога через реестр ссылалась на файл
пример: установлена программа в с:\1\1.exe
в реестре пишем path = с:\1\1.exe
и
uninstall path = с:\1\un.exe

и программа ссылаясь на запись в реестре запускает программу

Drez
Если прога уже установлена, то будут найдены оба ключа: path и uninstall path
Возможно тебе лучше сделать 2 кнопки:
Button1 "Установка/Запуск"
Button2 "Удаление"



Добавлено:
и тогда приблизительно такой код:
On Preload страницы

Код: is_there = Registry.DoesKeyExist(HKEY_LOCAL_MACHINE, "Software\\7-Zip");
if (is_there) then
Button.SetText("Button1", "Запуск");

else
Button.SetText("Button1", "Установка");
Button.SetEnabled("Button2", false);
end

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

вот что-то пробывал но я в этом не силён:

Цитата:

function read()
if (File.DoesExist(cFileName)) then -- Файл найден
Audio.Pause(CHANNEL_BACKGROUND); -- Ставим на паузу музыку
sound=false;
Audio.Play(CHANNEL_BACKGROUND); -- Воспроизводим музыку
sound=true;

else -- Файл не найден
Dialog.Message("Ошибка", "Файл не найден!", MB_OK, MB_ICONSTOP, MB_DEFBUTTON1);
end
end
function read2()
if (File.DoesExist(cFileName)) then -- Файл найден
Audio.Pause(CHANNEL_BACKGROUND); -- Ставим на паузу музыку
sound=false;
Audio.Play(CHANNEL_BACKGROUND); -- Воспроизводим музыку
sound=true;

else -- Файл не найден
Dialog.Message("Ошибка", "Файл не найден!", MB_OK, MB_ICONSTOP, MB_DEFBUTTON1);
end
end
-- Переменные
handle = Application.GetWndHandle();
cFileName = "support\\readme_en"; -- Полное имя файла установки

run_message_Install_Game = Dialog.Message("2", "Какой ридми показать?", MB_RU, MB_EN, MB_DEFBUTTON1); -- Вопрос
if (run_message_read == IDRU) then
read();-- Вызов ф-ции установки "W"
end
if (run_message_read == IDEN) then
read2();-- Вызов ф-ции установки "W"
end

А пример авторана для фильмов где найти?

Добавлено:
Или клипов...
Помогите пожалуйста!

Помогите разобраться..
В папке C:\1\ лежит кучка файлов с разными расширениями. Почему нижеприведенный код переименовывает только один файл с одним расширением (например: если в папке лежат 10 экзешников и 10 rar-архивов, то будут переименованы тока 1 экзешник и 1 rar-архив). Как сделать, чтоб переименовывались все файлы?

Код: tFile = {};
nn = 1;
result = File.Find("C:\\1\\", "*.*", false, false, nil, nil);
if result then
for n, path in result do
tFile[nn] = path;
nn = nn + 1;

end
end


if (Table.Count(tFile) ~= 0) then
for n, cText in tFile do
parts = String.SplitPath(cText);
newname = String.Replace(cText, parts.Filename, "setup", false);
File.Rename(cText, newname);
end
end

Sero
У меня есть пример как прасматиривать видео в формате AVI [DivX, XviD].

Вот линка

NightW0lf
У меня этот файл качается очень медлено с RL-Team.ru,поставь пожалуйста на RapidShare.

Drez

Цитата:

вот что-то пробывал...

Мда... Не понятно с чем ты боролся, с музыкой или с ReadMe.

Цитата:

run_message_Install_Game = Dialog.Message("2", "Какой ридми показать?", MB_RU, MB_EN, MB_DEFBUTTON1);

Для начала посмотрел-бы справку по Dialog.Message, на предмет какие константы поддерживает это действие. Хочу сразу предупредить, что изменить надписи кнопок на пользовательские - не получится. Dialog.Message - это по сути API ф-ция стандартного диалогового окна "MessageBox", о возможностях см. в MSDN.

Как вариант Dialog.Message с тремя кнопками "Да","Нет" и "Отмена". Русский - "Да", Английский - "Нет".
Код: nBtn = Dialog.Message("ReadMe", "Открыть ReadMe?\r\n\r\nНа русском языке - клавиша \"Да\".\r\nНа аглийском языке - клавиша \"Нет\".", MB_YESNOCANCEL, MB_ICONQUESTION, MB_DEFBUTTON1);
if (nBtn ~= IDCANCEL) then -- если не "Отмена"
if (nBtn == IDYES) then -- если "Да"
Shell.Execute("Путь\\ReadmeRu.txt", "open", "", "", SW_SHOWNORMAL); -- открываем Readme на русском
else -- если "Нет"
Shell.Execute("Путь\\ReadmeEn.txt", "open", "", "", SW_SHOWNORMAL); -- открываем Readme на английском
end
end

Sero

Цитата:

У меня этот файл качается очень медлено с RL-Team.ru,поставь пожалуйста на RapidShare.

Вот зеркало с RapidShareю.COM

NightW0lf
Спасибо,но хотелось бы сделать авторан в AutoPlay Media Studio и при нажатии на play-запускалась программа Light Alloy.

tavria2
гы...действительно.

to All
Помогите с этими двумя проектами check_reg.apz и FadeInOut_1.3.apz. Суть проблем такова:
1. В проекте check_reg.apz неправильно работает возможность подчеркивания текста [т.е. если кнопка НЕ Активна и нажать на Активную то заодно подчеркнется НЕ Активная].
2. Не получается объединить оба этих проекта [check_reg.apz и FadeInOut_1.3.apz] т.е. при их объединении перестает работать возможность постоянной проверки реестра от проекта check_reg.apz.

Заранее благодарю за помощь!

Sero

Цитата:

при нажатии на play-запускалась программа Light Alloy.

[more=Код для автоматического просмотра видео при нажатии "play"]

Код:
-- Ф-ция просмотра "Video"
function Run_Play_Video()
if (File.DoesExist(cFileName)) then -- Файл найден
Audio.Pause(CHANNEL_BACKGROUND); -- Ставим на паузу музыку
sound=false; -- Музыка не играет
Window.Hide(my_autorun); -- Скрываем "autorun.exe"
File.Run(cFileName, "VIDEO\\CC_THE_BEST_1_FULL.avi", "", SW_SHOWNORMAL, true); -- Запуск инсталлятора без ожидания завершения
Window.Show(my_autorun); -- Показываем "autorun.exe"
Audio.Play(CHANNEL_BACKGROUND); -- Воспроизводим музыку
sound=true; -- Музыка играет

else -- Файл не найден
Dialog.Message("Ошибка", "Файл LA.exe не найден!", MB_OK, MB_ICONSTOP, MB_DEFBUTTON1); -- Сообщение об ошибке
end
end

-- Переменные
my_autorun = Application.GetWndHandle(); -- Скрытие\показ окна
cFileName = "LA\\LA.exe"; -- Полное имя файла установки

run_message_Run_Play_Video = Dialog.Message("Просмотр", "Вы уверены, что хотите начать просмотр?", MB_YESNO, MB_ICONINFORMATION, MB_DEFBUTTON1); -- Вопрос
if (run_message_Run_Play_Video == IDYES) then
Run_Play_Video(); -- Вызов ф-ции просмотра "Video"
end

NightW0lf
Спасибо!

Скиньте кто нить файл PTxSCP.lic из system32 на Rapidshare.com.

Sero

Цитата:

Скиньте кто нить файл PTxSCP.lic из system32

[more=Вот - скопируй и вставь в блокнот и скохрани как "PTxSCP.lic"]
Shell Control Pack ActiveX v2
Copyright © 1996-2003 Plasmatech Software Design.
All rights reserved.

Warning: This product is licensed pursuant to the terms of the
license agreement included with the original software, and is
protected by copyright law and international treaties. Unauthorized
reproduction or distribution may result in severe civil and criminal
penalties, and will be prosecuted to the maximum extent possible under
the law.

Your personalized license code is:
24815A60113D11D281A0000021559381
[/more]

NightW0lf

Еще раз спасибо.

Люди! Нужна помощь...

У нас есть текстовый файл в котором записаны разные цифры в строчку (друг за другом)
Цифры попадают в тестовик после ввода их в форму и нажатия кнопки "добавить"...
Нужно чтобы при открытии программа соединялась с этим файлом, и выводила сумму всех цифр...
У меня не получается, выдаёт ошибку, типо невозможно выполнить арифметические действия над параметром "string"...

Заранее благодарен!

servint
И не получится
Попробуй сложить строковые данные
Используй для перевода строковых значений в цифровые String.ToNumber