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