带语音功能的表白脚本

Dim name,msg
msg=("请输入你的名字:")
name=inputbox(msg,"姓名")
msgbox name, ,"亲爱滴"
msgbox("我喜欢你！")

set objTTS = createobject("sapi.spvoice")
objTTS.speak"亲爱的，某某某"
objTTS.speak"做我女朋友好不好"
x=msgbox("做我女朋友好不好？",VbOkCancel)
if x=Vbok then
objTTS.speak"爱你呦~比心！"
msgbox("爱你呦~比心！ ")
Set Wshell=WScript.CreateObject("WScript.Shell")
Set ie=WScript.CreateObject("InternetExplorer.Application") '建立IE对象
ws.run"\biaoba\index" '设置IE对象默认指向的页面
ie.Visible=0 '设置IE对象是否可视
elseif x=Vbcancel then
objTTS.speak"不可以"
msgbox("不可以~~")
do until x=VbOk
objTTS.speak"做我女朋友好不好"
x=msgbox("做我女朋友好不好？",VbOkCancel)
if x=VbCancel then
objTTS.speak"不可以"
msgbox("不可以~~")
else
objTTS.speak"我就知道你是喜欢我的嘛"
msgbox("我就知道你是喜欢我的嘛~")
end if
loop
end if