第六节：易语言开发实例【登录初始化】

admin

安装支持库：彗星HTTP支持库1.6版本（内附实例及安装方法）

彗星HTTP支持库1.6版本.zip (981.41 KB, 下载次数: 2967)

2019-1-2 22:08 上传

点击文件名下载附件
彗星HTTP支持库1.6版本

第一步：新建自定义数据类

[ecode].版本 2

.数据类型 新秀用户信息, 公开
    .成员 uid, 文本型, , , 用户uid
    .成员 name, 文本型, , , 用户名
    .成员 groupid, 文本型, , , 会员组id
    .成员 adminid, 文本型, , , 管理组id
    .成员 token, 文本型, , , token令牌
    .成员 sgin, 文本型, , , 卡号
    .成员 datetime, 文本型, , , 计时用户到期时间
    .成员 grouptime, 文本型, , , 用户组到期时间

.数据类型 新秀网络验证设置, 公开
    .成员 域名, 文本型, , , 网站域名带http://
    .成员 key, 文本型, , , 传输密钥
    .成员 adminkey, 文本型, , , 管理密钥
[/ecode]

第二步：新建自定义数据类型

[ecode].版本 2
.支持库 CometHttp

.全局变量 用户, 新秀用户信息
.全局变量 设置, 新秀网络验证设置
.全局变量 类_json, 彗星JSON
.全局变量 返回数据, 文本型
.全局变量 API接口拼接, 文本型
[/ecode]
第三步：写登录接口代码


[ecode].版本 2
.支持库 CometHttp

.程序集 窗口程序集_启动窗口

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

加载网站设置 ()

.子程序 _按钮_登陆_被单击
.局部变量 json, 彗星JSON

API接口拼接 ＝ 设置.域名 ＋ “login&key=” ＋ 设置.key ＋ “&action=login_user&username=” ＋ 用户名_输入框.内容 ＋ “&password=” ＋ 密码_输入框.内容
返回数据 ＝ 彗星HTTP读文本 (API接口拼接, , , , , , , , )
类_json.解析 (返回数据, 真)  ' 解析json格式数据
.如果 (类_json.取文本属性 (“code”) ＝ “200”)  ' 判断是否成功：200成功，400是失败
    json ＝ 类_json.查询 (“data”)  ' 查询成功返回数据数组
    用户.uid ＝ json.取文本属性 (“uid”)  ' 赋值全局变量用户类值
    用户.name ＝ json.取文本属性 (“username”)  ' 赋值全局变量用户类值
    用户.groupid ＝ json.取文本属性 (“groupid”)  ' 赋值全局变量用户类值
    用户.adminid ＝ json.取文本属性 (“adminid”)  ' 赋值全局变量用户类值
    用户.token ＝ json.取文本属性 (“token”)  ' 赋值全局变量用户类值
    用户.sgin ＝ json.取文本属性 (“sgin”)  ' 赋值全局变量用户类值
    用户.datetime ＝ json.取文本属性 (“dateline”)  ' 赋值全局变量用户类值
    载入 (用户信息, , 真)
.否则
    信息框 (类_json.取文本属性 (“result”), 48, “错误提示码：”, )
.如果结束


.子程序 加载网站设置

设置.域名 ＝ “http://demo.xinxiuvip.com/plugin.php?id=xinxiu_network:”  ' 设置网站域名头
设置.key ＝ “123456”  ' 设置传输密钥
设置.adminkey ＝ “8888888”  ' 设置管理密钥
[/ecode]
第四步：登录成功返回用户信息

[ecode].版本 2

.程序集 窗口程序集_功能面板

.子程序 _功能面板_创建完毕

读取登录信息 ()

.子程序 读取登录信息

标签_uid.标题 ＝ 用户.uid
标签_name.标题 ＝ 用户.name
标签_groupid.标题 ＝ 用户.groupid
标签_adminid.标题 ＝ 用户.adminid
标签_token.标题 ＝ 用户.token
标签_sgin.标题 ＝ 用户.sgin
标签_datetime.标题 ＝ 用户.datetime

[/ecode]
新秀网络验证登陆实例.e (10.94 KB, 下载次数: 3061)

2019-1-2 22:13 上传

点击文件名下载附件

wuyujia2

为什么看不到内容