Как ждать между инструкциями в скрипте .vbs? (Просто для удовольствия) - PullRequest
0 голосов
/ 11 февраля 2012

Я создаю командный файл просто для удовольствия, чтобы сделать то же самое, что и в этом видео .

Я не очень разбираюсь в программировании, и я с трудом читаю то, что написано на экране в этом видео с YouTube.

Я нашел этот код онлайн:

do

Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection

if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
End If    

Я сохранил его как скрипт .vsb, и похоже, что он работает, но все происходит так быстро, что лоток закрывается наполовину. Как я могу изменить его, чтобы подождать пару секунд после его открытия?

1 Ответ

3 голосов
/ 11 февраля 2012

Добавьте команду sleep, чтобы она спала в течение пяти секунд (аргумент - миллисекунды) в цикле for

WScript.Sleep 5000
...