dim a,s
s=0
const pass="918918"
do
a=inputbox("请输入密码","　　认证登录","在此输入密码")
if a=pass then
msgbox"密码正确","64","进入"
set ws=createobject("wscript.shell")
ws.run"""D:\Production record\jb\管理.vbs"""
ws.run"""D:\Production record\rizhi\rizhi 后台.bat"""
exit do
else
if s=1 then
msgbox"超时请重新打开","16","密码再次错误"
exit do
else
s=s+1
msgbox"请输入正确的密码！","16","密码错误"
end if
end if
loop








    复制代码