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
'==================================
time_start = #19:30:00#
time_end = #22:30:00#
do
if time() > time_start and time()
exit do
else
'msgbox("不在这个时间内,不会运行后面的程序,3秒后继续循环!")
wscript.sleep 600000
end if
loop
楼主,这个问题不大,弹出一个窗口后如果楼主不管它不关闭它,把它拖到一个不太显眼的地方,它就不会再冒出来了,也不会影响正常操作。当然,如果楼主实在介意想把它去掉的话,就只能重装系统了,因为这是系统文件缺失,没别的办法。