Запуск стандартный
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; | |
| КонецЦикла; |