QQ本地自动登陆批量获取好友群列表工具

' 标签1.标题 ＝ “读取好友完毕。。。。。。”
' 写到文件 (取运行目录 () ＋ “\” ＋ 昵称 ＋ “-” ＋ uin ＋ “\好友信息.txt”, 到字节集 (friend))
json.清除 ()
群信息 ＝ 编码_Utf8到Ansi (网页_访问 (“https://qun.qq.com/cgi-bin/qun_mgr/get_group_list”, 1, “bkn=” ＋ bkn, cookies, , , , , , , , ))
json.解析 (群信息)
.计次循环首 (json.取属性 (“create”).成员数 (), i)
sy ＝ 超级列表框2.插入表项 (, , , , , )
超级列表框2.置标题 (sy, 0, 到文本 (sy))
user ＝ json.取属性 (“create[” ＋ 到文本 (i － 1) ＋ “].gc”).取数据文本 ()
超级列表框2.置标题 (sy, 1, user)
name ＝ json.取通用属性 (“create[” ＋ 到文本 (i － 1) ＋ “].gn”, )
超级列表框2.置标题 (sy, 2, name)
系统_处理事件 ()
' group ＝ group ＋ user ＋ “----” ＋ name ＋ #换行符
.计次循环尾 ()