巧用VBS自制有声备忘录

在情人节当天晚上，本人就发了一个利用VBS写一个发声文件，然后放在启动里面，那么，如何定时启动呢？做一个定时的发声备忘录也不错啊！方法如下：

建立一个备忘文件“1.vbs”，也可以改名为其他的，那下面的1.vbs自己改名，对应即可，内容如下：

CreateObject("SAPI.SpVoice").Speak "这里输入备忘内容"

然后，建立一个beiwang.vbs，放在D盘或者其他盘根目录下【如果你熟悉路径随便放】，这里以放D盘为例！那么，文件路径就是D:\1.vbs，时间设置为7点10分！

beiwang.vbs内容：

Option Explicit
On Error Resume Next
Dim sProgramme, sRunTime, aTime, iHour, iMinute, oShell
sProgramme = "D:\1.vbs"
sRunTime = "7:10" '
aTime = Split(sRunTime, ":")
iHour = CInt(aTime(0))
iMinute = CInt(aTime(1))
Do While True
If (Hour(Now) = iHour) And (Minute(Now) = iMinute) Then
Set oShell = CreateObject("WScript.Shell")
oShell.Run sProgramme, 1, False
Set oShell = Nothing
Exit Do
End If
WSH.Sleep 1000
Loop

如果需要每天执行这个任务则把这个beiwang.vbs放在启动目录里面，1.vbs放D盘不变，现在要执行只需要双击，不会有反应的，等下自动就会播放备忘的内容【注意，如果电脑不支持中文发音可以找下相应的语音文件，一般默认是支持的，XP未测试！】

建立vbs文件的方法，桌面-右击-新建-文本文档.txt-编辑文本-保存-重命名为*.vbs文件，*是文件名