Что нового

[Автоматизация] Автоматизация установки программы

vovaking

Новичок
Сообщения
5
Репутация
0
Доброе время суток.
Сразу скажу, с автоитом я начал только занимать и не знаю всего.
Подскажите мне пожалуйста, как мне сделать так, что бы при завершении установки.
Т.е. идет установка и она не говорит и не выдает сообщение, что установка завершилась. И при окончании завершении она закрывается.

Код:
MsgBox("TEST", "ВНИМАНИЕ!!!!", "Не производите ни каких действий, производится автоматическое обновление ПО Intermech", 10)
Global $DestPath='\\su479.servername.ru\im\', $file='setup.exe', $InstPath='D:\im'
ShellExecute ($DestPath & $file)
;MsgBox("TEST", "ВНИМАНИЕ!!!!", "Не производите ни каких действий, производится автоматическое обновление ПО Intermech", 3)
;Sleep(1000)
;---------------------------
;MsgBox("TEST", "ВНИМАНИЕ!!!!", "Не производите ни каких действий, производится автоматическое обновление ПО Intermech", 3)
Sleep (2000)
WinWaitActive ("name","Выбор файла сценария")
Sleep (1000)
;выбирается сценарий для установки серча
ControlSetText ("Name", "", "Edit1", "sear+Ca.IMSCR")
; указывается время ожидания
Sleep(2500)
ControlClick ("Name", "Next", "Button1")

Sleep(4500)
;запуск рег файла для прописи параметров 
Global $DestPath1='\\su479.servername.ru\imt\Support\Reg\W7\Cach\', $file1='regfile.reg', $InstPath1='D:\im'
ShellExecute ($DestPath1 & $file1)
Sleep(2500)
WinWaitActive("Редактор реестра","")
ControlClick("Редактор реестра", "Да", "Button1")
WinWaitActive("Редактор реестра","")
ControlClick("Редактор реестра", "ОК", "Button1")
;Запускаем файл для записи параметров 
Global $DestPath1='\\su479.servername.ru\IMT\Support\REG\AS\', $file1='regfile.reg', $InstPath1='D:\im'
ShellExecute ($DestPath1 & $file1)
WinWaitActive("Редактор реестра","")
ControlClick("Редактор реестра", "Да", "Button1")
WinWaitActive("Редактор реестра","")
ControlClick("Редактор реестра", "ОК", "Button1")
Sleep(2000)
MsgBox("Установка ----", "ВНИМАНИЕ!!!!", "Установка ЗАКОНЧИНА. Можете начинать работать", 10)
Exit


А получается так, что при ходе установки у меня сразу производится запуск reg файлов. Вот я и хочу, что бы пока не закончилась установка программы, запуск reg файлов не начался.

ПОМОГИТЕ ПОЖАЛУЙСТА.
 

---Zak---

Скриптер
Сообщения
455
Репутация
120
Попробуй использовать
Код:
RunWait


Пример - будет приостановка пока не завершиться 'setup.exe':

Код:
MsgBox("TEST", "ВНИМАНИЕ!!!!", "Не производите ни каких действий, производится автоматическое обновление ПО Intermech", 10)
Global $DestPath='\\su479.servername.ru\im\', $file='setup.exe', $InstPath='D:\im'
RunWait($DestPath & $file)
;MsgBox("TEST", "ВНИМАНИЕ!!!!", "Не производите ни каких действий, производится автоматическое обновление ПО Intermech", 3)
;Sleep(1000)
;---------------------------
;MsgBox("TEST", "ВНИМАНИЕ!!!!", "Не производите ни каких действий, производится автоматическое обновление ПО Intermech", 3)
Sleep (2000)

...........................

Второй вариат использовать
Код:
ProcessWaitClose


Пример:
Код:
MsgBox("TEST", "ВНИМАНИЕ!!!!", "Не производите ни каких действий, производится автоматическое обновление ПО Intermech", 10)
Global $DestPath='\\su479.servername.ru\im\', $file='setup.exe', $InstPath='D:\im'
ShellExecute ($DestPath & $file)
ProcessWaitClose($file)
;MsgBox("TEST", "ВНИМАНИЕ!!!!", "Не производите ни каких действий, производится автоматическое обновление ПО Intermech", 3)
;Sleep(1000)
;---------------------------
;MsgBox("TEST", "ВНИМАНИЕ!!!!", "Не производите ни каких действий, производится автоматическое обновление ПО Intermech", 3)
Sleep (2000)
 
Автор
V

vovaking

Новичок
Сообщения
5
Репутация
0
Спасибо большое вроде бы функция
Код:
ProcessWaitClose($file)

Помогла.
СПАСИБО
 

alex33

Скриптер
Сообщения
1,457
Репутация
186
В MsgBox забыли про флаг...
Код:
MsgBox(0, "TEST",       ...


Код:
MsgBox ( flag, "title", "text" [, timeout [, hwnd]] )
 
Верх