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