dim str1
set objTTS = createobject("sapi.spvoice")
while true
if Minute(Time)=0 then
str1 = "现在时间是" & Time
objTTS.speak str1
end if
wend
【VBS】整点报时,代码超级简单哦
最新推荐文章于 2024-07-28 22:52:08 发布
dim str1
set objTTS = createobject("sapi.spvoice")
while true
if Minute(Time)=0 then
str1 = "现在时间是" & Time
objTTS.speak str1
end if
wend