本程序可以一键采集用户名,通过采集到的用户名进入用户主页从而获取该用户的全部博文和每一篇博文的评论内容,包括:评论人、评论时间、评论人ID、评论人主页ID等等。然后根据评论人ID又可以获取他的博文及评论,达到裂变式采集
程序中内置每个搜索关键字最多50页,因为微博官网上最大只支持50页。
代码如下:
.版本 2
.支持库 iext
.支持库 spec
.如果真 (超级列表框1.取表项数 () ≥ 到整数 (json.取通用属性 (“data.total”)))
跳出循环 ()
.如果真结束
.计次循环首 (json.取成员数量 (“data.list”), i)
index = 超级列表框1.插入表项 (, 到文本 (超级列表框1.取表项数 () + 1), , , , )
超级列表框1.置标题 (index, 1, json.取通用属性 (“data.list[” + 到文本 (i - 1) + “]['created_at']”))
超级列表框1.置标题 (index, 2, json.取通用属性 (“data.list[” + 到文本 (i - 1) + “].id”))
超级列表框1.置标题 (index, 3, json.取通用属性 (“data.list[” + 到文本 (i - 1) + “].mblogid”))
超级列表框1.置标题 (index, 4, json.取通用属性 (“data.list[” + 到文本 (i - 1) + “].user.id”))
超级列表框1.置标题 (index, 5, json.取通用属性 (“data.list[” + 到文本 (i - 1) + “].user['screen_name']”))
超级列表框1.置标题 (index, 6, json.取通用属性 (“data.list[” + 到文本 (i - 1) + “].user['profile_image_url']”))
超级列表框1.置标题 (index, 7, json.取通用属性 (“data.list[” + 到文本 (i - 1) + “].user['profile_url']”))
超级列表框1.置标题 (index, 8, json.取通用属性 (“data.list[” + 到文本 (i - 1) + “]['text_raw']”))
超级列表框1.置标题 (index, 9, json.取通用属性 (“data.list[” + 到文本 (i - 1) + “]['reposts_count']”))
超级列表框1.置标题 (index, 10, json.取通用属性 (“data.list[” + 到文本 (i - 1) + “]['comments_count']”))
超级列表框1.置标题 (index, 11, json.取通用属性 (“data.list[” + 到文本 (i - 1) + “]['attitudes_count']”))
超级列表框1.置标题 (index, 12, json.取通用属性 (“data.list[” + 到文本 (i - 1) + “]['region_name']”))
超级列表框1.获取焦点 ()
超级列表框1.保证显示 (index)
超级列表框1.现行选中项 = index
.计次循环尾 ()
pageNow = pageNow + 1
延迟 (50)