BS Post Installer - выбор программ перед установкой

[Angelus]

а у меня происходит бесконечный запуск одного скрипта.......

|D:\1\Winamp 5.24\winamp.exe D:\1\Winamp 5.24\winamp.au3

вот сам скрипт.....сам по себе он запускается.....а в этой програме нет....

Global $Title='Winamp'
Run ("d:\1\Winamp 5.24\Winamp 5.24.exe")
WinWait("Winamp Setup","License Agreement")
If Not WinActive("Winamp Setup","License Agreement")Then WinActivate("Winamp Setup","License Agreement")
WinWaitActive("Winamp Setup","License Agreement")
Send("{ENTER}")
WinWait("Winamp Setup","Choose Components")
If Not WinActive("Winamp Setup","Choose Components")Then WinActivate("Winamp Setup","Choose Components")
WinWaitActive("Winamp Setup","Choose Components")
Send("{ENTER}")
WinWait("Winamp Setup","Choose Install Options")
If Not WinActive("Winamp Setup","Choose Install Options")Then WinActivate("Winamp Setup","Choose Install Options")
WinWaitActive("Winamp Setup","Choose Install Options")
Send("{ENTER}")
WinWait("Winamp Setup","Choose Install Location")
If Not WinActive("Winamp Setup","Choose Install Location")Then WinActivate("Winamp Setup","Choose Install Location")
WinWaitActive("Winamp Setup","Choose Install Location")
Send("{ENTER}")
WinWait("Winamp Setup","Multi-user Settings")
If Not WinActive("Winamp Setup","Multi-user Settings")Then WinActivate("Winamp Setup","Multi-user Settings")
WinWaitActive("Winamp Setup","Multi-user Settings")
Send("{ENTER}")
WinWait("Winamp Setup","Internet Connection and Language Settings")
If Not WinActive("Winamp Setup","Internet Connection and Language Settings")Then WinActivate("Winamp Setup","Internet Connection and Language Settings")
WinWaitActive("Winamp Setup","Internet Connection and Language Settings")
Send("{DOWN}{DOWN}{TAB}{TAB}{TAB}{TAB}{ENTER}")
WinWait("Winamp Setup","Interface and Skin Selection")
If Not WinActive("Winamp Setup","Interface and Skin Selection")Then WinActivate("Winamp Setup","Interface and Skin Selection")
WinWaitActive("Winamp Setup","Interface and Skin Selection")
Send("{ENTER}")
ProcessClose("winamp.exe")

[NikLok]

Angelus
Да скрипт вобщем то безобидный. Ну для культуры можно exit в конце поставить, но глючит у тебя не из-за него наверное все таки. Скорее всего ошибка в файле presetup
Ты его в тестовом режимке прогонял? Может там такая же фигня?
Вот тебе кстати чуть более объмный скрипт: ;#NoTrayIcon
AutoItSetOption ( "TrayIconDebug", 1 )
BlockInput(1)
;Run("C:\Distributivs\Multimedia\Players\WinAmp\winamp52_0393_beta_pro.exe")

