.版本 2 .程序集 程序集1 .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码 _临时子程序 () ' 在初始化代码执行完毕后调用测试代码 返回 (0) ' 可以根据您的需要返回任意数值 .子程序 _临时子程序 ' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。 .子程序 聚合数据_短信发送, 整数型 .参数 tpl_id, 文本型, , 短信模板编号 .参数 key, 文本型, , 短信模板appkey .参数 mobile, 文本型, , 要发送的手机号 .参数 code, 文本型, , 要发送的验证码 .参数 type, 文本型, 可空, 返回数据类型，默认为json .局部变量 reqUrl, 文本型 .局部变量 reqHeader, 文本型 .局部变量 str, 文本型 .局部变量 reason, 文本型 .局部变量 error_code, 文本型 .局部变量 json, 类_json .如果真 (是否为空 (type)) type ＝ “json” .如果真结束 reqUrl ＝ “//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) .如果结束