|
发表于 2022-10-16 06:51:34
|
显示全部楼层
广西壮族自治区南宁市
.版本 2
.支持库 iext
.支持库 spec
.程序集 窗口程序集_启动窗口
.子程序 _按钮1_被单击
.局部变量 url, 文本型
.局部变量 url响应, 文本型
.局部变量 json, 类_json
.局部变量 i, 整数型
.局部变量 表项数, 整数型
url = “https://tenapi.cn/resou/”
url响应 = 编码_Utf8到Ansi (网页_访问_对象 (url))
json.解析 (url响应)
.如果 (json.取通用属性 (“data”) = “200”)
.计次循环首 (json.成员数 (“list”), i)
表项数 = 超级列表框1.取表项数 ()
超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (表项数, 0, 到文本 (表项数))
超级列表框1.置标题 (表项数, 1, json.取通用属性 (“list[” + 到文本 (i - 1) + “].name”))
超级列表框1.置标题 (表项数, 2, json.取通用属性 (“list[” + 到文本 (i - 1) + “].hot”))
超级列表框1.置标题 (表项数, 3, json.取通用属性 (“list[” + 到文本 (i - 1) + “].url”))
程序_延时 (30)
系统_处理事件 ()
.计次循环尾 ()
.否则
调试输出 (“获取失败”)
.如果结束
直接这样取,最快捷 |
|