王者荣耀战力查询源码

.版本 2
.支持库 iext

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

.子程序 _按钮1_被单击
.局部变量 data, 文本型
.局部变量 json, 类_json
.局部变量 索引, 整数型

.如果 (编辑框2.内容 ＝ “”)
    信息框 (“请输入英雄名称”, 0, , )
.否则
    data ＝ 编码_utf8到gb2312 (网页_访问S (“https://api.onepage6.cn:3403/convenience/honor_king_minimum_glory_combat_effectiveness/?name=” ＋ 编码_URL编码 (编辑框2.内容, 假, 真)))
    .如果 (寻找文本 (data, “英雄不存在”, , 假) ≠ -1)
        信息框 (“英雄不存在”, 0, , )
    .否则
        json.解析 (data)
        编辑框4.内容 ＝ json.取通用属性 (“information['update_date']”)
        超级列表框1.全部删除 ()
        索引 ＝ 超级列表框1.插入表项 (, , , , , )
        超级列表框1.置标题 (索引, 0, “QQ”)
        超级列表框1.置标题 (索引, 1, “区”)
        超级列表框1.置标题 (索引, 2, json.取属性 (“information.ranking.qq.district.score”).取数据文本 ())
        超级列表框1.置标题 (索引, 3, json.取通用属性 (“information.ranking.qq.district.region”))
        索引 ＝ 超级列表框1.插入表项 (, , , , , )
        超级列表框1.置标题 (索引, 0, “QQ”)
        超级列表框1.置标题 (索引, 1, “城市”)
        超级列表框1.置标题 (索引, 2, json.取属性 (“information.ranking.qq.city.score”).取数据文本 ())
        超级列表框1.置标题 (索引, 3, json.取通用属性 (“information.ranking.qq.city.region”))
        索引 ＝ 超级列表框1.插入表项 (, , , , , )
        超级列表框1.置标题 (索引, 0, “QQ”)
        超级列表框1.置标题 (索引, 1, “省份”)
        超级列表框1.置标题 (索引, 2, json.取属性 (“information.ranking.qq.province.score”).取数据文本 ())
        超级列表框1.置标题 (索引, 3, json.取通用属性 (“information.ranking.qq.province.region”))
        索引 ＝ 超级列表框1.插入表项 (, , , , , )
        超级列表框1.置标题 (索引, 0, “微信”)
        超级列表框1.置标题 (索引, 1, “区”)
        超级列表框1.置标题 (索引, 2, json.取属性 (“information.ranking.wechat.district.score”).取数据文本 ())
        超级列表框1.置标题 (索引, 3, json.取通用属性 (“information.ranking.wechat.district.region”))
        索引 ＝ 超级列表框1.插入表项 (, , , , , )
        超级列表框1.置标题 (索引, 0, “微信”)
        超级列表框1.置标题 (索引, 1, “城市”)
        超级列表框1.置标题 (索引, 2, json.取属性 (“information.ranking.wechat.city.score”).取数据文本 ())
        超级列表框1.置标题 (索引, 3, json.取通用属性 (“information.ranking.wechat.city.region”))
        索引 ＝ 超级列表框1.插入表项 (, , , , , )
        超级列表框1.置标题 (索引, 0, “微信”)
        超级列表框1.置标题 (索引, 1, “省份”)
        超级列表框1.置标题 (索引, 2, json.取属性 (“information.ranking.wechat.province.score”).取数据文本 ())
        超级列表框1.置标题 (索引, 3, json.取通用属性 (“information.ranking.wechat.province.region”))
    .如果结束

.如果结束


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

编辑框2.获取焦点 ()

@逗笔小新