[Архив - Часть 1.1] AutoIt скрипты

[bogomolv]

kovdaev
Выходит, я зря ехидничал?
Тогда в порядке извинения:
$hkey='HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced'
If RegRead($hkey,"NoNetCrawling")='0' Then
msgbox(0,'','Задан "Автоматический поиск сетевых папок и принтеров"')
Else
msgbox(0,'','"Автоматический поиск сетевых папок и принтеров" не задан')
EndIf

Exit

#cs
[HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced]
;Автоматический поиск сетевых папок и принтеров
"NoNetCrawling"=dword:00000001
;НЕ Автоматический поиск сетевых папок и принтеров
"NoNetCrawling"=dword:00000000

[HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced]
;Восстанавливать прежние окна папок при входе в систему
"PersistBrowsers"=dword:00000001
;НЕ Восстанавливать прежние окна папок при входе в систему
"PersistBrowsers"=dword:00000000

[HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\CabinetState]
;Выводить полный путь в панели адреса
"FullPathAddress"=dword:00000001
;НЕ Выводить полный путь в панели адреса
"FullPathAddress"=dword:00000000

[HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\CabinetState]
;Выводить полный путь в строке заголовка
"FullPath"=dword:00000001
;НЕ Выводить полный путь в строке заголовка
"FullPath"=dword:00000000

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Lsa]
;Использовать простой общий доступ к Файлам (рекомендуется)
"forceguest"=dword:00000001
;НЕ Использовать простой общий доступ к Файлам (рекомендуется)
"forceguest"=dword:00000000

[HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced]
;Не кзшировать эскизы
"DisableThumbnailCache"=dword:00000001
;НЕ "Не кзшировать эскизы"
"DisableThumbnailCache"=dword:00000000

[HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced]
;Открывать каждую папку в отдельном окне
"SeparateProcess"=dword:00000001
;НЕ Открывать каждую папку в отдельном окне
"SeparateProcess"=dword:00000000

[HKСU\Software\Microsoft\Windows\CurrentVersion\Explorer\HideMyComputerIcons]
;Отображать "Панель управления" в папке "Мой компьютер"
"{21EC2020-3AEA-1069-A2DD-08002B30309D}"=dword:00000000
;НЕ Отображать "Панель управления" в папке "Мой компьютер"
"{21EC2020-3AEA-1069-A2DD-08002B30309D}"=dword:00000001

[HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced]
;Отображать описание для папок и элементов рабочего стола
"ShowInfoTip"=dword:00000001
;НЕ Отображать описание для папок и элементов рабочего стола
"ShowInfoTip"=dword:00000000

[HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced]
;Отображать простой вид папок в списке папок "Проводника"
"FriendlyTree"=dword:00000001
;НЕ Отображать простой вид папок в списке папок "Проводника"
"FriendlyTree"=dword:00000000

[HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced]
;Отображать сведения о размере Файлов в подсказках папок
"FolderContentsInfoTip"=dword:00000001
;НЕ Отображать сведения о размере Файлов в подсказках папок
"FolderContentsInfoTip"=dword:00000000

[HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced]
;Отображать сжатые или зашифрованные Файлы NTF5 другим цветом
"ShowCompColor"=dword:00000001
;НЕ Отображать сжатые или зашифрованные Файлы NTF5 другим цветом
"ShowCompColor"=dword:00000000

[HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced]
;Отображать содержимое системных папок
"WebViewBarricade"=dword:00000001
;НЕ Отображать содержимое системных папок
"WebViewBarricade"=dword:00000000

[HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced]
;Помнить параметры отображения каждой папки
"ClassicViewState"=dword:00000000
;НЕ Помнить параметры отображения каждой папки
"ClassicViewState"=dword:00000001

[HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced]
;Скрывать защищенные системные Файлы (рекомендуется)
"ShowSuperHidden"=dword:00000000
;НЕ Скрывать защищенные системные Файлы (рекомендуется)
"ShowSuperHidden"=dword:00000001

[HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced]
;Скрывать расширения для зарегистрированных типов Файлов
"HideFileExt"=dword:00000001
;НЕ Скрывать расширения для зарегистрированных типов Файлов
"HideFileExt"=dword:00000000

[HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced]
;Не показывать скрытые Файлы и папки
"Hidden"=dword:00000002
;Показывать скрытые Файлы и папки
"Hidden"=dword:00000001

[HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer]
;Показывать и обрабатывать пару как единый файл
"NoFileFolderConnection"=dword:00000000
;Показывать обе части и обрабатывать их отдельно
"NoFileFolderConnection"=dword:00000001
;Показывать обе части, но обрабатывать их как единый Файл
"NoFileFolderConnection"=dword:00000002

#ce
Но, может, все-таки лучше задавать эти параметры напрямую через реестр?

[kovdaev]

Сегодня вечером попробовал все работает.
Можно еще один вопрос по скрипту drweb?
Сам вопрос:
Если разрешение экрана самое низкое 800х640, стандартный драйвер windows, часть кнопок за пределами экрана и скрипт не работает, не приятно однако:
сам скрипт:

#cs
----------------------
Приложение: Dr.Web
На какой(их) версии(ях) тестировалось: 4.33

Автор скрипта: Sanja Alone (http://forum.oszone.net/member.php?userid=28800)
----------------------
#ce
;предотвращение возможности множественного запуска скрипта
If WinExists(@ScriptName) Then Exit
AutoItWinSetTitle(@ScriptName)
;скрыть в системной панели индикатор AutoIt
;AutoItSetOption("TrayIconHide",1)
;Отображать текущую строку сценария с помощью индикатора системной панели в режиме отладки.
AutoItSetOption("TrayIconDebug", 1)
If ProcessExists ( "ps.exe" )<>0 Then
ProcessClose ( "ps.exe" )
ProcessWaitClose ( "ps.exe" )
EndIf
;нельзя блокировать при находящемся в памяти Punto Switcher-е - не будет работать установка
;блокируем мышь и клаву
;If @OSType="WIN32_NT" Then BlockInput ( 1 )
#cs
----------------------
объявление переменных
----------------------

$Title - заголовок окна установки
$file - установочный файл
$programgroup - в какую программную группу положить ярлыки программы
$validkey - Легальный ключевой файл (положите его в любой подкаталог текущего, по ум это validkey)

Для регистрации программы нужно положить файл drweb32.key в каталог из к-рого запускается установка,
тогда файл-ключ будет скопирован в каталог DrWeb-а и программа будет зарегистрирована (если ключ подойдет).
Это в идеале, но т.к. тихая установка в версии 4.33 не работает, и при обычной установке с правильным key-файлой
запускается антивирусная проверка (к-рую нельзя отменить), то лучше положить в установочный каталог невалидный ключ, а
"правильный" скопировать в каталог установленного DRWeb-а уже после завершения инсталляции.

Файл setup.iss внутри этого архива - для версии 4.32b.
Я дополнительно вложил в архив еще и setup.iss для 4.33 - может у кого-то, как-то получится заставить заработать тихую установку и для этой версии.
----------------------
#ce
Global $Title='Установка Dr.Web', $file='drweb-433-win-ru.exe', $programgroup='Антивирусы\Dr.Web', $validkey=@ScriptDir & '\validkey\drweb32.key'
Run ( @ScriptDir&'\'&$file )
WinWaitActive ( 'Dr.Web - InstallShield Wizard' )
Send("{ENTER}")
WinWait ( $Title, 'Вас приветствует программа' )
WinActivate ( $Title, 'Вас приветствует программа' )
WinWaitActive ( $Title, 'Вас приветствует программа' )
Send("{ENTER}")
WinWaitActive ( 'Внимание!!!' )
;поставить галку "Да, на компьютере не установлено других антивирусных продуктов."
ControlClick ( 'Внимание!!!', '', 'Button4' )
Send("{ENTER}")
WinWaitActive ( $Title, 'Лицензионное соглашение' )
;выбрать "Я &принимаю условия лицензионного соглашения"
ControlClick ( $Title, 'Лицензионное соглашение', 'Button3' )
Send("{ENTER}")
WinWaitActive ( $Title, 'Выбор папки назначения' )
;по ум. C:\Program Files\DrWeb
$InstPath = ControlGetText ( $Title, 'Выбор папки назначения', 'Static4' )
Send("{ENTER}")
WinWaitActive ( $Title, 'Вид установки' )
;Обычная
Send("{ENTER}")
WinWaitActive ( $Title, 'Выбор папки' )
ControlSetText ( $Title, 'Выбор папки', 'Edit1', $programgroup )
Send("{ENTER}")
WinWaitActive ( $Title, 'Начало копирования файлов' )
Send("{ENTER}")
AutoItSetOption("MouseCoordMode",2)
WinWaitActive ( $Title, 'Настройки прокси сервера' )
MouseClick("left", 639, 472, 1, 0)
;это окно появляется только в сл. неподходящего key-файла
WinWaitActive ( 'Вопрос', 'Не обнаружено коммерческого или демонстрационного ключевого файла' )
ControlClick ( 'Вопрос', 'Не обнаружено коммерческого или демонстрационного ключевого файла', 'Button2' )
;и сразу идет переход к завершению установки
WinWaitActive ( $Title, 'Программа InstallShield Wizard завершена' )
;выбрать "Нет, перезагрузить компьютер позже."
ControlClick ( $Title, 'Программа InstallShield Wizard завершена', 'Button2' )
Send("{ENTER}")
Sleep ( 50 )
RunWait ( @Comspec & ' /C taskkill.exe /F /IM notepad.exe /IM spidernt.exe', '', @SW_HIDE )
;копирование рабочего ключевого файла в каталог антивируса (если файл существует)
If FileExists ( $validkey ) Then FileCopy ( $validkey, $InstPath & '\', 1 )
;копирование дополнений к базе вирусов в каталог DrWeb-а (если они есть)
If FileExists ( @ScriptDir & '\drw?????.vdb' ) Then
FileCopy ( @ScriptDir & '\drw?????.vdb', $InstPath & '\drw?????.vdb', 1 )
FileCopy ( @ScriptDir & '\drw?????.txt', $InstPath & '\drw?????.txt', 1 )
EndIf
;удаление ярлыка с рабочего стола
FileDelete ( @DesktopCommonDir & '\Сканер Dr.Web.lnk' )
ProcessWaitClose ( $file )
;BlockInput ( 0 )

Может автор поправит,
Это я к чему, может еще кому пригодиться.

Заранее спасибо.

[Facet]

bogomolv

Punto Switcher можно установить еще "тише":
Спасибо, но дело не в том, чтобы просто получить "тихий" инсталлятор" Punto Switcher.
Я его попросту перепаковал InnoSetupом вместе со всеми ключами реестра и файлами, а установщик InnoSetup отлично поддерживает "тихие" ключи при инсталляции.
В порядке "освоения" AutoIt хотелось понять из-за чего не работает вроде бы нормальный скрипт.

А за ключи благодарствую - я оказывается
"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Management\ARPCache\Punto Switcher 2.8"
не включил в установщик, сейчас перекомпилирую.

Спасибо, также Sanja Alone. То-то мне показалось, что батоны меняют номера. Значит такое действительно может быть.
И за поправку "If WinExists(@ScriptName) Then Exit".

[Sanja Alone]

kovdaev
Если разрешение экрана самое низкое 800х640Точнее 800x600. Вот это да, а разве ниже где-то еще бывает :) У меня на VMWare при всех тестах стоит 800x600.

часть кнопок за пределами экрана и скрипт не работает, не приятно однако:Не работала вот эта ф-ция - MouseClick("left", 639, 472, 1, 0). Я дописал проверку с последующим сдвигом окна - теперь все ОК даже при архаичном 640x480. А если сильно захочется потестить при 320x240 (320x200), то еще больше сдвинь окно (не -200, а -300-400) - но это уже клиника...

сам скрипт:Приводить здесь листинг не требовалось - это напрасное засорение форума. У меня ведь он и так есть :)

Может автор поправитУже.

[ANGRO]

Предлогаю вот такое решение вопроса переключения языка клавиатуры.Основанное на функциях WinAPI.
Работать должно начиная с Win98.

Opt("WinTitleMatchMode", 4)
Run("notepad.exe")
Sleep(500)
$hWnd = WinGetHandle("classname=Notepad")
_SetKeyboardLayout("00000409", $hWnd)

Func _SetKeyboardLayout($sLayoutID, $hWnd)
Local $WM_INPUTLANGCHANGEREQUEST = 0x50
Local $ret = DllCall("user32.dll", "long", "LoadKeyboardLayout", "str", $sLayoutID, "int", 0)
DllCall("user32.dll", "ptr", "SendMessage", "hwnd", $hWnd, _
"int", $WM_INPUTLANGCHANGEREQUEST, _
"int", 1, _
"int", $ret[0])
EndFunc
Exit


Дополнительные языки.


"00000407" Немецкий (стандартный)
"00000409" Английский (США)
"0000040C" Французский (стандартный)
"0000040D" Финский
"00000410" Итальянский
"00000415" Польский
"00000419" Русский
"00000422" Украинский
"00000423" Белорусский
"00000425" Эстонский
"00000426" Латвийский
"00000427" Литовский

[Sanja Alone]

Внес существенные изменения в свой конвертер crta (http://sanjaalone.h15.ru/files/crta.zip) (ConvRegToAu3)

2006-01-31

Добавлен индикатор выполнения (активируется ключом /b или параметром ProgressBar в ini-файле).

2006-01-30

Введена возможность исправления ошибок в строковых параметрах содержащих "возврат каретки" внутри (regedit при экспорте таких параметров в reg-файл ошибается) - отменяется ключом /f или параметром FixSZErr в ini-файле.

2006-01-29

Ужесточены условия проверок типов - мне они представляются однозначными. Допускается любое к-во символов равно '=' в названиях и в значениях любых параметров.
Обрамляются кавычками ветки/параметры в сл. использования команды REG ADD для пустых параметров типа "REG_MULTI_SZ" - сразу недосмотрел. При сложных для конвертации комбинациях символов в названиях таких параметров в рез. файл пишется соотв-щее предупреждение. А в сл. неприменения REG ADD, для данных параметров всегда пишется предупреждение о неправильности рез-та подобной конвертации. (ищите строки, начинающиеся с ;--- WARNING).
При невозможности конвертации любого параметра (из поддерживаемых конвертером типов) в результирующий файл пишется соотв-щее сообщение с информацией о номере строки исходного файла явившейся источником проблемы (ищите строки, начинающиеся с ;--- ERROR).
Появилась возможность установки приоритета процесса конвертера (ключи /p0 /p1 /p2 /p3 /p4 /p5; параметр Priority в ini-файле).

2006-01-27

Значительно (почти в 10 раз!) повышена скорость работы - тестовый файл вместо 4,5 мин. конвертируется около 30 сек.
Полностью устранены проблемы с одинарными кавычками в названиях веток, в названиях всех параметров, а также внутри "REG_MULTI_SZ" параметров (') - любое к-во таких символов теперь будет правильно преобразовано в последовательность Chr(39).
Введена возможность конфигурирования посредством ini-файла (см. комментарии в файле crta.ini). Ключи командной строки, как и положено, имеют больший приоритет, чем параметры ini-файла.
Добавлена возможность импорта в реестр пустых параметров типа "REG_MULTI_SZ" [hex(7):00,00 и hex(7):00] c пом. команды REG ADD. Cам AutoIt не умеет этого делать - все подобные строки превращаются в аналог hex(7):00,00,00. Отменить функцию можно ключом /r - тогда в результирующий файл будет записано предупреждение об ошибке.
Игнорирование параметров типа "REG_NONE" [hex(0)].

2006-01-23

Исправлена работа с многострочными параметрами типа "REG_MULTI_SZ" (теперь добавляются переносы строк @LF и параметры корректно импортируются в реестр - раньше же все превращалось в одну длинную строку).
Дополнено распознавание параметров "REG_BINARY" (hex и hex(3)). Это была не моя ошибка, просто regedit всегда экспортирует параметры типа "REG_BINARY" как hex, а довольно часто используемый мной RegShot (в редакции ParaGlider-а) - как hex(3). Оба варианта правильны.
Игнорирование параметров типов "REG_DWORD_BIG_ENDIAN" [hex(5)], "REG_LINK" [hex(6)].
Теперь в результирующий файл пишутся строки RegWrite('ветка') только если в reg-файле есть соотв-щая пустая (без параметров и подветок внутри) ветка. Это сделано для оптимизации результирующего autoit-скрипта, путем сокращения лишних действий в оном.
Переписан разбор командной строки - ключи теперь независимы, также их можно писать слитно (например: crta in.reg /c/h/d). Добавлен новый ключ /h - копировать в буфер обмена только результат последней конвертации (текущее содержимое результирующего файла пропускается; используйте совместно с ключем /c).

страница загрузки (http://sanjaalone.h15.ru/crta.php)
история изменений (http://sanjaalone.h15.ru/history.php)

[elakt]

Добрый день ! У меня такая задача:

Есть несколько программ для загрузки прайс-листов разных поставщиков товара. Необходимо последовательно: запустить каждую из них, получить прайс-лист, закрыть программу, запустить следующую. Как я понял, с помощью AutoIt это сделать вполне реально.

Теперь ВОПРОС: можно ли выполнить перечисленные действия так, что бы программы для загрузки прайс-листов запускались НЕВИДИМЫМИ, при условии, что все программы ведут диалог с пользователем (задаются вопросы с вариантами выбора типа "Обновить / Отмена" ???

Если можно, то начну разбираться с AutoIt.
Напишите, пожалуйста, в общих чертах как это сделать, или посоветуйте - где об этом можно почитать.

Спасибо.

[lemon76]

Добрый день!
Нужна помощь профи. Есть программа, управление которой я хочу автоматизировать при помощи AutoIt. Суть проблемы в том, чтобы узнать какого цвета пиксел в данной точке экрана, черный или белый? Есть ли в AutoIt методы "считывания" цвета пиксела в заданной точке?
Заранее спасибо!

[Sanja Alone]

elakt
можно ли выполнить перечисленные действияДа. Что-то похожее здесь (http://forum.oszone.net/showpost.php?p=339341&postcount=43) уже спрашивали - вот, что я предложил (http://forum.oszone.net/showpost.php?p=339865&postcount=49).
запускались НЕВИДИМЫМИСм. флаг @SW_HIDE ф-ций Run() и RunWait().
где об этом можно почитатьВ файле %ProgramFiles%\AutoIt3\AutoIt.chm.


lemon76
Есть ли в AutoIt методы "считывания" цвета пиксела в заданной точке?PixelGetColor ( x , y )

[elakt]

Спасибо за ответ! Теперь появились новые вопросы.

1. Запускаем блокнот в невидимом окне:
Run("notepad.exe", "", @SW_HIDE)

2. Далее мне нужно дождаться, когда это окно появится. Среди стандартных команд не нашёл ту, которая дожидалась бы появления НЕВИДИМОГО окна, поэтому использовал команду задержки Sleep, что бы дождаться загрузки блокнота. ВОПРОС: можно ли решить эту задачу иначе?

3. После того, как блокнот загрузился, посылаю ему строку текста:
ControlSend("Безымянный - Блокнот", "", "Edit1", "Send text to notepad")

4. Затем посылаю команду, которая в меню блокнота выбирает пункт "Выход":
WinMenuSelectItem("Безымянный - Блокнот", "", "&Файл", "В&ыход")

5. После этого на экране появляется окно с вопросом "Сохранить изменения? Да/Нет/Отмена" - не смотря на то, что основное окно блокнота невидимо! Ответить на этот вопрос проблем не составляет, но... ВОПРОС: как избежать появления окна с вопросом на экране? То есть что бы оно, как и основное окно, было невидимым? Можно дождаться его появления и "спрятать" командой WinSetState, но в этом случае окно всё равно мелькнет на экране. Как быть?

[elakt]

Еще вопросы:

1. Нужно дозвониться до провайдера, выполнить некоторые действия, разорвать соединение. Это нужно сделать в НЕВИДИМОМ режиме, то есть без отображения окон. Как это можно сделать?

2. Как проверить, есть ли соединение с интернетом?

3. Как проверить, активно ли соединение с заданым именем?

[Sanja Alone]

elakt
как избежать появления окна с вопросом на экране?WinKill(""). Но мне неясна цель подобных действий. Если тебе нужно просто выдать сообщение, то есть другие вар-ты - банальный MsgBox(). А если ты хочешь незаметно записать что-то в файл, то для этого вообще не нужен (http://forum.oszone.net/showpost.php?p=381833&postcount=257) Блокнот.

Еще вопросы:
В плане работы с сетью AutoIt пока откровенно беден. Посмотри раздел справки Network Functions

Поискать инфу по ключам звонилки (если они есть).
Макросы @InetGetActive - Is 1 if a InetGet download is currently active, otherwise is 0. @InetGetBytesRead During a InetGet download this is the number of bytes currently read. It is -1 when there is an error downloading. Доступность конкретного хоста - Ping ( address or hostname [, timeout] ).
С таким условием никак.

[elakt]

Sanja Alone
Но мне неясна цель подобных действий.
Есть некая программа для получения прайс-листа и отправки заказа поставщику. Ключи для автоматического получения/отправки эта программа не поддерживает, все операции нужно выполнять нажатием соответствующих кнопок, подтверждать выбор, отвечать на вопросы программы.

Цель - автоматизировать этот процесс. Желательно так, что бы все действия были "невидимы" для пользователя и выполнялись в фоне. Блокнот использовался только для примера.

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

[__Koval__]

как с помощью AutoIt сменить раскладку клавиатуры.
а то столкнулся с такой проблемой:
у меня язык по умолчанию английский стоит, а винда русская,
так вот при написании скрипта управления блокнотом не работают горячии клавиши
т.е. сочетания ALT+,CTRL+ и т.д. с русскими символами пока включена английская раскладка.
Send("{ALT down}")
Send("{ALT up}")
Send("{ф down}")
Send("{ф up}")
вот не работает если не сменить раскладку.

как мне быть?

[godoo]

2All
Помогите разобраться как сделать пренос стороки при использовании функции SplashTextOn:
SplashTextOn("", "Длинный текст", 600, 400, -1, -1, 1, "Comic Sans MS", "14", "500")
Надо принудительно расставить переносы, т.к. автоматически получается некрасиво.

[boss911]

__Koval__

А ты не пробывал править через реестр, расскладку клавиатуры, или я твою проблему не правильно понял!?

[__Koval__]

boss911Конечно не правильно :)
Не работают комбинации спецклавишь с русскими символами пока раскладка английская.

[__Koval__]

да и вот еще что не понимаю почему не работает эта команда:
Run("WinRAR.exe", "D:\0NoInstall\WinRar\", @SW_MAXIMIZE)

[Sanja Alone]

elakt
Есть некая программа для полученияМеня не это озадачило. Зачем тебе писать текст в Блокноте при пом. АвтоИта, если можно просто вывести сообщение?
но нельзя избежать отображение диалогов программы с пользователем?Да, если так была написана та программа.


__Koval__
как с помощью AutoIt сменить раскладку клавиатуры.Можно так (http://forum.oszone.net/showpost.php?p=375113&postcount=235) (через реестр) или так (http://forum.oszone.net/showpost.php?p=394768&postcount=305) (сам я этот метод не проверял).
не работает эта команда:
Второй параметр - это рабочий каталог, а не путь. А в первом параметре указывается полный путь, а не имя экзэшника. Правильно писать так:
Run("D:\0NoInstall\WinRar\WinRAR.exe", "", @SW_MAXIMIZE)
или так:
FileChangeDir ( "D:\0NoInstall\WinRar\" )
Run("WinRAR.exe", "", @SW_MAXIMIZE)


godoo
Помогите разобраться как сделать пренос сторокиТакже, как и всегда: "Длинный текст" записать в виде 'строка 1' &@LF&'строка 2' &@LF&'строка n'.

[Matroskin13]

Помогите разобраться с установкой PowerDVD.

Написал скрипт:

run("SETUP.EXE")

WinWaitActive ("PowerDVD Setup", "Welcome to the InstallShield Wizard for PowerDVD")
ControlClick ("PowerDVD Setup", "&Next >", "Button1",)

WinWaitActive ("PowerDVD Setup", "End User License Agreement")
ControlClick ("PowerDVD Setup", "&Yes", "Button2",)

WinWaitActive ("PowerDVD Setup", "Installing Following Programs")
ControlClick ("PowerDVD Setup", "&Next >", "Button1",)

WinWaitActive ("PowerDVD Setup", "Installing Following Programs")
ControlClick ("PowerDVD Setup", "&Next >", "Button1",)

WinWaitActive ("PowerDVD Setup", "Please enter your information")
Send("User")
Send("{TAB}")
Send("Company")
Send("{TAB}")
Send("MV588995988G2285")
ControlClick ("PowerDVD Setup", "&Next >", "Button2",)

WinWaitActive ("PowerDVD Setup", "Choose Destination Location")
ControlClick ("PowerDVD Setup", "&Next >", "Button1",)

WinWaitActive ("PowerDVD Setup", "Select Program Folder")
ControlClick ("PowerDVD Setup", "&Next >", "Button2",)

WinWaitActive ("PowerDVD Setup", "Please select your default PowerDVD skin")
ControlClick ("PowerDVD Setup", "&Next >", "Button2",)

WinWaitActive("PowerDVD Setup", "CLPV and CLEV")
ControlClick ("PowerDVD Setup", "&Next >", "Button1",)

WinWaitActive("PowerDVD Setup", "Yes, I want to register now")
Send("{Space}")
Send("{TAB}")
Send("{Space}")
Send("{TAB}")
Send("{Space}")



Не понимаю - иногда срабатывает, иногда останавливается на страничке ввода персональных данных и ключа диска.
Помогите!