[工具开发] 一信通 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一样,发送到个人邮箱了,毕竟个人邮箱在移动端填写验证都很麻烦,一般都采用短信验证码的方式.今天我们就讲讲这方面的内容. 首先,先找一个平台吧.我们公司找 ...
随机推荐
- MYSQL57密码策略修改
1.查看当前的密码测试 show variables like 'validate_password%';
- Java:多线程<二> 同步
由于多线程的访问出现延迟和线程的随机性,在使用多线程时往往会伴随安全性的问题,这些问题一旦出现将会是非常严重的.为了解决这种安全性问题,synchronized出现了. synchronized用法一 ...
- UISlider
UISlider是iOS中的滑块控件 通常⽤于控制视频播放进度,控制⾳量等. 它继承于UIControl,滑块提供了⼀系列连续的值,滑块停 在不同的位置,获取到滑块上的值也不同. minimumV ...
- Autofac.Configuration 3.3.0不稳定
Autofac.Configuration程序集的作用:通过配置来实现依赖注入. 示例: 1.配置内容 <configuration> <configSections> ...
- R on Ubuntu
I have been using R recently. R is statistics programming language. R has attracted more and more at ...
- json体会
1.用json-lib的jar包,创建JsonObject的对象(其引用取名jo),JsonObject jo = new JsonObject(); 再创建一个jsonobject对象:JsonOb ...
- 黑马程序员——【Java基础】——Java IO流
---------- android培训.java培训.期待与您交流! ---------- 一.IO概述 1.IO:是Input.Output的缩写. 2.特点: (1)用于处理设备间的数据传输. ...
- Uri.AbsoluteUri 与 Uri.ToString() 的区别
UriBuilder builder = new UriBuilder("http://somehost/somepath"); builder.Query = "som ...
- HDU 2254
http://acm.hdu.edu.cn/showproblem.php?pid=2254 矩阵乘法两个经典问题的综合题,还要离散化和处理边界,好题啊好题 题意容易理解错,每一天是独立的,所以根据加 ...
- android 检测网络是否连接,或者GPS是否可用
很多android程序在打开时,检测网络是否连接,或者GPS是否可用: 1.网络是否连接(包括Wifi和移动网络) // 是否有可用网络 private boolean isNetworkConnec ...