$p = "\Distrib\PLAYERS\WINAMP\"
$n = "winamp53_pro.exe"
$t = ""
If FileExists( $n ) Then
$t = ""
Else
$var = DriveGetDrive( "all" )
If NOT @error Then
; MsgBox(4096,"", "Found " & $var[0] & " drives")
For $i = 1 to $var[0]
; MsgBox(4096,"Drive " & $i, $var[$i])
$star = DriveStatus( $var[$i] & "\" )
If $star == "READY" Then
; MsgBox(4096, "Drive Type:",$var[$i] & "\ " & $dvar & " Status - " & $star & "\n" & $var[$i] & $p & "Auto_dt.exe")
If FileExists($var[$i] & $p & $n) Then
$t = $var[$i] & $p
; MsgBox(4096,"Finded on",$t)
ExitLoop
EndIf
EndIf
Next
EndIf
EndIf

If $t <> "" OR FileExists( $n ) Then
AutoItSetOption("SendKeyDelay", 10)
Run($t & $n,$t)
;Run(Chr($i) & ':\DISTRIB\PLAYERS\WINAMP\winamp521_pro.exe',Chr($i) & ':\DISTRIB\PLAYERS\WINAMP\')
AutoItSetOption("SendKeyDelay", 40)

WinWaitActive("Winamp Setup","License Agreement",200)
Send("{TAB}{SPACE}")

WinWaitActive("Winamp Setup","Choose Components")
Send("!{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{ENTER}")

Sleep(200)
Send("{TAB}{DOWN}{SPACE}{TAB}{TAB}{SPACE}")

WinWaitActive("Winamp Setup","Choose Install Options")
Send("{DOWN}{DOWN}{DOWN}{SPACE}")
;No agent in tray
Send("{DOWN}{DOWN}{DOWN}{SPACE}")
;Not associet with CD

Send("{TAB}{TAB}")
;Send("{TAB}")
; Disable agent tray icon
Send("{SPACE}")

Send("{TAB}{TAB}")
; Dont associate with video files
Send("{SPACE}")

Send("{TAB}{TAB}{SPACE}")

WinWaitActive("Winamp Setup","Choose Install Location")
Send("{TAB}{TAB}{TAB}{SPACE}")

WinWaitActive("Winamp Setup","Multi-user Settings")
Send("{TAB}{TAB}{TAB}{SPACE}")

WinWaitActive("Winamp Setup","Internet Connection and Language Settings")
Send("!{DOWN}{DOWN}{DOWN}{ENTER}")
;No internet connection
Send("{TAB}{TAB}{TAB}{TAB}{SPACE}")

WinWaitActive("Winamp Setup","Interface and Skin Selection")
; Save default ( modern ) sceen
Send("{TAB}{TAB}{TAB}{SPACE}")

WinWaitActive("Winamp Pro Registration Key Entry","",200)
ClipPut('NikLok')
Send('+{Ins}')
Send("{TAB}")
ClipPut('QHK3T-UMHZV-D98BM-YP8AB')
Send('+{Ins}')
Send("{TAB}{SPACE}")

If WinWaitActive("Add Media to Library","You have no items in your media library",200) Then
ControlClick("Add Media to Library","You have no items in your media library", "Button3", "Left")
ControlClick("Add Media to Library","You have no items in your media library", "Button2", "Left")
EndIf

If ProcessExists('winamp.exe') Then ProcessClose('winamp.exe')
If ProcessExists('winampa.exe') Then ProcessClose('winampa.exe')
If ProcessExists('EmusicClient.exe') Then ProcessClose('EmusicClient.exe')

If Not FileExists(@ProgramsCommonDir & "\Multimedia Tools") Then
DirCreate(@ProgramsCommonDir & "\Multimedia Tools")
EndIf
DirCopy ( @ProgramsCommonDir & "\Winamp",@ProgramsCommonDir & "\Multimedia Tools\Winamp",1)
DirRemove( @ProgramsCommonDir & "\Winamp",1)
$file = FileOpen(@ProgramFilesDir & "\software_install.log",1)
; Check if file opened for writing OK
If $file = -1 Then
MsgBox(0, "Error", "Unable to open " & @ProgramFilesDir & "\software_install.log file.")
Exit
EndIf
FileWriteLine($file,"WinAmp Pro: - OK")
FileClose($file)
BlockInput(0)
Exit



Может пригодится.

[Angelus]

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

[Boa Soft]

Только для участников форума!

После долгого затишья выложил тестовую версию.

Ограничений нет, только пишет что для тестирования.

Скачать можно по ссылке: http://tools.oszone.net/BoaSoft/BSInstaller/bspost.exe


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

В документации пока сумбур, добавил только описание того, что уже работает полностью.

Жду отзывов. Веду работу по поводу расположения элементов скина по нужным координатам.

[boss911]

Boa Soft

Скачал мигом бэту!! Сходу сразу не стал разбераться, что нового и запустил программу и обноружил, что Быстрый выбор программ -> По умолчанию неработает, тоесть поставил\снял галки, потом По молчанию и ноль реакции, может чего-то не то с настройками (все по дефолту), но решил сразу сообщить!! :)

Сколько разных полезных фич появилось, у-у-у респект, теперь надо все это дело до финала довести!! :)

