post批量检查手机号是否开通子弹短信

post批量检查手机号是否开通子弹短信

@风度猫

.版本 2
.支持库 EThread

.子程序 判断是否注册
.参数 索引, 整数型
.局部变量 当前手机号, 文本型
.局部变量 子执行顺序, 整数型
.局部变量 测试结果, 文本型
.局部变量 cookies, 文本型
.局部变量 判断值, 文本型
.局部变量 发送数据内容, 文本型

.循环判断首 ()
    .如果 (执行顺序 ≤ 总数量)
        子执行顺序 ＝ 执行顺序
        执行顺序 ＝ 执行顺序 ＋ 1
        当前手机号 ＝ 分割后总数组 [子执行顺序]
        .如果 (当前手机号 ＝ “”)
            跳出循环 ()
        .否则
            .如果 (取文本长度 (当前手机号) ≠ 11)

            .否则
                发送数据内容 ＝ 文本_替换 (#发送数据, , , , “{手机号}”, 当前手机号)
                测试结果 ＝ 编码_utf8到gb2312 (到文本 (网页_访问 (“https://im.smartisan.com/im/tokens”, 1, 发送数据内容, , cookies, “Referer: https://im.smartisan.com/login” ＋ #换行符 ＋ “Content-Type: application/json; charset=UTF-8”, , , , , )))
                判断值 ＝ 文本区分_只取数字 (测试结果)
                .如果 (判断值 ＝ “65”)
                    写文本行 (索引1, 当前手机号)
                .否则

                .如果结束

                .判断开始断 (判断值 ＝ “63”)

                .' 判断 (判断值 ＝ “65”)
                    ' 写文本行 (索引1, 当前手机号)
                    ' ' 加入成员 (查找到的索引组, 子执行顺序)
                .默认

                .判断结束

            .如果结束

        .如果结束

    .否则
        跳出循环 ()
    .如果结束

.循环判断尾 (真)
强制结束线程 (全局判断线程 [索引])



.子程序 启动判断线程
.参数 总数, 整数型

.循环判断首 ()
    标签3.标题 ＝ “当前过滤:” ＋ 到文本 (执行顺序) ＋ “个号码”
    .如果 (执行顺序 ≥ 总数)
        跳出循环 ()
    .否则

    .如果结束
    延时 (1000)
.循环判断尾 (真)
关闭文件 (索引1)
信息框 (“过滤后导出数据成功”, 0, , )