.版本 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) .计次循环尾 ()