[Debugger]

Boa Soft
О ты наш замученный завпотех! Огромное спасибо за проявленное внимание к сему продукту!

[NikLok]

Boa Soft
К моему глубокому сожалению проблема с фонтами под Engl Corporate не исчезла!
К тому же окно какое то обрезанное! Снизу кнопок внизу отрезано как ножом!
И справа тоже кнопка отрезана!

[ya158]

Работает ли в новой версии запуск конфигуратора из до запуска установки (когда появился указатель
мыши на голубом экране)? В предыдущий версии у меня это никак на получалось: http://forum.oszone.net/post-461168-240.html

[Boa Soft]

NikLok

Можно скриншоты посмотреть?

Проблемы где? При первом запуске из RunOnceEx или вообще?


boss911

По умолчанию неработает, тоесть поставил\снял галки, потом По молчанию и ноль реакции, может чего-то не то с настройками (все по дефолту), но решил сразу сообщить!!

Спасибо, глюк подтвержден - просто обработчик этой кнопки при переделке интерфейса потерял. Решим.
Просто теперь все создается динамически, и если доведу, то можно будет размещать кнопки и прочее, как хочется.


PS. Чуствую, придется для тестов раскатать на тестовый комп английскую винду. А то жалобы не единичные, а без этого проблему отловить немогу.

[NikLok]

Boa SoftМожно скриншоты посмотреть?
Ушло на мейл.
Запуск идет их winnt.sif в секиции guirunonce? через detachprogram.

Вот ты говорил, что возможно зделать опцию доустановка.
Значит я так понимаю в конфигураторе должны появится еще кнопки типа "Инвертировать" или "Доустановить" ну и конечно другие какие нибудь.
Может уже сейчас начть курочить интерфейс с их учетом?
Кстати, допустим, я запущу конфигуратор уже на настроенной машине - он мне покажет что отмеченные по умолчанию программы уже установлены реально на диск?

Мне не очень нравится идея кучи кофигурационных файлов.
Может ввести в [Installitem_ххх] ну допустим параметр Already_for_PCname или obligatory
в котором будут перечисляться имена машин или их груп на которые обязательно ставить данный компонент.

Тогда можно будет выбирать тот или иной способ выбора софта, а можно и сочетать их!

Еще можно добавить кнопку запуска установки прямо из конигуратора. Сейчас помему надо вызывать программу 2 раза с разными ключами. Я так понимаю в коде это просто вызов по кнопке процедуры установки и сильных усилий от тебя не должно поторебовать?

[Boa Soft]

Еще можно добавить кнопку запуска установки прямо из конигуратора. Сейчас помему надо вызывать программу 2 раза с разными ключами. Я так понимаю в коде это просто вызов по кнопке процедуры установки и сильных усилий от тебя не должно поторебовать?

А смысл? Конфигуратор вообще был сделан для создания файла ответов. Если вручную - просто отметьте нужные программы и нажмите кнопку установить.

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

Конфигуратор ничего не отслеживал и не будет. Только создание файла ответов. Все.

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

Я говорил лиш только о том, что если в режиме автоустановки (force) прервать установку программ, и потом опять запустить заново установку с кключем force, то установка подет с той программы, следующей за той, которая поледней была установлена. Единственное, что планирую сделать, что если прервать установку в авторежиме, то при последующем запуске предлагалось продолжить установку.

[Boa Soft]

NikLok
Ушло на мейл.
Запуск идет их winnt.sif в секиции guirunonce? через detachprogram.

