QQ看点评论历史记录查询源码

代码

.版本 2
.支持库 iext

.子程序 qq看点
.局部变量 i, 文本型
.局部变量 json, 类_json
.局部变量 i1, 整数型
.局部变量 昵称, 文本型
.局部变量 帖子标题, 文本型
.局部变量 url, 文本型
.局部变量 评论内容, 文本型
.局部变量 time, 文本型
.局部变量 评论ID, 文本型
.局部变量 i2, 整数型

i ＝ 编码_Utf8到Ansi (网页_访问_对象 (“https://kandian.qq.com/cgi-bin/social/getHomePage?uin=” ＋ 编辑框1.内容 ＋ “&pageSize=10&pageCookies=&isInQQ=1&tabid=0&g_tk=178079155&bkn=178079155&_=” ＋ 时间_取现行时间戳 (), 0, , , , “User-Agent: Mozilla/5.0 (Linux; Android 5.1.1; vivo x6a Build/LMY47I) AppleWebKit/537.36 (KHTML, like Gecko) Version/4.0 Chrome/39.0.0.0 Mobile Safari/537.36 V1_AND_SQ_8.0.7_1204_YYB_D PA QQ/8.0.7.4085 NetType/WIFI WebP/0.4.1 Pixel/720 StatusBarHeight/50”))
json.解析 (i)
.计次循环首 (json.成员数 (“result.articleinfos”), i1)
    处理事件 ()
    昵称 ＝ json.取通用属性 (“result.articleinfos[” ＋ 到文本 (i1 － 1) ＋ “].site”)  ' json.取通用属性 (“result.list[” ＋ 到文本 (i1 － 1) ＋ “].cardInfo.author”)
    帖子标题 ＝ json.取通用属性 (“result.articleinfos[” ＋ 到文本 (i1 － 1) ＋ “].title”)  ' json.取通用属性 (“result.list[” ＋ 到文本 (i1 － 1) ＋ “].cardInfo.title”)
    url ＝ json.取通用属性 (“result.articleinfos[” ＋ 到文本 (i1 － 1) ＋ “].articleurl”)  ' json.取通用属性 (“result.list[” ＋ 到文本 (i1 － 1) ＋ “].cardInfo.innerJumpUrl”)
    评论内容 ＝ json.取通用属性 (“result.articleinfos[” ＋ 到文本 (i1 － 1) ＋ “].biuLevelList[0]['biuLevel_comment']”)  ' json.取通用属性 (“result.list[” ＋ 到文本 (i1 － 1) ＋ “].commentInfo.comment”)
    time ＝ json.取通用属性 (“result.articleinfos[” ＋ 到文本 (i1 － 1) ＋ “].timeTips”)  ' json.取通用属性 (“result.list[” ＋ 到文本 (i1 － 1) ＋ “].operationInfo”)
    评论ID ＝ json.取通用属性 (“result.articleinfos[” ＋ 到文本 (i1 － 1) ＋ “].biuLevelList[0]['biuLevel_nick']”)  ' json.取通用属性 (“result.list[” ＋ 到文本 (i1 － 1) ＋ “].commentInfo.commentId”)
    i2 ＝ 超级列表框1.插入表项 (, , , , , )
    超级列表框1.置标题 (i2, 0, 到文本 (i2 ＋ 1))
    超级列表框1.置标题 (i2, 1, 昵称)
    超级列表框1.置标题 (i2, 2, 帖子标题)
    超级列表框1.置标题 (i2, 3, 评论内容)
    超级列表框1.置标题 (i2, 4, time)
    超级列表框1.置标题 (i2, 5, 评论ID)
    超级列表框1.置标题 (i2, 6, url)
    超级列表框1.保证显示 (i2)
.计次循环尾 ()

@派单外发