第六节:易语言开发实例【登录初始化】
安装支持库:彗星HTTP支持库1.6版本(内附实例及安装方法)第一步:新建自定义数据类
.版本 2
.数据类型 新秀用户信息, 公开
.成员 uid, 文本型, , , 用户uid
.成员 name, 文本型, , , 用户名
.成员 groupid, 文本型, , , 会员组id
.成员 adminid, 文本型, , , 管理组id
.成员 token, 文本型, , , token令牌
.成员 sgin, 文本型, , , 卡号
.成员 datetime, 文本型, , , 计时用户到期时间
.成员 grouptime, 文本型, , , 用户组到期时间
.数据类型 新秀网络验证设置, 公开
.成员 域名, 文本型, , , 网站域名带http://
.成员 key, 文本型, , , 传输密钥
.成员 adminkey, 文本型, , , 管理密钥
第二步:新建自定义数据类型
.版本 2
.支持库 CometHttp
.全局变量 用户, 新秀用户信息
.全局变量 设置, 新秀网络验证设置
.全局变量 类_json, 彗星JSON
.全局变量 返回数据, 文本型
.全局变量 API接口拼接, 文本型
第三步:写登录接口代码
.版本 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”' 设置管理密钥
第四步:登录成功返回用户信息
.版本 2
.程序集 窗口程序集_功能面板
.子程序 _功能面板_创建完毕
读取登录信息 ()
.子程序 读取登录信息
标签_uid.标题 = 用户.uid
标签_name.标题 = 用户.name
标签_groupid.标题 = 用户.groupid
标签_adminid.标题 = 用户.adminid
标签_token.标题 = 用户.token
标签_sgin.标题 = 用户.sgin
标签_datetime.标题 = 用户.datetime
为什么看不到内容
页:
[1]