密码认证程序.vbs

dim a,s
s=0
const pass=“xxxx” ’ 自己填
do
a=inputbox(“请输入密码”)
if a=pass then
msgbox"认证成功"
exit do
else
if s=10 then
msgbox"已经达到认证上限，认证程序关闭"
exit do
else
s=s+1
msgbox"认证出错，请检查密码"
end if
end if
loop