一键获取QQ群列表全部好友信息

.子程序 重写数据
.参数 类型, 整数型, , 1我加入的群 2我管理的群 3我创建的群
.局部变量 i, 整数型
.局部变量 表项索引, 整数型

超级列表框1.全部删除 ()
.判断开始 (类型 ＝ 1)
.计次循环首 (取数组成员数 (群.join), i)
表项索引 ＝ 超级列表框1.插入表项 (超级列表框1.取表项数 (), 群.join [i].gn, , , , )
超级列表框1.置标题 (表项索引, 1, 群.join [i].gc)
超级列表框1.置标题 (表项索引, 2, 群.join [i].owner)
.计次循环尾 ()