wx加不了好友求助各位老师看看源码

78571272 · 发表于 2019-1-5 19:25:08

.版本 2
.支持库 iext

.子程序子程序_多群自动添加
.局部变量 i, 整数型
.局部变量 socket, 整数型
.局部变量 n, 整数型
.局部变量 m, 整数型
.局部变量群员wxid, 文本型
.局部变量成员socekt, 整数型
.局部变量群号, 文本型
.局部变量性别, 文本型

.计次循环首 (群列表框.取表项数 (), i)

.如果真 (群列表框.取当前状态图片 (i － 1) ＝ 1)

      socket ＝到整数 (群列表框.取标题 (i － 1, 4))
      群号＝群列表框.取标题 (i － 1, 2)
      .如果真 (socket ＞ 0)
         群员列表框.全部删除 ()
         集_群成员索引＝ i － 1
         集_群成员计次＝ 0
         g_群成员计次＝ 0
         集_加载群成员＝假
         集_群wxid ＝群列表框.取标题 (i － 1, 5)
         集_所在群wxid ＝群号

         功能_获取群员列表 (socket, 群号)
         .判断循环首 (真)
            n ＝ n ＋ 1
            群列表框.置标题 (i － 1, 6, “[切换添加]加载好友：” ＋到文本 (n))
            .如果真 (集_加载群成员＝真)
                  跳出循环 ()
            .如果真结束
            笑郭_延迟 (1000)
         .判断循环尾 ()
         笑郭_延迟 (3000)
         群列表框.置标题 (i － 1, 6, “[切换添加]开始加群好友接口为：” ＋到文本 (组合框_加人来源.取项目数值 (组合框_加人来源.现行选中项)))
         .计次循环首 (群员列表框.取表项数 (), m)
            成员socekt ＝到整数 (群员列表框.取标题 (m － 1, 4))
            群员wxid ＝群员列表框.取标题 (m － 1, 3)
            全局_添加好友Wxid ＝群员wxid
            全局_添加好友消息＝编辑框_群fa文本2.内容
            性别＝群员列表框.取标题 (m － 1, 10)

            .如果真 (单选框_全部加.选中＝真)
                  功能_加好友 (成员socekt, 1, 组合框_加人来源.取项目数值 (组合框_加人来源.现行选中项), 群员wxid, , 编辑框_群fa文本2.内容)
                  群员列表框.置标题 (m － 1, 7, “全部加_Add_ok”)

            .如果真结束
            .如果真 (单选框_男.选中＝真且性别＝ “男”)
                  功能_加好友 (成员socekt, 1, 组合框_加人来源.取项目数值 (组合框_加人来源.现行选中项), 群员wxid, , 编辑框_群fa文本2.内容)
                  群员列表框.置标题 (m － 1, 7, “只加男_Add_ok”)

            .如果真结束
            .如果真 (单选框_女.选中＝真且性别＝ “女”)
                  功能_加好友 (成员socekt, 1, 组合框_加人来源.取项目数值 (组合框_加人来源.现行选中项), 群员wxid, , 编辑框_群fa文本2.内容)
                  群员列表框.置标题 (m － 1, 7, “只加女_Add_ok”)

            .如果真结束

            笑郭_延迟 (到整数 (编辑框_延迟4.内容))
         .计次循环尾 ()

         群列表框.置标题 (i － 1, 6, “[切换添加]添加完成”)

      .如果真结束

      笑郭_延迟 (到整数 (编辑框_延迟4.内容))
.如果真结束

.计次循环尾 ()