Question

怎样编写VBS程序，在指定的日期、时间内，运行符合的相应程序？怎样修改，谢谢

dim shell,ws

smile=0
wind_date=array(1,5,10) '在1,5,10日自动运行下面程序
for each wind in wind_date
if datepart("d",date)=wind then smile=1
next
if smile=0 then wscript.quit
set shell=createobject("shell.application")
set ws=createobject("wscript.shell")
if hour(time)=9 and minute(time)=23 then
ws.run "c:\2.jpg"
end if

if hour(time)=9 and minute(time)=11 then
ws.run "E:\Media\1.rmvb"
end if

Answer 1

思路是这样（但代码我不写了，手机很不方便，而且字数也不够的）：首先代码中添加本vbs开机自运行（修改注册表），然后用data函数判断是否指定日期，如果不是则wscript.quit，如果是则再用time函数加do循环判断是否到了指定时间，如果不是则继续循环知道为是，如果是则执行相关命令即可。

Answer 2

只有这个vbs程序是不行的，因为你的vbs很快就运行结束了
1.如果加上个循环一直运行，，，可以实现，但你的电脑 负荷是不是有点重
2.利用任务计划来弄，，让任务计划 在制定时间运行vbs，，而vbs负责到底运行什么

Answer 3

你没用过任务计划吗？