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) .计次循环尾 ()
相关文件下载地址
©下载资源版权归作者所有;本站所有资源均来源于网络,仅供学习使用,请支持正版!

发表回复

您的邮箱地址不会被公开。 必填项已用 * 标注