dim a,b set a=createobject("sapi.spvoice") a.speak"登录测试" b=inputbox("登录","测试") if b="123" then a.speak"测试成功" end if