amel27
Цитата:
достаточно вернуть версию "comctl32.dll"
|
Т.е вот так?:
Код:

Round(FileGetVersion(@SystemDir & "\system32\comctl32.dll"), 1)
Цитата:
- есть возможность фильтрации отображаемых элементов
|
Т.е можно будет к примеру задавать отображение содержимого одного конкретного каталога (с определёнными именами папок/файлов) ? это было бы вообще супер!
Цитата:
т.к. нужно создавать свой COM-объект
|
ptrex (тоже один из "великих умов" оф форума

) вроде на эту тему что то делал
тут, утверждает что можно всё же собственные обьекты создавать на Аутоите.
Нужно для изменения формата в диалоге сохранения страницы браузера (Opera), т.е окно естественно не аутоитовское

.
Цитата:
логично предположить, что в comdlg32.dll
|
А как с него вытянуть это?
Я пока остановился на таком решении:
Код:

Opt("WinTitleMatchMode", 4)
$Title = WinGetTitle("classname=#32770", "FolderView")
Можешь плиз потвердить, возвращает ли оно у тебя правильный заголовок с окна сохранения (любой программы)?
spooll,
Во-первых для ручного отключения BlockInput() не нужно жать ресет, нужно вызвать сочетания клавиш
Ctrl Alt Del
Во-вторых, зачем тебе постоянно ждать активность окна? можно просто ждать появление окна (WinWait()).
Цитата:
Везде поставил время WinWaitActive 20, но всеравно виснет
|
Потому что окно не активируется....
Вот пример как ты можешь это сделать:
Код:

;Предотвращаем вылет скрипта в случае не удачного запуска программ
Opt("RunErrorsFatal", 0)
If FileExists("C:\Program Files\1Cv77\BIN\1CV7s.exe") Then Exit
BlockInput(1)
Run("\\192.168.11.198\Distrib\1s_install\B770023\Disk1\setup.exe")
If @error Then Quit()
WinWait("Добро пожаловать", "Добро пожаловать в программу установки", 20)
ControlClick("Добро пожаловать", "Добро пожаловать в программу установки", "Button")
WinWait("Выбор варианта установки", "Выберите вариант установки программы", 20)
ControlClick("Выбор варианта установки", "Выберите вариант установки программы", "Button")
WinWait("Информация о пользователе", "Введите Ваше имя и название", 20)
ControlClick("Информация о пользователе", "Введите Ваше имя и название", "Button")
WinWait("Информация о пользователе", "Вы сообщили следующую информацию", 20)
ControlClick("Информация о пользователе", "Вы сообщили следующую информацию", "Button")
WinWait("Выбор каталога для установки", "Программа установки поместит 1С", 20)
ControlClick("Выбор каталога для установки", "Программа установки поместит 1С", "Button")
WinWait("Создание нового каталога", "", 20)
ControlClick("Создание нового каталога", "", "Button")
WinWait("Выбор программной группы", "Выберите из существующих или", 20)
ControlClick("Выбор программной группы", "", "Button")
WinWait("Установка 1С:Предприятия", "Программа установки скопировала файлы", 20)
ControlClick("Установка 1С:Предприятия", "Программа установки скопировала файлы", "Button")
WinWait("Установка 1С:Предприятия", "Установка программы 1С", 20)
ControlClick("Установка 1С:Предприятия", "Установка программы 1С", "Button")
Run("\\192.168.11.198\Distrib\1s_install\B770025\Disk1\setup.exe")
If @error Then Quit()
WinWait("Добро пожаловать", "Добро пожаловать в программу установки", 20)
ControlClick("Добро пожаловать", "Добро пожаловать в программу установки", "Button")
WinWait("Список установленных программ", "Из списка найденных на данном компьютере", 20)
ControlClick("Список установленных программ", "Из списка найденных на данном компьютере", "Button")
WinWait("Обновление 1С:Предприятия", "При работе с сетевыми версиями", 20)
ControlClick("Обновление 1С:Предприятия", "При работе с сетевыми версиями", "Button")
WinWait("Обновление 1С:Предприятия", "Обновление программы 1С", 20)
ControlClick("Обновление 1С:Предприятия", "Обновление программы 1С", "Button")
Run("\\192.168.11.198\Distrib\1s_install\B770025\1C_patch_7725\1Cv77SQL_025_Patch.exe")
If @error Then Quit()
WinWait("Патч 1С:Предприятие 7.7.025", "Вы запустили программу", 20)
ControlClick("Патч 1С:Предприятие 7.7.025", "Вы запустили программу", "Button1")
WinWait("PatchWise Updater", "", 20)
ControlClick("PatchWise Updater", "", "Button")
ControlClick("Патч 1С:Предприятие 7.7.025", "Вы запустили программу", "Button2")
Quit()
Func Quit()
BlockInput(0)
Exit
EndFunc
Везде где в функции
ControlClick встречается
"Button", замени на настоящее имя контроля (используя утилиту Au3Info.exe).