Запуск стандартный
oscript test1.os
Ожидаю, что через 20 секунд, завершиться работа test2.os и в test1.os тоже не найдет такого работающего процесса и программа завершит действие, а на самом деле идет бесконечный процесс.
Запуск стандартный
oscript test1.os
Ожидаю, что через 20 секунд, завершиться работа test2.os и в test1.os тоже не найдет такого работающего процесса и программа завершит действие, а на самом деле идет бесконечный процесс.
#Использовать logos | |
#Использовать json | |
Перем Лог; | |
Перем СтрокаЗапускаСборки; | |
Процедура Запуск() | |
СтрокаЗапускаСборки = "oscript test2.os"; | |
Процесс = СоздатьПроцесс(СтрокаЗапускаСборки); | |
Процесс.Запустить(); | |
Сообщить("Запустили"); | |
Sleep(2000); | |
Пока Истина Цикл | |
Сообщить(""+НайтиПроцессПоИдентификатору(Процесс.Идентификатор) + "" + Процесс.Идентификатор); | |
Если НайтиПроцессПоИдентификатору(Процесс.Идентификатор) = Неопределено Тогда | |
Сообщить( "====== "+Строка(ТекущаяДата())); | |
Прервать; | |
КонецЕсли; | |
Sleep(10000); | |
Сообщить(Строка(ТекущаяДата())); | |
КонецЦикла; | |
КонецПроцедуры | |
Запуск(); |
Sleep(1000); | |
Счетчик = 20; | |
Пока Счетчик > 0 Цикл | |
Sleep(1000); | |
Сообщить("вв"+ Строка(ТекущаяДата())); | |
Счетчик = Счетчик - 1; | |
КонецЦикла; |