Программная пауза

[trialex3]

Всем привет. В движении документа между итерациями нужно реализовать небольшую паузу, но чтобы она не нагружала сервак.Но нужна пауза встроенными средствами(т е ничего не скачивать или настраивать). Пока нашел вот такую

Код Выделить Развернуть

    Процедура Спать(ВремяМС)
    Если ВремяМС = 0 Тогда
        Возврат
    КонецЕсли;
    Сигнатура = Формат(ТекущаяДата(), "ДФ=yyyyMMddhhmmss");
    ПутьСкрипта = КаталогВременныхФайлов()+"SleepScript"+Сигнатура+".vbs";
    СкриптФайл = Новый ТекстовыйДокумент;
    СкриптФайл.ДобавитьСтроку("WScript.Sleep("+Формат(ВремяМС, "ЧГ=0")+")");
    СкриптФайл.Записать(ПутьСкрипта, КодировкаТекста.OEM);
    WSHShell = Новый COMОбъект("WScript.Shell");
    WSHShell.Run("wscript.exe """+ПутьСкрипта+"""", 0, Истина);
    УдалитьФайлы(ПутьСкрипта);
КонецПроцедуры


Начал тестить. На 20 итераций все норм. поставил 100 - зависло все.
Есть какие идеи?

[alex0402]

можно выполнять команду ping 127.0.0.1

[Kerbert]

Процедура Пауза(Время) Экспорт

   ВремяЗавершения = ТекущаяДата() + Время;
   Пока ТекущаяДата() < ВремяЗавершения Цикл
   КонецЦикла;

КонецПроцедуры
Время - Число - Длительность задержки в секундах.

[trialex3]

Процедура Пауза(Время) Экспорт

   ВремяЗавершения = ТекущаяДата() + Время;
   Пока ТекущаяДата() < ВремяЗавершения Цикл
   КонецЦикла;

КонецПроцедуры
Время - Число - Длительность задержки в секундах.

Хорошая идея, но в секундах это слишком долго. Есть ли что то похожее но в миллисекундах?

[Поиск родных]

миллисекунды - это секунды, помноженные на 0.001, то ли поделенные на 1000,
если я правильно припоминаю школьный курс арифметики

[AIFrame]

можно выполнять команду ping 127.0.0.1

При условии, что лупбэк не пингуется.
Иначе это бессмысленное занятие.
Вот какой-нибудь 10.10.10.10 пингануть, которого в локалке в природе нет и никогда не будет - это уже лучше.
Поэтому

Код Выделить Развернуть

ping 10.10.10.10 -n X -w 1000>nul 2>nul
Где X - секунд ждать.
-w 1000 - 1 секунда