Nicodim
VBS вполне стандартный способ, и является средством винды начиная кажется с win98 =) Чуть уточню только вызов скрипта, приведенного в _http://aboutwin.pp.ru/fido7.ru.windows.f2000/14888.html
Код:
cscript Delay.vbs /E:C:\Windows\Notepad.exe /D:10
или
Код:
wscript Delay.vbs /E:C:\Windows\Notepad.exe /D:10
В свое время для себя я написал скрипт, который просто выжидает нужное время, назвав его так же delay.vbs:
Код:
Option Explicit
Const cdefpause = 10
Dim pause, 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)
dim st
st = now
do while datediff("s", st, now) < delay
loop
end sub
(про WScript.Sleep я тогда не знал=))
Из батника вызываю так:
Код:
cscript /nologo delay.vbs 300