易语言写好的程序怎么添加账号密码才能登录

436

易语言写好的程序怎么添加账号密码登录

十万个为什么

用网络验证

田磊

用网络验证加在你的程序上面   或者 用本地验证  是免费的

新人韶华

.版本 2
.支持库 xplib

.程序集 窗口程序集1

.子程序 __启动窗口_创建完毕

XP风格 (3)
.如果真 (文件是否存在 (取运行目录 () ＋ “\data.ini”) ＝ 假)
    写到文件 (取运行目录 () ＋ “\data.ini”, #配置文件)
.如果真结束

.如果真 (读配置项 (取运行目录 () ＋ “\data.ini”, “SET”, “记住密码”, ) ＝ “1”)
    选择框1.选中 ＝ 真
    编辑框_账号.内容 ＝ 读配置项 (取运行目录 () ＋ “\data.ini”, “USERNAME”, “账号”, )
    编辑框_密码.内容 ＝ 读配置项 (取运行目录 () ＋ “\data.ini”, “PASSWORD”, “密码”, )
.如果真结束


.子程序 _按钮_注册_被单击

_启动窗口.可视 ＝ 假
载入 (_窗口注册, , 真)

.子程序 _按钮2_被单击
.局部变量 密码, 文本型

密码 ＝ 读配置项 (取运行目录 () ＋ “\data.ini”, “PASSWORD”, “密码”, )
信息框 (“账号【” ＋ 编辑框_账号.内容 ＋ “】” ＋ #换行符 ＋ “密码【” ＋ 密码 ＋ “】”, 0, )

.子程序 _按钮_登录_被单击
.局部变量 账号, 文本型
.局部变量 密码, 文本型

是否保存密码 ()
账号 ＝ 读配置项 (取运行目录 () ＋ “\data.ini”, “USERNAME”, “账号”, )
密码 ＝ 读配置项 (取运行目录 () ＋ “\data.ini”, “PASSWORD”, “密码”, )
.如果真 (编辑框_账号.内容 ＝ 账号 且 编辑框_密码.内容 ＝ 密码)
    信息框 (“账号【” ＋ 编辑框_账号.内容 ＋ “】登陆成功！”, 0, “提示”)
    返回 ()
.如果真结束
.如果 (编辑框_账号.内容 ≠ 账号)
    信息框 (“账号不正确，请检查后重新输入！”, #错误图标 ＋ #确认钮, “提示”)
.否则
    .如果 (编辑框_密码.内容 ≠ 密码)
        信息框 (“密码不正确，请检查后重新输入！”, #错误图标 ＋ #确认钮, “提示”)
    .否则

    .如果结束

.如果结束


.子程序 是否保存密码

.如果 (选择框1.选中 ＝ 真)
    写配置项 (取运行目录 () ＋ “\data.ini”, “SET”, “记住密码”, “1”)
.否则
    写配置项 (取运行目录 () ＋ “\data.ini”, “SET”, “记住密码”, “0”)
.如果结束

令狐不惜

这个帖子不回对不起自己！我想我是一天也不能离开易语言吧。