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, , )