[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 раза с разными ключами. Я так понимаю в коде это просто вызов по кнопке процедуры установки и сильных усилий от тебя не должно поторебовать?