发现一个超简单验证码短信接口对接DEMO示例
步骤
1.注册 互亿无线 账号
2.查找APIID和APIKEY
3.代码的书写
注册 互亿无线 账号
网站： /?JA9Ewr
查找APIID和APIKEY
注意事项：
（1）调试期间，请使用用系统默认的短信内容：您的验证码是：【变量】。请不要把验证码泄露给其他人。
.版本 2.支持库 iconv.支持库 EXMLParser.程序集 窗口程序集_启动窗口.子程序 __启动窗口_创建完毕.子程序 账户信息判断, 逻辑型, 公开.如果真 (接口名.内容 ＝ "")信息框 ("请输入用户名", 0, )返回 (假).如果真结束.如果真 (接口密.内容 ＝ "")信息框 ("请输入密码", 0, )返回 (假).如果真结束返回 (真).子程序 发送数据判断, 逻辑型, 公开.如果真 (手机号.内容 ＝ "")信息框 ("请输入手机号码", 0, )返回 (假).如果真结束.如果真 (短信内容.内容 ＝ "")信息框 ("请输入要发送的内容", 0, )返回 (假).如果真结束返回 (真).子程序 _按钮1_被单击.局部变量 节点名数组, 文本型, , "0".局部变量 子节点数, 整数型.局部变量 i, 整数型.如果真 (取反 (账户信息判断 ()))返回 ().如果真结束.如果真 (取反 (发送数据判断 ()))返回 ().如果真结束状态标签.标题 ＝ 短信发送 (接口名.内容, 接口密.内容, 手机号.内容, 短信内容.内容)xml文件名 ＝ 取当前目录 () ＋ "\data\submit.xml"状态标签.标题 ＝ 到文本 (编码转换 (到字节集 (状态标签.标题), #编码_UTF_8, #编码_GBK, ))写到文件 (xml文件名, 到字节集 (状态标签.标题))xml.导入 (xml文件名)xml.取根节点名 (根节点)xml.取子节点数 (根节点, 子节点数).如果真 (子节点数 ＞ 0)xml.取子节点名 (根节点, 节点名数组)输出调试文本 (节点名数组 [1])输出调试文本 (节点名数组 [2])输出调试文本 (节点名数组 [3])输出调试文本 (xml.取节点值文本 (根节点 ＋ "/code", ))输出调试文本 (xml.取节点值文本 (根节点 ＋ "/msg", ))输出调试文本 (xml.取节点值文本 (根节点 ＋ "/smsid", ))状态标签.标题 ＝ "状态码：" ＋ xml.取节点值文本 (根节点 ＋ "/code", ) ＋ #换行符 ＋ "描述：" ＋ xml.取节点值文本 (根节点 ＋ "/msg", ) ＋ #换行符 ＋ "流水号：" ＋ xml.取节点值文本 (根节点 ＋ "/smsid", ).如果真结束xml.释放 ()返回 ()返回 ().子程序 _按钮2_被单击.局部变量 节点名数组, 文本型, , "0".局部变量 子节点数, 整数型.局部变量 i, 整数型.如果真 (取反 (账户信息判断 ()))返回 ().如果真结束状态标签.标题 ＝ 剩余条数 (接口名.内容, 接口密.内容)xml文件名 ＝ 取当前目录 () ＋ "\data\getnum.xml"状态标签.标题 ＝ 到文本 (编码转换 (到字节集 (状态标签.标题), #编码_UTF_8, #编码_GBK, ))写到文件 (xml文件名, 到字节集 (状态标签.标题))xml.导入 (xml文件名)xml.取根节点名 (根节点)xml.取子节点数 (根节点, 子节点数).如果真 (子节点数 ＞ 0)xml.取子节点名 (根节点, 节点名数组)输出调试文本 (节点名数组 [1])输出调试文本 (节点名数组 [2])输出调试文本 (节点名数组 [3])输出调试文本 (xml.取节点值文本 (根节点 ＋ "/code", ))输出调试文本 (xml.取节点值文本 (根节点 ＋ "/msg", ))输出调试文本 (xml.取节点值文本 (根节点 ＋ "/num", ))状态标签.标题 ＝ "状态码：" ＋ xml.取节点值文本 (根节点 ＋ "/code", ) ＋ #换行符 ＋ "描述：" ＋ xml.取节点值文本 (根节点 ＋ "/msg", ) ＋ #换行符 ＋ "条数：" ＋ xml.取节点值文本 (根节点 ＋ "/num", ).如果真结束xml.释放 ()返回 ().子程序 GBK编码转换, 文本型, 公开, 将一个GBK编码的文本转换为URL编码，返回一个URL编码.参数 文本, 文本型, , 需要转换为URL编码的GBK编码的文本.局部变量 GBK文本, 字节集.局部变量 URL码, 文本型.局部变量 n, 整数型GBK文本 ＝ 到字节集 (文本).计次循环首 (取字节集长度 (GBK文本), n)URL码 ＝ URL码 ＋ "%" ＋ 取十六进制文本 (GBK文本 [n]).计次循环尾 ()返回 (URL码).子程序 UTF8编码转换, 文本型, 公开, 将一个UTF8编码的文本转换为URL编码，返回一个URL编码.参数 文本, 文本型, , 需要转换为URL编码的UTF8编码的文本.局部变量 URL码, 文本型.局部变量 n, 整数型.局部变量 UTF8文本, 字节集UTF8文本 ＝ 编码转换 (到字节集 (文本), #编码_GBK, #编码_UTF_8, ).计次循环首 (取字节集长度 (UTF8文本), n)URL码 ＝ URL码 ＋ "%" ＋ 取十六进制文本 (UTF8文本 [n]).计次循环尾 ()返回 (URL码).子程序 _分组框4_鼠标左键被按下, 逻辑型.参数 横向位置, 整数型.参数 纵向位置, 整数型.参数 功能键状态, 整数型
