139邮箱发短信易语言源码

139邮箱发短信易语言源码

.版本 2

.子程序 发送短信, 逻辑型
.参数 手机号, 文本型
.参数 内容, 文本型
.参数 已发送, 文本型, 参考 可空
.参数 错误信息, 文本型, 参考 可空
.局部变量 Header, 文本型
.局部变量 varcontent, 文本型
.局部变量 rdnum, 文本型
.局部变量 script, 脚本类
.局部变量 Tosend, 文本型
.局部变量 提交Header, 文本型
.局部变量 Msg, 文本型

script.置语言 (“JScript”)
script.添加代码 (#getTime)
rdnum ＝ script.运行 (“getTime”)
Tosend ＝ “mo=” ＋ MO ＋ “&vn=268&cmd=2&content=” ＋ URL编码 (内容) ＋ “&reciever=” ＋ 手机号 ＋ “&__randomNumber=” ＋ rdnum
输出调试文本 (Tosend)
提交Header ＝ 子文本替换 (子文本替换 (#短信PostHeader, “[mo]”, MO, , , 真), “[139]”, 到文本 (取文本长度 (Tosend)), , , 真)
输出调试文本 (提交Header)
varcontent ＝ UTF8转ANSI (HTTP读网页 (“http://m.mail.10086.cn:7000/ws/w3/w3smsend”, “POST”, Tosend, Cookies, , 提交Header, Header, , , , ))
Msg ＝ _取文本中间 (varcontent, “msg%22%3A%22”, “%22%2C%22url%22”)
.如果真 (Msg ≠ “”)
    Msg ＝ 子文本替换 (Msg, “%25”, “%”, , , 真)
    置剪辑板文本 (Msg)
    信息框 (“发送失败！” ＋ #换行符 ＋ “这里就不解码了，偷懒下。复制在剪切板了，右键粘帖自己解码下！” ＋ #换行符 ＋ Msg ＋ #换行符 ＋ “算了，还是不偷懒了，解码下吧。” ＋ #换行符 ＋ _URL解码 (Msg), 16, )
    返回 (假)
.如果真结束
已发送 ＝ _取文本中间 (varcontent, “%E6%9C%AC%E6%9C%88%E5%B7%B2%E5%8F%91”, “%E6%9D%A1”)
返回 (已发送 ≠ “”)

@易语言教程网