90 lines
2.8 KiB
Plaintext
90 lines
2.8 KiB
Plaintext
.版本 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”)
|
||
返回 (真)
|
||
.如果真结束
|
||
|
||
返回 (假)
|
||
|
||
|
||
|