Новый участник
Сообщения: 13
Благодарности: 0
|
Профиль
|
Отправить PM
| Цитировать
Блин, протестил на нескольких компах, все ок. Добавил в автозагрузку 100 юзерям и у всех на разных окнах позависало просто, подскажите вариант более надежный
PHP код: 
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("Добро пожаловать", "Добро пожаловать в программу установки", "Button1")
WinWait("Выбор варианта установки", "Выберите вариант установки программы", 20) ControlClick("Выбор варианта установки", "Выберите вариант установки программы", "Button6")
WinWait("Информация о пользователе", "Введите Ваше имя и название", 20) ControlClick("Информация о пользователе", "Введите Ваше имя и название", "Button2")
WinWait("Информация о пользователе", "Вы сообщили следующую информацию", 20) ControlClick("Информация о пользователе", "Вы сообщили следующую информацию", "Button1")
WinWait("Выбор каталога для установки", "Программа установки поместит 1С", 20) ControlClick("Выбор каталога для установки", "Программа установки поместит 1С", "Button1")
WinWait("Создание нового каталога", "", 20) ControlClick("Создание нового каталога", "", "Button1")
WinWait("Выбор программной группы", "Выберите из существующих или", 20) ControlClick("Выбор программной группы", "", "Button2")
WinWait("Установка 1С:Предприятия", "Программа установки скопировала файлы", 20) ControlClick("Установка 1С:Предприятия", "Программа установки скопировала файлы", "Button2")
WinWait("Установка 1С:Предприятия", "Установка программы 1С", 20) ControlClick("Установка 1С:Предприятия", "Установка программы 1С", "Button1")
Run("\\192.168.11.198\Distrib\1s_install\B770025\Disk1\setup.exe") If @error Then Quit()
WinWait("Добро пожаловать", "Добро пожаловать в программу установки", 20) ControlClick("Добро пожаловать", "Добро пожаловать в программу установки", "Button1")
WinWait("Список установленных программ", "Из списка найденных на данном компьютере", 20) ControlClick("Список установленных программ", "Из списка найденных на данном компьютере", "Button4")
WinWait("Обновление 1С:Предприятия", "При работе с сетевыми версиями", 20) ControlClick("Обновление 1С:Предприятия", "При работе с сетевыми версиями", "Button2")
WinWait("Обновление 1С:Предприятия", "Обновление программы 1С", 20) ControlClick("Обновление 1С:Предприятия", "Обновление программы 1С", "Button1") BlockInput(0)
Run("\\192.168.11.198\Distrib\1s_install\B770025\1C_patch_7725\1Cv77SQL_025_Patch.exe") WinWaitActive("Патч 1С:Предприятие 7.7.025", "Вы запустили программу", 25) ControlClick ("Патч 1С:Предприятие 7.7.025", "Вы запустили программу", "Button1")
WinWait("PatchWise Updater", "ОК", 20) ControlClick("PatchWise Updater", "ОК", "Button1")
WinWait("Патч 1С:Предприятие 7.7.025", "&Обновить", 20) ControlClick("Патч 1С:Предприятие 7.7.025", "&Обновить", "Button2") Run("\\192.168.11.198\distrib\1s_install\link.cmd")
Quit()
Func Quit() Exit EndFunc
|