VBS也挺強(qiáng)大的呢,這篇給大家演示的是獲取當(dāng)前時(shí)刻,并根據(jù)不同的時(shí)間段來問好!
注:編輯器不支持vbs編程,單引號后是注釋哦!
d=Date()
t=Time()
h=Hour(t) '獲取到當(dāng)前的小時(shí)
if h<9 then
k="早上"
elseif h<12 then
k="上午"
elseif h<14 then
k="中午"
elseif h<18 then
k="下午"
else
k="晚上"
end if
lady="大美女," & k & "好呀!" '拼裝好問好的話
CreateObject("SAPI.SpVoice").Speak(lady) '電腦讀出這句話
效果圖:
哈哈,只能聽到哦!
?
?
本文摘自 :https://blog.51cto.com/l