一键批量加群里成员为好友工具纯净版

.如果真 (列表框3.取项目数 () ＝ 0)
信息框 (“您还未选择要添加的好友。” ＋ #换行符 ＋ “请先选择QQ群，再从好友列表中双击选择要添加的好友即可。”, #信息图标, “一键加好友”)
返回 ()
.如果真结束
.如果真 (信息框 (“您一共选择了” ＋ 到文本 (列表框3.取项目数 ()) ＋ “位好友。确定添加他们吗？”, #信息图标 ＋ #确认取消钮, “一键加好友”) ＝ #确认钮)
.计次循环首 (列表框3.取项目数 (), Time)
_Temp ＝ 倒找文本 (列表框3.取项目文本 (Time － 1), “[”, , 假) ＋ 1
fuin ＝ fuin ＋ 取文本中间 (列表框3.取项目文本 (Time － 1), _Temp, 取文本长度 (列表框3.取项目文本 (Time － 1)) － _Temp) ＋ “%2C”
.计次循环尾 ()
fuin ＝ 取文本左边 (fuin, 取文本长度 (fuin) － 3)
Html ＝ 彗星HTTP读文本 (“” ＋ G_tk, “POST”, , , “uin=” ＋ 编辑框1.内容 ＋ “&fuin=” ＋ fuin ＋ “&source=2&qzreferrer=http%3A%2F%2Fctc.qzs.qq.com%2Fqzone%2Fv6%2Ffriend_manage%2Fimport_friends.html”)
.如果 (寻找文本 (Html, “ret” ＋ #引号 ＋ “:” ＋ “0”, , 假) ＝ 1)
信息框 (“未知错误。” ＋ #换行符 ＋ “相关代码：” ＋ 取文本中间内容 (Html, “msg” ＋ #引号 ＋ “:” ＋ #引号, #引号), #信息图标, “一键加好友”)
.否则
信息框 (“添加好友请求已发送，请等待对方同意添加。”, #信息图标, “一键加好友”)