[biork]

Вот маленький скриптик. Работает.

Код:

Opt("TrayIconDebug",1)
if FileExists("C:\Windows\System32\drivers\ati2mtag.sys") Then
RunWait("Cpanel\Setup.exe /S")
Else
EndIf
Exit

а так - нет. Почему?

Код:

Opt("TrayIconDebug",1)
if FileExists("@SystemDir\drivers\ati2mtag.sys") Then
RunWait("Setup.exe /S", "@ScriptDir\Cpanel")
Else
EndIf
Exit

[bogomolv]

biork
Патаму чта синтаксис

Код:

Opt('ExpandEnvStrings', 1); default = 0
Opt('ExpandVarStrings', 1); default = 0
if FileExists("@SystemDir@\drivers\ati2mtag.sys") Then
RunWait("Setup.exe /S", "@ScriptDir@\Cpanel")
Else
EndIf
Exit

И будь осторожен с RunWait ( "filename" [, "workingdir" [, flag]] ).
Чтобы задать рабочий каталог, лучше использовать FileChangeDir ( "path" )

Код:

FileChangeDir("@ScriptDir@\Cpanel")
RunWait("Setup.exe /S")

All
Новый DrWeb433.
Установщик остался прежним. И также по-прежнему блокирует silent-установку.
Зато установщик разукрасили всеми цветами радуги. В результате, он перестал "понимать" ControlClick(...), ControlCommand(...,'Check') и т.д.!
Теперь приходится накручивать ControlSend('Внимание!!!',,'Button4','{+}{Enter}').

[DenchikK]

А у меня во в новом инсталяторе DrWeb 2 раза заедало:
1. В месте "Выберите вид установки" (причём иногда только).
2. В месте "Настройки прокси сервера" - при их отсутствии. Нажатие на кнопку отмены мышкой, приводит к продолжени. установки DrWeb, нажатие на неё AutoIT'ом приводит к завершению инсталяции.
И там и там вывернулся использованием эмуляции нажатия мышки.

Ещё в догонку такая придумка. В установке Dr.Divx, вернее при работе keygen, надо вызывать из каталога с установленной программы регистрационный файл. А вдруг у пользователя прога стоит не на диске C и даже не в Program Files? Как это узнать? И вот что я придумал (главное - работает!).
Вкратце так: берём из реестра информацию об установленной программе, и вот мы уже имеем всегда правильный путь. В Dr.Divx чуть сложнее - пути как такого нет, есть путь вместе с .exe файлом. Этот самый .exe файл то мы и отрезаем (функция отрезать строку с конца).
Так что можно сделать инсталяторы чуточку более универсальными.

[biork]

bogomolv
Мдя... Не очевидно (в справке, в описаниях макро об этом - ни слова...), но факт!
А зачем символ @ в конце каждого макро? Опять "синтаксис патаму чта"?
И почему осторожней с RunWait? Может надёжнее сам скрипт в нужную папку засунуть и вообще не указывать рабочий каталог?

[VelDmi]

Есть прекрасные макро @ComputerName и @IPAddress1 чтобы узнать имя компьютера и его адрес.
А как можно изменить их? Мне нужно задать их не ползая по вкладкам свойств.

[Sanja Alone]

bogomolv

Новый DrWeb433

Не качал - не скажу.

Установщик остался прежним. И также по-прежнему блокирует silent-установку

Как это блокирует? Вот у меня на автоустановочном диске лежит файлик drweb-432b-win-ru.exe. Ставится этим скриптом без всяких блокировок... Ес-но, для silent-установки нужно предварительно получить еще и файлик setup.iss (см. в том же архиве) установив один раз прогу командой drweb-432b-win-ru.exe -R.

VelDmi

Мне нужно задать их не ползая по вкладкам свойств.

Тогда придется поползать по реестру

[CTEPBA]

Люди подскажите как мне с помощью AuotIt поставить Dr.Web 4.33 ( не ставиться командой setup.exe /s) только если по шагово.

[EgOrus]

