2012-03-19 2 views
0

Я хочу, чтобы установить интервал времени в VBScript Ниже мой кодУстановить интервал в 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

+1

WScript.Sleep 1000 является правильным. Что происходит или не происходит? – Fionnuala

+0

@Remou Я понятия не имею, почему, но он просто открыл слово MS, но не закрыл его, и он отлично работает с командой сна. –

+2

Вы используете его в реальном .VBS-файле? Например, если вы используете HTA, он не будет работать, потому что он не запускается из механизма W/Cscript. В случае с HTA вам лучше использовать 'window.SetTimeout (« objWord.Quit », 1000)'. – AutomatedChaos

ответ

0

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

'Получите задержка 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 

As seen on Rob van der Woude's Scripting Page .Здесь вы также можете найти много хороших сценариев

Смежные вопросы