第六节：易语言开发实例【登录初始化】
安装支持库：彗星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]