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