第六節：易語言開發實例【登錄初始化】

admin

安裝支持庫：彗星HTTP支持庫1.6版本（內附實例及安裝方法）

彗星HTTP支持庫1.6版本.zip (981.41 KB, 下載次數: 3173)

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, 下載次數: 5214)

2019-1-2 22:13 上傳

點擊文件名下載附件

wuyujia2

為什么看不到內容