聚合数据发送短信例子

.版本 2

.程序集 程序集1

.子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码

_临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
返回 (0)  ' 可以根据您的需要返回任意数值

.子程序 _临时子程序

' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。

.子程序 聚合数据_短信发送, 整数型
.参数 tpl_id, 文本型, , 短信模板编号
.参数 key, 文本型, , 短信模板appkey
.参数 mobile, 文本型, , 要发送的手机号
.参数 code, 文本型, , 要发送的验证码
.参数 type, 文本型, 可空, 返回数据类型，默认为json
.局部变量 reqUrl, 文本型
.局部变量 reqHeader, 文本型
.局部变量 str, 文本型
.局部变量 reason, 文本型
.局部变量 error_code, 文本型
.局部变量 json, 类_json

.如果真 (是否为空 (type))
    type ＝ “json”
.如果真结束
reqUrl ＝ “http://v.juhe.cn/sms/send”
reqUrl ＝ reqUrl ＋ “?mobile=” ＋ mobile
reqUrl ＝ reqUrl ＋ “&tpl_id=” ＋ tpl_id
reqUrl ＝ reqUrl ＋ “&tpl_value=” ＋ 编码_URL编码 (“#code#=” ＋ code, 真, 真)
reqUrl ＝ reqUrl ＋ “&key=” ＋ key
reqUrl ＝ reqUrl ＋ “&dtype=” ＋ type
reqHeader ＝ “User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/55.0.2883.87 Safari/537.36”
str ＝ 编码_Utf8到Ansi (网页_访问_对象 (reqUrl, , , , , reqHeader))
json.解析 (str)
reason ＝ json.取通用属性 (“reason”)
.如果 (reason ＝ “操作成功”)
    返回 (1)
.否则
    返回 (error_code)
.如果结束

@z3zx8q