.版本 2
.支持库 spec

.程序集 手机操作

.子程序 取手机, 逻辑型, 公开, operator：   0=默认 1=移动 2=联通 3=电信 4=实卡 5=虚卡
.参数 参_项目id, 文本型
.参数 返回手机, 文本型, 参考
.局部变量 str, 文本型
.局部变量 yyjson, json对象
.局部变量 token, 文本型
.局部变量 局_号码, 文本型

str ＝ 编码_Utf8到Ansi (网页_访问_对象 (“http://api.haozhuma.com/sms/?api=getPhone&token=” ＋ 全登录token ＋ “&sid=” ＋ 参_项目id))
调试输出 (“取手机--”, str)
yyjson.清空 ()
yyjson.解析 (str)
局_号码 ＝ yyjson.取文本 (“phone”)
.如果真 (局_号码 ≠ “”)
    返回手机 ＝ 局_号码
    返回 (真)
.如果真结束

返回手机 ＝ str
返回 (假)

.子程序 取短信, 逻辑型, 公开
.参数 参_项目id, 文本型
.参数 参_手机, 文本型
.参数 返回短信, 文本型, 参考
.局部变量 str, 文本型
.局部变量 yyjson, json对象
.局部变量 token, 文本型
.局部变量 局_号码, 文本型
.局部变量 局_message, 文本型

str ＝ 编码_Utf8到Ansi (网页_访问_对象 (“http://api.haozhuma.com/sms/?api=getMessage&token=” ＋ 全登录token ＋ “&sid=” ＋ 参_项目id ＋ “&phone=” ＋ 参_手机))
调试输出 (“取短信---”, str)
yyjson.清空 ()
yyjson.解析 (str)
局_message ＝ yyjson.取文本 (“yzm”)
.如果真 (局_message ≠ “”)
    返回短信 ＝ 局_message
    返回 (真)
.如果真结束

返回短信 ＝ str
返回 (假)

.子程序 取指定手机, 逻辑型, 公开
.参数 参_项目id, 文本型
.参数 参_指定手机, 文本型
.局部变量 str, 文本型
.局部变量 yyjson, json对象
.局部变量 token, 文本型
.局部变量 局_号码, 文本型

str ＝ 编码_Utf8到Ansi (网页_访问_对象 (“http://” ＋ #椰子host ＋ “/api/get_mobile?token=” ＋ 全登录token ＋ “&project_id=” ＋ 参_项目id ＋ “&phone_num=” ＋ 参_指定手机, , , ))
' 调试输出 (“取指定手机--”, str)
yyjson.清空 ()
yyjson.解析 (str)
局_号码 ＝ yyjson.取文本 (“mobile”)
.如果真 (局_号码 ≠ “”)
    返回 (真)
.如果真结束

返回 (假)

.子程序 拉黑号码, 逻辑型, 公开
.参数 参_项目id, 文本型
.参数 参_拉黑号码, 文本型
.局部变量 str, 文本型
.局部变量 yyjson, json对象
.局部变量 token, 文本型
.局部变量 局_state, 文本型

str ＝ 编码_Utf8到Ansi (网页_访问_对象 (“http://api.haozhuma.com/sms/?api=addBlacklist&token=” ＋ 全登录token ＋ “&sid=” ＋ 参_项目id ＋ “&phone=” ＋ 参_拉黑号码))
' 调试输出 (“取指定手机--”, str)
yyjson.清空 ()
yyjson.解析 (str)
局_state ＝ yyjson.取文本 (“message”)
.如果真 (局_state ＝ “OK”)
    返回 (真)
.如果真结束

返回 (假)