Question

vbs:请高手提供样码：要求在指定时间运行程序。

建立时间列表：a=split("6:09:30;6:19:30",";")，想用for each i in a…next结构在指定时间运行程序x.exe
谢谢！
要求是建立a=split("6:09:30;6:19:30",";")，b=split("6:15:30;6:24:30",";")几个时间点列表，在系统时间达到时间点时运行不同的程序，是时间点触发，不是时间段运行程序。想用for each i in a…next，for each i in b…next循环结构。请高手相助，谢谢！

Answer 1

set w=CreateObject("wscript.shell")
Dim a,b,c
c=Time'系统时间
Set ObjWsh = CreateObject("Wscript.Shell")
a=#12:30:00# '定义时间段
b=#23:30:00# '定义时间段
If DateDiff("n",a,c)>0 And DateDiff("n",c,b)>0 then '判断时间段
Msgbox "时间符合,马上打开记事本"
'执行指定程序或者代码
w.run "notepad"
else
Msgbox "时间不符合"
'执行另一个程序
end if
'==================================

Answer 2

time_start = #19:30:00#
time_end = #22:30:00#

do
if time() > time_start and time() <time_end then
'msgbox("在这个时间内，是对的")
exit do
else
'msgbox("不在这个时间内，不会运行后面的程序，3秒后继续循环！")
wscript.sleep 600000
end if
loop

Answer 3

楼主，这个问题不大，弹出一个窗口后如果楼主不管它不关闭它，把它拖到一个不太显眼的地方，它就不会再冒出来了，也不会影响正常操作。当然，如果楼主实在介意想把它去掉的话，就只能重装系统了，因为这是系统文件缺失，没别的办法。