[工具开发] 一信通 Web 短信发送客户端
一、简介
为了协助公司运营部对几家短信平台进行测试,我根据各自的接口文档编写了几个简单的短信发送客户端;
下面是一信通 Web 短信发送客户端,使用 HTTP GET 方法。
二、效果图
1. 首页
2. 返回页
三、源代码
1. index.pl
#!/usr/bin/perl -w #Hu Peng
#penghu.zh@gmail.com use strict;
use 5.10.;
use CGI;
use Encode; my $form_action = '/yxt/send.pl'; my $q = CGI->new; my $smsMsg = '您的验证码为1232'; print $q->header(-type=>'text/html',-charset=>'UTF-8'),
$q->start_html(-title=>'一信通短信平台测试'),
$q->start_form(-action=>$form_action, -method=>'post'),
$q->p({-align=>'center'},'一信通短信平台测试'), $q->start_table({-align=>'center',-border=>'0',-cellpadding=>'4',-cellspacing=>'0'}), $q->start_Tr,
$q->start_td({-align=>'left'}),'短信内容: '.$q->input({-id=>'smsMsg',-type=>'text',-name=>'smsMsg',-value=>$smsMsg}),$q->end_td,
$q->end_Tr, $q->start_Tr,
$q->start_td({-align=>'left'}),'接收号码: '.$q->input({-id=>'smsPhone',-type=>'text',-name=>'smsPhone',-title=>'多个号码用,隔开'}),$q->end_td,
$q->end_Tr, $q->end_table, $q->p({-align=>'center'},$q->submit(-value=>'发 送')),
$q->end_form,
$q->br,
$q->end_html;
2. send.pl
#!/usr/bin/perl -w #Hu Peng
#penghu.zh@gmail.com use strict;
use 5.10.;
use CGI;
use Encode;
use LWP::UserAgent; my $form_action = '/yxt/index.pl';
my $q = CGI->new; sub sendSMS {
my ($opt_u,$opt_p,$opt_r,$opt_m) = @_;
my $msg = encode('gbk',decode('utf8',$opt_m)); my $ua = LWP::UserAgent->new;
my $url = 'http://js.ums86.com:8899/sms/Api/Send.do?SpCode=201971&LoginName='.$opt_u.'&Password='.$opt_p.'&MessageContent='.$msg.'&UserNumber='.$opt_r.'&SerialNumber=&ScheduleTime=&f=1';
my $resp = $ua->get($url); if ($resp->is_success) {
my $message = encode('utf8',decode('gbk',$resp->decoded_content));
return "$message\n";
}else{
return "HTTP GET error code: ".$resp->code.':'.$resp->message."\n";
}
} my $smsMsg = defined($q->param('smsMsg'))?$q->param('smsMsg'):'';
my $smsPhone = defined($q->param('smsPhone'))?$q->param('smsPhone'):''; my $return = &sendSMS('YOUR_ACCOUNT','YOUR_PASSWORD',$smsPhone,$smsMsg); print $q->header(-type=>'text/html',-charset=>'UTF-8'),
$q->start_html(-title=>'一信通短信平台测试'),
$q->start_form(-action=>$form_action, -method=>'post'),
$q->p({-align=>'center'},'一信通短信平台测试'), $q->start_table({-align=>'center',-border=>'0',-cellpadding=>'4',-cellspacing=>'0'}), $q->start_Tr,
$q->start_td({-align=>'left'}),'返回信息: '.$return,$q->end_td,
$q->end_Tr, $q->end_table, $q->p({-align=>'center'},$q->submit(-value=>'返 回')),
$q->end_form,
$q->br,
$q->end_html;
[工具开发] 一信通 Web 短信发送客户端的更多相关文章
- Android软件开发之发送短信与系统短信库解析
今天我和同学们讨论一下Android平台下如何调用系统方法发送短信.接收短信.系统的短信库相关的问题.进入正题,我们先使用Eclipse工具模拟给自己的模拟器发送一条短信.在Eclipse下打开DDM ...
- 五、K3 WISE 开发插件《K3 Wise 群发短信配置开发(二)之短信群发配置》
开发环境:K/3 Wise 13.0.Sql Server 2005 目录 一.开启Sql Server Agent代理服务 二.短信发送原理 三.编写存储过程 四.开启Sql Server作业 一. ...
- 企业短信通 C# HTTP接口 发送短信
/* 功能: 企业短信通 C# HTTP接口 发送短信 修改日期: 2014-09-01 说明: http://api.cnsms.cn/?ac=send&uid=用户账号&pwd=M ...
- 基于Socket客户端局域网或广域网内共享同一短信猫收发短信的开发解决方案
可使同一网络(局域网或广域网)内众多客户端,共享一个短信猫设备短信服务器进行短信收发,短信服务器具备对客户端的管理功能. 下面是某市建设银行采用本短信二次开发平台时实施的系统方案图: 在该方案中,考虑 ...
- 在网页程序或Java程序中调用接口实现短信猫收发短信的解决方案
方案特点: 在网页程序或Java程序中调用接口实现短信猫收发短信的解决方案,简化软件开发流程,减少各应用系统相同模块的重复开发工作,提高系统稳定性和可靠性. 基于HTTP协议的开发接口 使用特点在网页 ...
- atitit 短信接口规范与短信解决方案.docx
atitit 短信接口规范与短信解决方案.docx 1.1. 国内比较著名的短信提供商1 1.2. 短信接口规范1 1.3. 短信sdk构成1 1.4. 短信的实现1 1.5. SmsServiceY ...
- Android黑科技,读取用户短信+修改系统短信数据库
安卓系统比起ios系统最大的缺点,相信大家都知道,就是系统安全问题.这篇博客就秀一波“黑科技”. 读取用户短信 Android应用能读取用户手机上的短信,相信已经不是什么新鲜事,比如我们收到的短信验证 ...
- ABP框架中短信发送处理,包括阿里云短信和普通短信商的短信发送集成
在一般的系统中,往往也有短信模块的需求,如动态密码的登录,系统密码的找回,以及为了获取用户手机号码的短信确认等等,在ABP框架中,本身提供了对邮件.短信的基础支持,那么只需要根据自己的情况实现对应的接 ...
- flask开发restful api系列(5)-短信验证码
我们现在开发app,注册用户的时候,不再像web一样,发送到个人邮箱了,毕竟个人邮箱在移动端填写验证都很麻烦,一般都采用短信验证码的方式.今天我们就讲讲这方面的内容. 首先,先找一个平台吧.我们公司找 ...
随机推荐
- 如何使CSS3中的animation动画当每滑到一屏时每次都运行
这个我还没用过,但感觉以后会用到,就随手摘抄一下啦<div id="a1"></div> <div id="a2">< ...
- centos7.0 64位系统 安装PHP 支持 nginx
1 安装PHP所需要的扩展 yum -y install libxml2 libxml2-devel openssl openssl-devel bzip2 bzip2-devel curl cur ...
- File缓存
/** * 保存对象 * @param ser * @param file * @throws IOException */ public b ...
- POJ 3041 Asteroids 匈牙利算法,最大流解法,行列为点 难度:1
http://poj.org/problem?id=3041 #include <cstdio> #include <cstring> #include <vector& ...
- (BFS)poj2935-Basic Wall Maze
题目地址 题目与最基本的BFS迷宫的区别就是有一些障碍,可以通过建立三维数组,标记某个地方有障碍不能走.另一个点是输出路径,对此建立结构体时要建立一个pre变量,指向前一个的下标.这样回溯(方法十分经 ...
- Java中的异常处理
描述: 如果Java中的函数有可能抛出异常,则该异常要么被catch住,要么在声明函数时必须声明该函数体会throws exception. 处理的时候的流程是,当发生异常时,首先结束当前函数后续语句 ...
- Java中类型的长度
介绍: Java中有8种基本类型,分别是boolean, char, byte, short, int, long, float, double.他们的长度固定,不是对象.对于有必要将基本类型作为对象 ...
- input标签实现让光标不出现!
实现不让光标出现的效果,很好用,例子如下: <input class="red" readonly unselectable="on" value=&qu ...
- jquery替换URL参数值
由于经常会用到替换URL参数值,而网上写的方法代码都太长了,所以在这里写了一个简单的方法,供大家使用. 说明: reLoad(参数名,参数值) function reLoad(p, v) { var ...
- SharePoint开发——利用CSOM逐级获取O365中SharePoint网站的List内容
博客地址:http://blog.csdn.net/FoxDave 本文介绍如何利用SharePoint客户端对象模型(.NET)逐级获取Office 365网站中List的内容,仅仅是示例,没有 ...