vbs控制电脑说话，vbs获取时间，vbs小程序

d=Date()
t=Time()
h=Hour(t)    '获取到当前的小时

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)     '电脑读出这句话