大家好,今天来分享一个报时程序,声音有一点沙雕,但总体还是不错的,下面是代码:
dim str1
set objTTS = createobject("sapi.spvoice")
while true
if Minute(Time)=0 then
str1 = "现在时间是" & Time
objTTS.speak str1
end if
wend
做一个VBS程序,输入以下代码就行了
若您对此程序有兴趣,麻烦您点个赞,支持一下,谢谢!