Установить интервал в VBScript

Question

Я хочу установить интервал времени в VBScript Ниже мой код

Set objWord = CreateObject("Word.Application")
endTime= Timer()
'Set visibilty for the client application
objWord.Visible = True

WScript.Sleep 1000
'Close MS word process
objWord.Quit

Я нашел WScript.Sleep 1000 or WScript.Sleep(1000) 1000 is in millisecond но оба они не работают нормально, я использую window7

Answer 1

Быстрая и грязная пакетная команда - самый безопасный и надежный (хотя и не самый точный) способ получить задержку.

'Получите 10 секундную задержку

Delay 10
Sub Delay( seconds )
Dim wshShell
Set wshShell = CreateObject( "WScript.Shell" )
wshShell.Run "ping -n " & ( seconds + 1 ) & " 127.0.0.1", 0, True
Set wshShell = Nothing
End Sub

Как видно на странице сценариев Роба ван дер Вуде . Здесь также можно найти много хороших сценариев