Что-то ничего не пришло.


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

Так же сделал возможность доустановки программ при прерванном сеансе. Просто запустите домо-режим и после начала симуляции установки закройте окно. При повторном запуске поймете, о чем речь. Ссылка на бетту - в шапке.

[Boa Soft]

Наконец-то получилось сделать расстановку контролов по координатам, считанным из skin.ini.

Завтра (возможно) если не найду явных багов в версии, выложу ее для всеобщего обозрения.

Новшества такие:
- Возможность изменения расположения элементов управления по координатам, считанным из skin.ini.
- Контроль версии и корректности scin.ini - много чего изменилось.
- Контроль версии и корректности presetup.ini - много чего изменилось.
- Контроль версии и корректности, а так же, соответствия текушему presetup.ini фала ответов PRESETUP.SET.
- Возможно, будет в дополнение новый скин.

[NikLok]

Boa Soft
Кинул еще раз на адрес приведенный на твоей страничке.
Кстати в пред. версии номер версии в scin.ini остался старый. Проверь.

[Boa Soft]

Текущая версия 1.9

Новое в текущей версии.

1. Пересмотрена версия программы.
2. Сделан контроль версий и корректности файлов скина, конфигурации и ответов.
3. Сделана возможность изменения позиций элементов скина по абсрлютным и относительным координатам.
4. Введен контроль разиеров и позиции окна при задании размеров в скине или через строку.
5. Перемещение окна всегда отключено в полноэкранном режиме.
6. Исправлен лог.
7. Изменен формат файла ответов, скина и конфигурации, а так же временного лога.
8. Дополнен диалог о программе.


Ссылка в шапке. Если не найдем грубых багов - выложу релиз без тестоврой надписи.

ЗЫ

Адаптация старых файлов конфигурации.

1. Прочесть readme.txt
2. Если не помогло, просто добавить в presetup.ini следующее:

[Common_Info]
Ver=2.0
Autor=Boa Software
Description=Demo Config
Date=6.11.2006

Из этого обязательно только
[Common_Info]
Ver=2.0

[YuriPet]

Boa Soft
А может уже пора "шапку прикрепить"? ;)

[boss911]

Boa Soft

Когда-то данный вопрос задавал тут, вот решил повториться, при указании IconFile= (иконка с дистрибутива) в окне "Выбор программ для установки" иконки отображаются на малиновом фоне, тоесть если иконка с неровными краями (не квадрат), а вот во время хода установки, иконки отображаются во всю красоту!! Непомню твой ответ по данному вопросу, но ты вроде сказал (http://forum.oszone.net/post-389998-98.html), что что-то там посмотреш как решить вопрос!!

Я вот чего подумал, если данную проблему решить трудно или вообще нельзя по техническим причинам, то может IconFile= пусть отвечает за показ иконок во время хода инсталяции данной программы (Идет установка: ...), что скажеш, уж сильно хочеться видеть любимые иконки своих дистрибутивов!!

[NikLok]

Boa Soft
Вы будете смеятся, но баг в конфигураторе при запуске по datachedprogram повторяется и в версии 1.9 ( кстати а чего так резко скачем то?)
Если скриншот все таки дошел то новыйможнео не высылать?

Может быть в файле news.txt с номером версии еще и дату выхода ставить?

[Andreywsdn]

Boa Soft
Debugger
Можно сделать, чтобы на экране установки софта, под описанием программы отображалась картинка, заданная заранее? Ну логотип там, или скриншот с программы... Понятно, что опять же проблема с разными разрешениями, тогда хотя бы для фиксированного, например, если 1024х768 стоит, то отображается, если нет -то нет... Места там как-раз хватит... Выглядело бы очень здорово!!!

Тогда (http://forum.oszone.net/post-389998-98.html) вы написали, что это сделать очень легко, может сейчас будет время это реализовать.

[Ignor]

Что может означать для версии 1.9 "ошибка ввода/вывода 103" при запуске программы из winnt.sif?