记事本内粘贴以下代码保存后,将后缀txt改为vbs即可。
dim str
set objTTS = createobject("sapi.spvoice")
while true
if minute(Time) = 0 then
str = hour(Time)&"点"
objTTS.speak str
end if
wscript.sleep 1000*59
wend
记事本内粘贴以下代码保存后,将后缀txt改为vbs即可。
dim str
set objTTS = createobject("sapi.spvoice")
while true
if minute(Time) = 0 then
str = hour(Time)&"点"
objTTS.speak str
end if
wscript.sleep 1000*59
wend