GOM引擎非常不错的二级密码脚本实例

#if
checkvar HUMAN 二级密码答案 = <$STR(S84)>
#act
SET [390] 0
CALCVAR HUMAN 二级登陆密码 =
CALCVAR HUMAN 二级机器码 = <$USERMACHINEID>
CALCVAR HUMAN 二级登陆次数 = 0
SAVEVAR HUMAN 二级登陆密码 ..\QuestDiary\重要数据\二级密码.txt
SAVEVAR HUMAN 二级机器码 ..\QuestDiary\重要数据\二级密码.txt
SAVEVAR HUMAN 二级登陆次数 ..\QuestDiary\重要数据\二级密码.txt
SENDMSG 6 恭喜您！您成功清除了二级密码！
messagebox 恭喜您！您成功清除了二级密码！
MOV S83
MOV S84
MOV N67 0
goto @main
break
#elseact
messagebox 对不起您的密码保护答案不是【<$STR(S84)>】，请重新输入！
MOV S84
goto @清除二级密码
break

[@找回二级密码0]
#IF
CHECKLEVELEX > 0
#ACT
MOV N68 0
MOV S85
MOV S86
MOV S87
GOTO @找回二级密码

[@找回二级密码]
#if
checkvar HUMAN 二级登陆密码 =
#act
goto @main
messagebox 您都还没有设置过二级密码，找回什么？请先设置二级密码！
break
#elsesay
<请正确填写以下密码保护资料为您重新设置二级帐号密码：/FCOLOR=254>\ \
<点此输入→/FCOLOR=250><您的二级密码保护生日/@@InPutInteger68>：<$STR(N68)> \
<点此输入→/FCOLOR=250><您的二级密码保护问题/@@InPutString85>：<$STR(S85)>\
<点此输入→/FCOLOR=250><您的二级密码保护答案/@@InPutString86>：<$STR(S86)>\ \
<点此输入→/FCOLOR=250><新的二级帐号密码/@@InPutString87>：<$STR(S87)>\ \
<确定重新设置二级帐号密码/@确定找回二级帐号密码>

[@InPutInteger68]
#IF
CHECKLEVELEX > 0
#ACT
DELAYGOTO 1 ~InPutInteger68

[~InPutInteger68]
#IF
LARGE N68 10000000
small N68 29999999
#ACT
goto @找回二级密码
break
#IF
LARGE N68 0
#ACT
MOV N68 0
goto @找回二级密码
messagebox 出错！生日必须为8位纯数字格式(格式：19800902)！\　\请重新输入你的生日！
#elseact
goto @找回二级密码
messagebox 出错！生日必须为纯数字格式，不能带符号！\　\请重新输入你的生日！
break

[@InPutString85]
#OR
CheckContainsText <$STR(S85)> @
CheckContainsText <$STR(S85)> ~
CheckContainsText <$STR(S85)> [
CheckContainsText <$STR(S85)> ]
CheckContainsText <$STR(S85)> <
CheckContainsText <$STR(S85)> >
CheckContainsText <$STR(S85)> {
CheckContainsText <$STR(S85)> }
#ACT
mov S85
SENDMSG 5 [错误]：输入数据中包含了非法字符，请重新编辑！
GOTO @找回二级密码
break
#elseact
DELAYGOTO 1 ~InPutString85

[~InPutString85]
#if
Equal S85
#act
goto @找回二级密码
messagebox 请输入你的二级密码保护问题！
break
#elseact
goto @找回二级密码
break

[@InPutString86]
#OR
CheckContainsText <$STR(S86)> @
CheckContainsText <$STR(S86)> ~
CheckContainsText <$STR(S86)> [
CheckContainsText <$STR(S86)> ]
CheckContainsText <$STR(S86)> <
CheckContainsText <$STR(S86)> >
CheckContainsText <$STR(S86)> {
CheckContainsText <$STR(S86)> }
#ACT
mov S86
SENDMSG 5 [错误]：输入数据中包含了非法字符，请重新编辑！
GOTO @找回二级密码
break
#elseact
DELAYGOTO 1 ~InPutString86

[~InPutString86]
#if
Equal S86
#act
goto @找回二级密码
messagebox 请输入你要的二级密码保护答案！
break
#elseact
goto @找回二级密码
break

[@InPutString87]
#OR
CheckContainsText <$STR(S87)> @
CheckContainsText <$STR(S87)> ~
CheckContainsText <$STR(S87)> [
CheckContainsText <$STR(S87)> ]
CheckContainsText <$STR(S87)> <
CheckContainsText <$STR(S87)> >
CheckContainsText <$STR(S87)> {
CheckContainsText <$STR(S87)> }
#ACT
mov S87
SENDMSG 5 [错误]：输入数据中包含了非法字符，请重新编辑！
GOTO @找回二级密码
break
#elseact
DELAYGOTO 1 ~InPutString87

[~InPutString87]
#if
Equal S87
#act
goto @找回二级密码
messagebox 请输入你要设置的新的二级帐号密码！
break
#elseact
goto @找回二级密码
SENDMSG 6 您设置新的二级密码为：【<$STR(S87)>】，请牢记此密码。
break

[@确定找回二级帐号密码]
#if
checkvar HUMAN 二级登陆密码 =
#act
goto @main
messagebox 您都还没有设置二级密码，找回什么？请先设置二级密码！
break

#IF
Equal S87
#act
goto @找回二级密码
messagebox 您还没有输入密码！\　\请先点击【新的二级帐号密码】输入你要设置的新密码！
break

#IF
LARGE N68 10000000
small N68 29999999
#elseact
MOV N68 0
goto @找回二级密码
messagebox 您还没有输入二级密码保护生日！\　\请先点击【您的二级密码保护生日】输入你的生日！
break

#IF
Equal S85
#act
goto @找回二级密码
messagebox 您还没有输入二级密码保护问题！\　\请先点击【您的二级密码保护问题】输入你的问题！
break

#IF
Equal S86
#act
goto @找回二级密码
messagebox 您还没有输入二级密码保护答案！\　\请先点击【您的二级密码保护答案】输入你的答案！
break
#IF
CHECKLEVELEX > 0
#act
MessageBox 您设置的新二级帐号密码为：<$STR(S87)>\　\是否确定将二级密码找回为此密码？\　\　\ @确定2 @取消2

[@取消2]
#IF
checklevelex > 0
#ACT
GOTO @找回二级密码0
BREAK

[@确定2]
#if
checkvar HUMAN 二级登陆密码 =
#act
goto @main
messagebox 您都还没有设置过二级密码，找回什么？请先设置二级密码！
brea