Показать сообщение отдельно
Старый 24.11.2005, 13:03     # 22
LightImage
Junior Member
 
Регистрация: 16.10.2002
Адрес: Россия-матушка
Пол: Male
Сообщения: 96

LightImage Нимб уже пробиваетсяLightImage Нимб уже пробивается
Немного повторюсь.
Для VBScript не надо никаких компиляторов, имхо редко встретишь машину где бы его не было. Поэтому для выжидания можно использовать файл delay.vbs:
Код:
Option Explicit
Const cdefpause = 10
Dim pause
Dim argvobj
 Set argvobj = WScript.Arguments
 if argvobj.Count < 1 then
  pause=cdefpause
 else
  pause=CLng(argvobj(0))
 end if
 Wscript.Echo WScript.ScriptName & ": Задержка выполнения на " & pause & " секунд"
 MyPause(pause)

sub MyPause(delay)
 WScript.Sleep delay*1000
end sub
Положим этот файл, скажем, в "C:\"
И в батнике пишем:
Код:
cscript /nologo C:\delay.vbs 10
"C:\Program Files\ACD Systems\ACDSee\7.0\ACDSee7.exe"
cscript /nologo C:\delay.vbs 20
"C:\Program Files\Winamp\winamp.exe"
Можно также смело объединять с батником, предложенным Ghost
__________________
1 миллибайт = 1/1024 байта

Последний раз редактировалось LightImage; 24.11.2005 в 13:50. Причина: учет предложений других участников
LightImage вне форума