本程序源码主要是通过易语言post请求获取到csdn的博文内容,可以实现批量获取,感兴趣的小伙伴可以了解下。
代码如下:
.版本 2
.支持库 iext
.子程序 _按钮1_被单击
.局部变量 返回文本, 文本型
.局部变量 json, JSON类
.局部变量 i, 整数型
.局部变量 index, 整数型
返回文本 = 模块_Utf8到Ansi (模块_WinHttp访问 (“https://cms-api.csdn.net/v1/web_home/select_content?componentIds=www-blog-recommend&&cate1=lang”, , , , ))
json.解析 (返回文本)
.如果真 (json.取通用属性 (“msg”) ≠ “ok”)
信息框 (“请求失败”, 0, , )
返回 ()
.如果真结束
超级列表框1.全部删除 ()
.计次循环首 (json.取成员数量 (“data['www-blog-recommend'].info”), i)
index = 超级列表框1.插入表项 (, 到文本 (i), , , , )
超级列表框1.置标题 (index, 1, json.取通用属性 (“data['www-blog-recommend'].info[” + 到文本 (i - 1) + “].extend.title”))
超级列表框1.置标题 (index, 2, json.取通用属性 (“data['www-blog-recommend'].info[” + 到文本 (i - 1) + “].extend.nickname”))
超级列表框1.置标题 (index, 3, json.取通用属性 (“data['www-blog-recommend'].info[” + 到文本 (i - 1) + “].extend.job”))
超级列表框1.置标题 (index, 4, json.取通用属性 (“data['www-blog-recommend'].info[” + 到文本 (i - 1) + “].extend.desc”))
超级列表框1.置标题 (index, 5, json.取通用属性 (“data['www-blog-recommend'].info[” + 到文本 (i - 1) + “].extend.url”))
超级列表框1.置标题 (index, 6, json.取通用属性 (“data['www-blog-recommend'].info[” + 到文本 (i - 1) + “].extend.views”))
超级列表框1.置标题 (index, 7, json.取通用属性 (“data['www-blog-recommend'].info[” + 到文本 (i - 1) + “].extend.comments”))
超级列表框1.置标题 (index, 8, json.取通用属性 (“data['www-blog-recommend'].info[” + 到文本 (i - 1) + “].extend['user_days']”))
超级列表框1.置标题 (index, 9, json.取通用属性 (“data['www-blog-recommend'].info[” + 到文本 (i - 1) + “].extend['created_at']”))
.计次循环尾 ()
.子程序 _超级列表框1_被双击, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
编辑框1.内容 = “”
编辑框1.加入文本 (子程序_获取博文 (超级列表框1.取标题 (超级列表框1.现行选中项, 5)))