带语音功能的表白脚本

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对象默认指向的页面，这里为自己写的HTML5，可以修改
ie.Visible=0 '设置IE对象是否可视
elseif x=Vbcancel then
objTTS.speak"不可以"
msgbox("不可以~~")