Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Аватара для Creat0R

Must AutoIt


Сообщения: 3054
Благодарности: 1009

Профиль | Сайт | Отправить PM | Цитировать


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).

-------
“Сделай так просто, как возможно, но не проще этого.”... “Ты никогда не решишь проблему, если будешь думать так же, как те, кто её создал.”

Альберт Эйнштейн

P.S «Не оказываю техподдержку через ПМ/ICQ, и по email - для этого есть форум. ©»

http://creator-lab.ucoz.ru/Images/Icons/autoit_icon.png Русское сообщество AutoIt | http://creator-lab.ucoz.ru/Images/Ic...eator_icon.png CreatoR's Lab | http://creator-lab.ucoz.ru/Images/Icons/oac_icon.png Opera AC Community

Это сообщение посчитали полезным следующие участники:

Отправлено: 23:10, 08-08-2007 | #264