懂VBS的进

dim name
const mm="hdxnetworks"
msgbox("欢迎光临本程序!")
do
name=inputbox("请输入你的姓名")
if name<> "" or pass<> "" then
dim pass
pass=inputbox("请输入你的口令")
if pass=mm then
msgbox("你刚输入的口令为:" & pass)
msgbox("验证成功," & name & "朋友,欢迎你!")
exit do
else
msgbox("你刚输入的口令为:" & pass)
msgbox("系统验证错误,请重输!")
end if
else
msgbox("你的资料不全，请重输!")
end if
loop

end if 位置放错了，这样就可以了

dim name
const mm="hdxnetworks"
msgbox("欢迎光临本程序!")
do
name=inputbox("请输入你的姓名")
if name<> "" or pass<> "" then
dim pass
pass=inputbox("请输入你的口令")
if pass=mm then
msgbox("你刚输入的口令为:" & pass)
msgbox("验证成功," & name & "朋友,欢迎你!") <