2Sanja Alone
Скачал у тебя скрипт на установку FoxitReader, к сожалению к новой версии он не подошел, посмотрев скрипт не понял зачем нужны условия на проверку Активности каждого окна? Практически во всех скриптовых языках условия несколько тормозят выполнение кода, легче сразу активировать окно без проверки его активности.

WinWait($Title,"Вас приветствует Мас") If Not WinActive($Title,"Вас приветствует Мас") Then WinActivate($Title,"Вас приветствует Мас") WinWaitActive($Title,"Вас приветствует Мас") Send("{ENTER}")

Код:

;Установщик FoxitReader v1.3.909.exe
#cs
----------------------
$Title - заголовок окна установки
$file - установочный файл
$programgroup - в какую программную группу положить ярлыки программы
$rusfile - русифицированный исполнимы файл программы
----------------------
#ce
Global $Title='Foxit Reader Install Wizard', $file='foxitreader.1_3_909.exe', $rusfile='rus\Foxit Reader.exe';, $programgroup='Офис\Foxit PDF Reader'
Run($file)
WinWait($Title,"Setup will install")
WinActivate($Title,"Setup will install")
Send("{ENTER}")
WinWait($Title,"Please read the license")
WinActivate($Title,"Please read the license")
Send("{ENTER}")
WinWait($Title,"Please select an installation type")
WinActivate($Title,"Please select an installation type")
ControlClick ($Title, '', 'Button2' )
WinWait($Title,"Please Choose the folder")
WinActivate($Title,"Please Choose the folder")
ControlSetText($Title, "", 'Edit1', @ProgramFilesDir & '\Foxit Reader\' )
Send("{ENTER}")
WinWait($Title,"Desktop Settings")
WinActivate($Title,"Desktop Settings")
ControlClick ($Title, '', 'Button3')
ControlClick ($Title, '', 'Button7')
Send("{ENTER}")
WinWait($Title,"Click Install to continue")
WinActivate($Title,"Click Install to continue")
Send("{ENTER}")
WinWait($Title,"Setup has successfully")
WinActivate($Title,"Setup has successfully")
ControlClick ($Title, '', 'Button2')
Send("{ENTER}")

;если есть FoxitRus, то заменяем им оригинальный англ. исполнительный файл
If FileExists ( $rusfile ) Then
   FileCopy ( @ScriptDir & '\' & $rusfile, @ProgramFilesDir & '\Foxit Reader\', 1 )
EndIf

[biork]

Всем привет. Вопрос на засыпку. Нужон такой скрипт:

- проверяем является ли диск D: разделом жёсткого диска (существует ли вообще и не является ли сменным или сетевым)
- если да, то копируем на него файл
- если нет, то - нет.

Есть идеи?

[Sanja Alone]

Добавил скрипты:
ICE ECC 2.1
Sateira CD&DVD Burner 2.xx
WinImage 8.0 (и 7.0)


EgOrus

зачем нужны условия на проверку Активности каждого окна

1. Я мог бы придумать умный ответ, но скажу прямо - эти условия являются результатом использования ScriptWriter-а, входящего в состав редактора SciTE. Но ты конечно прав, условия спокойно можно убрать (оставив в соотв. стороках только функцию WinActivate).
2. Ты используешь странное сочетание функций при ожидании окон:

Код:

WinWait("Окно","Текст")
WinWaitActive("Окно","Текст")

Функция WinWait здесь лишняя, т.к. для нажатия ENTER-а функцией Send окно должно быть активным. Я же всегда юзаю вот такую связку:

Код:

WinWait("Окно","Текст")
WinActivate("Окно","Текст")
WinWaitActive("Окно","Текст")

(здесь можно опустить WinWaitActive, т.к. активация проходит очень быстро и эта функция является всего лишь дополнительным гарантом). А можно вообще использовать одну функцию WinWaitActive("Окно","Текст"), если есть уверенность, что окно при любом раскладе будет активировано.


CTEPBA
Скрипт для DrWeb 4.32b - попробуй, может и для 4.33 подойдет.


biork

Есть идеи?

Всего одна строка:

Код:

If DriveGetType ('d:\')='Fixed' Then FileCopy ( 'Откуда\файл', 'd:\' )