当前位置:DOS资源站资料中心VBS脚本 → vbs指定时间段执行程序

vbs指定时间段执行程序

减小字体 增大字体 作者:佚名  来源:本站整理  发布时间:2008-5-15 17:01:38

Option Explicit

function run(mintime,maxtime,xrun)
dim i,WshShell
Set WshShell = CreateObject("WScript.Shell" )
WshShell.CurrentDirectory = "C:\"
i=Hour(date())
if (cint(i)>mintime and cint(i)<maxtime) then
Call WshShell.Run(xrun, 1, True):exit function
end if
set WshShell=nothing
end function

dim ii
ii="C:\Progra~1\YUHENG\Client\ty_cli~1.exe"
run 7,23,ii