易语言写好的程序怎么添加账号密码才能登录
易语言写好的程序怎么添加账号密码登录用网络验证 用网络验证加在你的程序上面 或者 用本地验证是免费的 .版本 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”)
.如果结束
这个帖子不回对不起自己！我想我是一天也不能离开易语言吧。
页:
[1]