最新公告
  • 欢迎您光临347网,本站秉承服务宗旨 履行“站长”责任,做国内最专业的传奇资源平台!立即加入我们
  • GOM引擎非常不错的二级密码脚本实例

    (@@InPutString @@InPutInteger )
    [@main]
    为了防止木马盗号事件让玩家造成损失,现在特采用双密码验证登\
    陆,当玩家电脑机器码与之前登陆不同时会锁定玩家角色,需输入\
    二次密码解锁。如果你还未设置二级密码,请点击下面的设置密码\
    设置。密码可以为数字、字母、汉字、特殊字符,<字母区分大小写!!/FCOLOR=249>\
    <请玩家不要将二次密码设置成与登陆密码一致!/FCOLOR=254>\
    设置好之后请不要泄漏给任何人。<注:密码中如包含字母区分大小写/FCOLOR=249>\ \
    <设置密码/@初始设置二级密码0>  <修改密码/@修改二级密码>  <设置下次上线需要输入二级密码/@设置下次上线需要输入二级密码>←<再点取消/FCOLOR=253>\
    <清除密码/@清除二级密码0>  <找回密码/@找回二级密码0>  ↑<网吧用户可设此功能防止同网吧盗号/FCOLOR=249>

    [@清除二级密码0]
    #if
    checkvar HUMAN 二级登陆密码 =
    #act
    goto @main
    messagebox 您都还没有设置二级密码,清除什么?请先设置二级密码!
    break
    #elseACT
    MOV N67 0
    MOV S83
    MOV S84
    GOTO @清除二级密码

    [@清除二级密码]
    #if
    checkvar HUMAN 二级登陆密码 =
    #act
    goto @main
    messagebox 您都还没有设置二级密码,清除什么?请先设置二级密码!
    break
    #elsesay
    <请正确填写以下密码保护资料为您清除二级帐号密码:/FCOLOR=254>\ \
    <点此输入→/FCOLOR=250><您的二级密码保护生日/@@InPutInteger67>:<$STR(N67)>\
    <点此输入→/FCOLOR=250><您的二级密码保护问题/@@InPutString83>:<$STR(S83)>\
    <点此输入→/FCOLOR=250><您的二级密码保护答案/@@InPutString84>:<$STR(S84)>\ \
    <确定清除二级帐号密码/@确定清除二级帐号密码>

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

    [~InPutInteger67]
    #IF
    LARGE N67 10000000
    small N67 29999999
    #ACT
    goto @清除二级密码
    break

    #IF
    LARGE N67 0
    #ACT
    MOV N67 0
    goto @清除二级密码
    messagebox 出错!生日必须为8位纯数字格式(格式:19700902)!\ \请重新输入你的生日!
    #elseact
    goto @清除二级密码
    messagebox 出错!生日必须为纯数字格式,不能带符号!\ \请重新输入你的生日!
    break

    [@InPutString83]
    #OR
    CheckContainsText <$STR(S83)> @
    CheckContainsText <$STR(S83)> ~
    CheckContainsText <$STR(S83)> [
    CheckContainsText <$STR(S83)> ]
    CheckContainsText <$STR(S83)> <
    CheckContainsText <$STR(S83)> >
    CheckContainsText <$STR(S83)> {
    CheckContainsText <$STR(S83)> }
    #ACT
    mov S83
    SENDMSG 5 [错误]:输入数据中包含了非法字符,请重新编辑!
    GOTO @清除二级密码
    break
    #elseact
    DELAYGOTO 1 ~InPutString83

    [~InPutString83]
    #if
    Equal S83
    #act
    goto @清除二级密码
    messagebox 请输入你的二级密码保护问题!
    break
    #elseact
    goto @清除二级密码
    break

    [@InPutString84]
    #OR
    CheckContainsText <$STR(S84)> @
    CheckContainsText <$STR(S84)> ~
    CheckContainsText <$STR(S84)> [
    CheckContainsText <$STR(S84)> ]
    CheckContainsText <$STR(S84)> <
    CheckContainsText <$STR(S84)> >
    CheckContainsText <$STR(S84)> {
    CheckContainsText <$STR(S84)> }
    #ACT
    mov S84
    SENDMSG 5 [错误]:输入数据中包含了非法字符,请重新编辑!
    GOTO @清除二级密码
    break
    #elseact
    DELAYGOTO 1 ~InPutString84

    [~InPutString84]
    #if
    Equal S84
    #act
    goto @清除二级密码
    messagebox 请输入你要的二级密码保护答案!
    break
    #elseact
    goto @清除二级密码
    break

    [@确定清除二级帐号密码]
    #if
    checkvar HUMAN 二级登陆密码 =
    #act
    goto @main
    messagebox 您都还没有设置二级密码,清除什么?请先设置二级密码!
    break
    #IF
    LARGE N67 10000000
    small N67 29999999
    #elseact
    MOV N67 0
    goto @清除二级密码
    messagebox 您还没有输入二级密码保护生日!\ \请先点击【您的二级密码保护生日】输入你的生日!
    break

    #IF
    Equal S83
    #act
    goto @清除二级密码
    messagebox 您还没有输入二级密码保护问题!\ \请先点击【您的二级密码保护问题】输入你的问题!
    break

    #IF
    Equal S84
    #act
    goto @清除二级密码
    messagebox 您还没有输入二级密码保护答案!\ \请先点击【您的二级密码保护答案】输入你的答案!
    break

    #IF
    CHECKLEVELEX > 0
    #act
    MessageBox 清除二级密码后将无法保障你帐号安全,请谨慎操作!\ \是否确定将二级密码清除?\ \ \ @确定3 @取消3

    [@取消3]
    #IF
    checklevelex > 0
    #ACT
    GOTO @清除二级密码0
    BREAK

    [@确定3]
    #if
    checkvar HUMAN 二级登陆密码 =
    #act
    goto @main
    messagebox 您都还没有设置过二级密码,清除什么?请先设置二级密码!
    break

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

    #IF
    Equal S83
    #act
    goto @清除二级密码
    messagebox 您还没有输入二级密码保护问题!\ \请先点击【您的二级密码保护问题】输入你的问题!
    break

    #IF
    Equal S84
    #act
    goto @清除二级密码
    messagebox 您还没有输入二级密码保护答案!\ \请先点击【您的二级密码保护答案】输入你的答案!
    break

    #if
    checkvar HUMAN 二级密码生日 = <$STR(N67)>
    #elseact
    messagebox 对不起您的密码保护生日不是【<$STR(N67)>】,请重新输入!
    MOV N67 0
    goto @清除二级密码
    break

    #if
    checkvar HUMAN 二级密码问题 = <$STR(S83)>
    #elseact
    messagebox 对不起您的密码保护问题不是【<$STR(S83)>】,请重新输入!
    MOV S83
    goto @清除二级密码
    break

     

    #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 您都还没有设置过二级密码,找回什么?请先设置二级密码!
    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
    checkvar HUMAN 二级密码生日 = <$STR(N68)>
    #elseact
    messagebox 对不起您的密码保护生日不是【<$STR(N68)>】,请重新输入!
    MOV N68 0
    goto @找回二级密码
    break

    #if
    checkvar HUMAN 二级密码问题 = <$STR(S85)>
    #elseact
    messagebox 对不起您的密码保护问题不是【<$STR(S85)>】,请重新输入!
    MOV S85
    goto @找回二级密码
    break

    #if
    checkvar HUMAN 二级密码答案 = <$STR(S86)>
    #act
    CALCVAR HUMAN 二级登陆密码 = <$STR(S87)>
    CALCVAR HUMAN 二级机器码 = <$USERMACHINEID>
    CALCVAR HUMAN 二级登陆次数 = 0
    SAVEVAR HUMAN 二级登陆密码 ..\QuestDiary\重要数据\二级密码.txt
    SAVEVAR HUMAN 二级机器码 ..\QuestDiary\重要数据\二级密码.txt
    SAVEVAR HUMAN 二级登陆次数 ..\QuestDiary\重要数据\二级密码.txt
    SENDMSG 6 恭喜您!您成功设置新的二级密码为:【<$STR(S87)>】
    MOV S85
    MOV S86
    MOV S87
    MOV N68 0
    break
    #say
    <恭喜您成功设置新的二级密码。请务必牢记,不要再忘记了!/FCOLOR=254>\ \ \
    <您新的二级帐号密码为/FCOLOR=250>:<$HUMAN(二级登陆密码)>\ \ \
    <返回./@main>\
    <退出./@exit>

    #elseact
    messagebox 对不起您的密码保护答案不是【<$STR(S86)>】,请重新输入!
    MOV S86
    goto @找回二级密码
    break

    [@初始设置二级密码0]
    #if
    checkvar HUMAN 二级登陆密码 =
    checkvar HUMAN 二级密码问题 =
    checkvar HUMAN 二级密码答案 =
    #act
    MOV N69 0
    MOV S88
    MOV S89
    MOV S90
    GOTO @初始设置二级密码
    break

    #if
    checkvar HUMAN 二级登陆密码 =
    #say
    \ \
    \ \
    <点此输入→/FCOLOR=250><设置您的二级帐号密码/@@InPutString93>\
    #elseact
    goto @main
    messagebox 对不起,您已经设置过二级密码!
    break

     

    [@初始设置二级密码]
    #if
    checkvar HUMAN 二级登陆密码 =
    checkvar HUMAN 二级密码问题 =
    checkvar HUMAN 二级密码答案 =
    #act
    break
    #say
    <点此输入→/FCOLOR=250><设置二级帐号密码/@@InPutString90>:<$STR(S90)>\ \
    <以下为二级密码保护资料,忘记二级密码可以通过密码保护找回/FCOLOR=254>\ \
    <点此输入→/FCOLOR=250><二级密码保护生日/@@InPutInteger69>:<$STR(N69)> <(格式:19800902)/FCOLOR=249>\
    <点此输入→/FCOLOR=250><二级密码保护问题/@@InPutString88>:<$STR(S88)>\
    <点此输入→/FCOLOR=250><二级密码保护答案/@@InPutString89>:<$STR(S89)>\ \
    <确定设置二级密码及密码保护资料/@确定设置二级密码及密码保护资料>
    #if
    checkvar HUMAN 二级登陆密码 =
    #say
    \ \
    \ \
    <点此输入→/FCOLOR=250><设置您的二级帐号密码/@@InPutString93>\
    #elseact
    goto @main
    messagebox 对不起,您已经设置过二级密码!
    break

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

    [~InPutInteger69]
    #IF
    LARGE N69 10000000
    small N69 29999999
    #ACT
    goto @初始设置二级密码
    SENDMSG 6 您设置二级密码保护生日为:【<$STR(N69)>】,请牢记此生日。
    break
    #IF
    LARGE N69 0
    #ACT
    MOV N69 0
    goto @初始设置二级密码
    messagebox 出错!生日必须为8位纯数字格式(格式:19800902)!\ \请重新输入你要设置的生日!
    #elseact
    goto @初始设置二级密码
    messagebox 出错!生日必须为纯数字格式,不能带符号!\ \请重新输入你要设置的生日!
    break

    [@InPutString88]
    #OR
    CheckContainsText <$STR(S88)> @
    CheckContainsText <$STR(S88)> ~
    CheckContainsText <$STR(S88)> [
    CheckContainsText <$STR(S88)> ]
    CheckContainsText <$STR(S88)> <
    CheckContainsText <$STR(S88)> >
    CheckContainsText <$STR(S88)> {
    CheckContainsText <$STR(S88)> }
    #ACT
    mov S88
    SENDMSG 5 [错误]:输入数据中包含了非法字符,请重新编辑!
    GOTO @初始设置二级密码

    break
    #elseact
    DELAYGOTO 1 ~InPutString88

    [~InPutString88]
    #if
    Equal S88
    #act
    goto @初始设置二级密码
    messagebox 请输入你要设置的二级密码保护问题!
    break
    #elseact
    goto @初始设置二级密码
    SENDMSG 6 您设置二级密码保护问题为:【<$STR(S88)>】,请牢记此问题。
    break

    [@InPutString89]
    #OR
    CheckContainsText <$STR(S89)> @
    CheckContainsText <$STR(S89)> ~
    CheckContainsText <$STR(S89)> [
    CheckContainsText <$STR(S89)> ]
    CheckContainsText <$STR(S89)> <
    CheckContainsText <$STR(S89)> >
    CheckContainsText <$STR(S89)> {
    CheckContainsText <$STR(S89)> }
    #ACT
    mov S89
    SENDMSG 5 [错误]:输入数据中包含了非法字符,请重新编辑!
    GOTO @初始设置二级密码
    break
    #elseact
    DELAYGOTO 1 ~InPutString89

    [~InPutString89]
    #if
    Equal S89
    #act
    goto @初始设置二级密码
    messagebox 请输入你要设置的二级密码保护答案!
    break
    #elseact
    goto @初始设置二级密码
    SENDMSG 6 您设置二级密码保护答案为:【<$STR(S89)>】,请牢记此答案。
    break

     

    [@InPutString90]
    #OR
    CheckContainsText <$STR(S90)> @
    CheckContainsText <$STR(S90)> ~
    CheckContainsText <$STR(S90)> [
    CheckContainsText <$STR(S90)> ]
    CheckContainsText <$STR(S90)> <
    CheckContainsText <$STR(S90)> >
    CheckContainsText <$STR(S90)> {
    CheckContainsText <$STR(S90)> }
    #ACT
    mov S90
    SENDMSG 5 [错误]:输入数据中包含了非法字符,请重新编辑!
    GOTO @初始设置二级密码
    break
    #elseact
    DELAYGOTO 1 ~InPutString90

    [~InPutString90]
    #if
    Equal S90
    #act
    goto @初始设置二级密码
    messagebox 请输入你要设置的二级密码!
    break
    #elseact
    goto @初始设置二级密码
    SENDMSG 6 您设置二级密码为:【<$STR(S90)>】,请牢记此密码。
    break

    [@确定设置二级密码及密码保护资料]
    #IF
    Equal S90
    #act
    goto @初始设置二级密码
    messagebox 您还没有输入密码!\ \请先点击【设置二级帐号密码】输入你要设置的密码!
    break

    #IF
    LARGE N69 10000000
    small N69 29999999
    #elseact
    MOV N69 0
    goto @初始设置二级密码
    messagebox 您还没有输入二级密码保护生日!\ \请先点击【二级密码保护生日】输入你要设置的生日!
    break

    #IF
    Equal S88
    #act
    goto @初始设置二级密码
    messagebox 您还没有输入二级密码保护问题!\ \请先点击【二级密码保护问题】输入你要设置的问题!
    break

    #IF
    Equal S89
    #act
    goto @初始设置二级密码
    messagebox 您还没有输入二级密码保护答案!\ \请先点击【二级密码保护答案】输入你要设置的答案!
    break

    #IF
    CHECKLEVELEX > 0
    #act
    MessageBox 您的二级帐号密码:<$STR(S90)>\二级密码保护生日:<$STR(N69)>\二级密码保护问题:<$STR(S88)>\二级密码保护答案:<$STR(S89)>\提交后将不能修改,是否确定提交以下密码及密码保护资料设置?\ @确定1 @取消1

    [@取消1]
    #IF
    checklevelex > 0
    #ACT
    GOTO @初始设置二级密码0
    BREAK

    [@确定1]
    #IF
    Equal S90
    #act
    goto @初始设置二级密码
    messagebox 您还没有输入密码!\ \请先点击【设置二级帐号密码】输入你要设置的密码!
    break

    #IF
    LARGE N69 10000000
    small N69 29999999
    #elseact
    MOV N69 0
    goto @初始设置二级密码
    messagebox 您还没有输入二级密码保护生日!\ \请先点击【二级密码保护生日】输入你要设置的生日!
    break

    #IF
    Equal S88
    #act
    goto @初始设置二级密码
    messagebox 您还没有输入二级密码保护问题!\ \请先点击【二级密码保护问题】输入你要设置的问题!
    break
    #IF
    Equal S89
    #act
    goto @初始设置二级密码
    messagebox 您还没有输入二级密码保护答案!\ \请先点击【二级密码保护答案】输入你要设置的答案!
    break

    #if
    checkvar HUMAN 二级登陆密码 =
    checkvar HUMAN 二级密码生日 =
    checkvar HUMAN 二级密码答案 =
    #act
    CALCVAR HUMAN 二级登陆密码 = <$STR(S90)>
    CALCVAR HUMAN 二级机器码 = <$USERMACHINEID>
    CALCVAR HUMAN 二级登陆次数 = 0
    CALCVAR HUMAN 二级密码生日 = <$STR(N69)>
    CALCVAR HUMAN 二级密码问题 = <$STR(S88)>
    CALCVAR HUMAN 二级密码答案 = <$STR(S89)>
    SAVEVAR HUMAN 二级登陆密码 ..\QuestDiary\重要数据\二级密码.txt
    SAVEVAR HUMAN 二级机器码 ..\QuestDiary\重要数据\二级密码.txt
    SAVEVAR HUMAN 二级登陆次数 ..\QuestDiary\重要数据\二级密码.txt
    SAVEVAR HUMAN 二级密码生日 ..\QuestDiary\重要数据\二级密码.txt
    SAVEVAR HUMAN 二级密码问题 ..\QuestDiary\重要数据\二级密码.txt
    SAVEVAR HUMAN 二级密码答案 ..\QuestDiary\重要数据\二级密码.txt
    SENDMSG 6 恭喜您!您成功设置二级密码为:【<$STR(S90)>】
    SENDMSG 6 您成功设置二级密码保护生日为:【<$STR(N69)>】
    SENDMSG 6 您成功设置二级密码保护问题为:【<$STR(S88)>】
    SENDMSG 6 您成功设置二级密码保护答案为:【<$STR(S89)>】
    MOV S90
    MOV S88
    MOV S89
    MOV N69 0
    break
    #say
    <恭喜您成功设置二级密码及密码保护。请牢记以下资料:/FCOLOR=254>\ \
    <您的二级帐号密码为/FCOLOR=250>:<$HUMAN(二级登陆密码)>\
    <二级密码保护生日为/FCOLOR=250>:<$HUMAN(二级密码生日)>\
    <二级密码保护问题为/FCOLOR=250>:<$HUMAN(二级密码问题)>\
    <二级密码保护答案为/FCOLOR=250>:<$HUMAN(二级密码答案)>\ \
    <返回./@main>\
    <退出./@exit>

    #if
    checkvar HUMAN 二级登陆密码 =
    #act
    MOV S90
    MOV S88
    MOV S89
    MOV N69 0
    break
    #say
    \ \
    \ \
    <点此输入→/FCOLOR=250><设置您的二级帐号密码/@@InPutString93>\
    #elseact
    MOV S90
    MOV S88
    MOV S89
    MOV N69 0
    goto @main
    messagebox 对不起,您已经设置过二级密码,您可以点击修改密码进行修改。
    break

    [@设置下次上线需要输入二级密码]
    #if
    checkvar human 二级登陆密码 =
    #ACT
    messagebox 对不起,你还没有设置二级密码,请先设置二级密码才能进行此操作!
    break

    #if
    CHECK [390] 0
    #ACT
    SET [390] 1
    messagebox 恭喜你设置成功,下次上线需要输入二级密码!
    goto @main
    BREAK
    #elseact
    SET [390] 0
    messagebox 恭喜你取消成功,已取消下次上线需要输入二级密码!
    goto @main
    BREAK

    [@修改二级密码]
    #if
    checkvar human 二级登陆密码 =
    #ACT
    messagebox 对不起,你还没有设置二级密码,请先设置二级密码才能进行此操作!
    break
    #elsesay
    为了防止木马盗号事件让玩家造成损失,现在特采用双密码验证登\
    陆,当玩家电脑机器码与之前登陆不同时会锁定玩家角色,需输入\
    二次密码解锁。如果你还未设置二级密码,请点击下面的设置密码\
    设置。密码可以为数字、字母、汉字、特殊字符,<字母区分大小写!!/FCOLOR=249>\
    <请玩家不要将二次密码设置成与登陆密码一致!/FCOLOR=254>\
    设置好之后请不要泄漏给任何人。<注:密码中如包含字母区分大小写/FCOLOR=249>\
    点击下方的验证密码输入原始密码进行原密码验证.\
    <验证原密码/@@InPutString92>             <返回/@main>

     

    [@InPutString92]
    #OR
    CheckContainsText <$STR(S92)> @
    CheckContainsText <$STR(S92)> ~
    CheckContainsText <$STR(S92)> [
    CheckContainsText <$STR(S92)> ]
    CheckContainsText <$STR(S92)> <
    CheckContainsText <$STR(S92)> >
    CheckContainsText <$STR(S92)> {
    CheckContainsText <$STR(S92)> }
    #ACT
    mov S92
    SENDMSG 5 [错误]:输入数据中包含了非法字符,请重新编辑!
    GOTO @修改二级密码
    break
    #elseact
    DELAYGOTO 1 ~InPutString92

    [~InPutString92]
    #if
    checkvar HUMAN 二级登陆密码 = <$STR(S92)>
    #act
    break
    #say
    为了防止木马盗号事件让玩家造成损失,现在特采用双密码验证登\
    陆,当玩家电脑机器码与之前登陆不同时会锁定玩家角色,需输入\
    二次密码解锁。如果你还未设置二级密码,请点击下面的设置密码\
    设置。密码可以为数字、字母、汉字、特殊字符,<字母区分大小写!!/FCOLOR=249>\
    <请玩家不要将二次密码设置成与登陆密码一致!/FCOLOR=254>\
    设置好之后请不要泄漏给任何人。\
    原密码验证通过,请输入新密码..<注:密码中如包含字母区分大小写/FCOLOR=249>\
    <输入新密码/@@InPutString91>             <返回/@main>
    #elseact
    CALCVAR HUMAN 二级登陆次数 + 1
    SAVEVAR HUMAN 二级登陆次数 ..\QuestDiary\重要数据\二级密码.txt
    #elsesay
    对不起,密码验证失败。<注:密码中如包含字母区分大小写/FCOLOR=249>\
    您已经累积输入密码错误<$HUMAN(二级登陆次数)>次。\
    累积输入错误5次后,每输错一次密码就将踢您下线。\
    更改密码可以清空此数值。\
    <返回./@main>\
    <退出./@exit>

    #if
    checkvar human 二级登陆次数 > 4
    #act
    kick
    messagebox 对不起,您已经累积输入密码错误<$HUMAN(二级登陆次数)>次。\系统自动踢您下线,以后每次登陆均只有一次输入密码的机会。\更改密码可以清空此数值。
    break

    [@InPutString91]
    #OR
    CheckContainsText <$STR(S91)> @
    CheckContainsText <$STR(S91)> ~
    CheckContainsText <$STR(S91)> [
    CheckContainsText <$STR(S91)> ]
    CheckContainsText <$STR(S91)> <
    CheckContainsText <$STR(S91)> >
    CheckContainsText <$STR(S91)> {
    CheckContainsText <$STR(S91)> }
    #ACT
    mov S91
    SENDMSG 5 [错误]:输入数据中包含了非法字符,请重新编辑!
    GOTO @修改二级密码
    break
    #elseact
    DELAYGOTO 1 ~InPutString91

    [~InPutString91]
    #if
    checkvar HUMAN 二级登陆密码 = <$STR(S92)>
    #act
    CALCVAR HUMAN 二级登陆密码 = <$STR(S91)>
    CALCVAR HUMAN 二级机器码 = <$USERMACHINEID>
    CALCVAR HUMAN 二级登陆次数 = 0
    SAVEVAR HUMAN 二级登陆密码 ..\QuestDiary\重要数据\二级密码.txt
    SAVEVAR HUMAN 二级机器码 ..\QuestDiary\重要数据\二级密码.txt
    SAVEVAR HUMAN 二级登陆次数 ..\QuestDiary\重要数据\二级密码.txt
    SENDMSG 6 您成功修改二级密码为:【<$STR(S91)>】,请牢记此密码。
    break
    #say
    恭喜您成功修改了二级登陆密码。\
    当前密码为:<$STR(S91)>\
    密码输入错误次数清零。\
    <返回./@main>\
    <退出./@exit>
    #elsesay
    对不起,请先验证原密码,才能进行新密码设置。\
    <注:密码中如包含字母区分大小写/FCOLOR=249>\
    <返回./@main>\
    <退出./@exit>

    [@InPutString93]
    #OR
    CheckContainsText <$STR(S93)> @
    CheckContainsText <$STR(S93)> ~
    CheckContainsText <$STR(S93)> [
    CheckContainsText <$STR(S93)> ]
    CheckContainsText <$STR(S93)> <
    CheckContainsText <$STR(S93)> >
    CheckContainsText <$STR(S93)> {
    CheckContainsText <$STR(S93)> }
    #ACT
    mov S93
    SENDMSG 5 [错误]:输入数据中包含了非法字符,请重新编辑!
    GOTO @初始设置二级密码0
    break
    #elseact
    DELAYGOTO 1 ~InPutString93

    [~InPutString93]
    #if
    checkvar HUMAN 二级登陆密码 =
    #act
    CALCVAR HUMAN 二级登陆密码 = <$STR(S93)>
    CALCVAR HUMAN 二级机器码 = <$USERMACHINEID>
    CALCVAR HUMAN 二级登陆次数 = 0
    SAVEVAR HUMAN 二级登陆密码 ..\QuestDiary\重要数据\二级密码.txt
    SAVEVAR HUMAN 二级机器码 ..\QuestDiary\重要数据\二级密码.txt
    SAVEVAR HUMAN 二级登陆次数 ..\QuestDiary\重要数据\二级密码.txt
    SENDMSG 6 您成功设置二级密码为:【<$STR(S93)>】,请牢记此密码。
    MOV S93
    break
    #say
    恭喜您成功设置二级密码。\ \
    当前密码为:<$HUMAN(二级登陆密码)>\ \
    <返回./@main>\
    <退出./@exit>
    #elsesay
    对不起,您已经设置过二级密码,请点击修改密码进行修改。\
    <返回./@main>\
    <退出./@exit>

    [@IsInFilterList]
    #IF
    CHECKLEVELEX > 0
    #ACT
    MESSAGEBOX [错误]:输入数据中包含了非法字符,请重新编辑!

     

    1. 本站所有资源来源于用户上传和网络,如有侵权请邮件联系站长!
    2. 分享目的仅供大家学习和交流,请不要用于商业用途!
    3. 如果你也有好源码或者教程,可以到用户中心发布,分享有积分奖励和额外收入!
    4. 本站提供的源码、模板、插件等等其他资源,都不包含技术服务请大家谅解!
    5. 如有链接无法下载、失效或广告,请联系管理员处理!
    6. 本站资源售价只是赞助,收取费用仅维持本站的日常运营所需!
    7. 如遇到加密压缩包,默认解压密码为"347w.com",如遇到无法解压的请联系管理员!
    8. 因为资源和程序源码均为可复制品,所以不支持任何理由的退款兑现,请斟酌后支付下载
    声明如果标题没有注明"已测试"或者"测试可用"等字样的资源源码均未经过站长测试.特别注意没有标注的源码不保证任何可用性

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

    常见问题FAQ

    免费下载或者VIP会员专享资源能否直接商用?
    本站所有资源版权均属于原作者所有,这里所提供资源均只能用于参考学习用,请勿直接商用。若由于商用引起版权纠纷,一切责任均由使用者承担。更多说明请参考 VIP介绍。
    提示下载完但解压或打开不了?
    最常见的情况是下载不完整: 可对比下载完压缩包的与网盘上的容量,若小于网盘提示的容量则是这个原因。这是浏览器下载的bug,建议用百度网盘软件或迅雷下载。 若排除这种情况,可在对应资源底部留言,或 联络我们.。
    你们有qq群吗怎么加入?
    当然有的,可以加入我们官方QQ群:738756745 欢迎大家一起学习讨论!。

    发表评论

    
    • 389会员数(个)
    • 570资源数(个)
    • 4本周更新(个)
    • 0 今日更新(个)
    • 267稳定运行(天)

    提供最优质的资源集合

    立即查看 了解详情
    开通VIP 享更多特权,建议使用 账号 登录