整点报时程序,实用性强,适用WIN7及以上系统

大家好，今天来分享一个报时程序，声音有一点沙雕，但总体还是不错的，下面是代码：

dim str1
set objTTS  = createobject("sapi.spvoice")
while true
    if Minute(Time)=0 then
        str1 = "现在时间是" & Time
        objTTS.speak str1
    end if
wend

做一个VBS程序，输入以下代码就行了

若您对此程序有兴趣，麻烦您点个赞，支持一下，谢谢！