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

2024-12-02 17:33:26
推荐回答(3个)
回答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
'==================================

回答2:

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

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

回答3:

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