现在的生活节奏是不是太快？你有没有计划想着去做的事情到了事情过后才恍然大悟！其实对计算机来说这也是个很简单的事情，但是通常计算机确并不带着个功能，安装第三方软件是不是不只是麻烦的问题。如果采用VBS脚步只要新建个个文件即可使用，是不是很方便呢？先来看看效果吧！
其实方法很简单：只要新建个.VBS的文件。拷贝一下内容保存即可：（一下内容请参考，适当改成自己喜欢的喽！）
set WshShell = WScript.CreateObject(“WScript.Shell”)
count=0
for each ps in getobject(“winmgmts:\.\root\cimv2:win32process”).instances
if ps.name=”WScript.exe” then count=count+1
next
if count > 1 then wscript.quit
msg=vbnewline &”请输入定时提醒的时间”&vbnewline &”例：15:30”
needtime=inputbox(msg,”定时提醒”)
needtime_s=left(needtime,2)
needtime_f=mid(needtime,4,2)
if (len(needtime_s)<>2)or(len(needtime_f)<>2) then
?msgbox “??????????? 时间格式错误??????????? “,4096,”提醒”
?wscript.quit
end if
if (int(needtime_s)<0)or(int(needtime_s)>24)or(needtime_f<0)or(needtime_f>60) then
?msgbox “??????????? 时间格式错误??????????? “,4096,”提醒”
?wscript.quit
end if
msg=vbnewline &”请输入定时提醒的内容”&vbnewline
alerttext=inputbox(msg,”定时提醒”)
‘对话框标题
alerttitle = needtime&”定时提醒”
‘提醒内容,vbnewline为换行符
alerttext = vbnewline & vbnewline & alerttext &”????????????????????????????????????????????????????? “& vbnewline & vbnewline & vbnewline
msgbox “???????? 定时成功??????? “,4096,”提醒”
do
WScript.Sleep(1000*1) ‘每20秒检查一次
if (len(time)>6) then
?if (left(time,2)=”下午”) then
?nowtime_s=mid(time,4,2)
?nowtime_s=nowtime_s+12
?nowtime_f=mid(time,7,2)
?end if
else
?nowtime_s=left(time,2)
?nowtime_f=mid(time,4,2)
end if
if? (needtime_s=cstr(nowtime_s))and(nowtime_f=needtime_f)? then
?msgbox alerttext,4096,alerttitle
?wscript.quit
end if
loop
优点：简单方便。
缺点：关闭任务无法保存。