在项目中使用过发短信的功能，但那个由于公司内部的限制很麻烦，今天在网上找到一个简单的，闲来无事就把它记录如下：
本程序是通过使用中国网建提供的SMS短信平台实现的（该平台目前为注册用户提供5条免费短信，3条免费彩信，这足够用于我们测试用了。在使用前需要注册，注册地址为http://sms.webchinese.cn/reg.shtml），下面是程序源码：
需要用到的jar包共三个：
commons-logging-1.1.1.jar
commons-httpclient-3.1.jar
commons-codec-1.4.jar
以下内容摘自中国建网SMS短信通API ：
GBK编码发送接口地址：
http://gbk.sms.webchinese.cn/?Uid=本站用户名&Key=接口安全密码&smsMob=手机号码&smsText=短信内容
UTF-8编码发送接口地址：
http://utf8.sms.webchinese.cn/?Uid=本站用户名&Key=接口安全密码&smsMob=手机号码&smsText=短信内容
获取短信数量接口地址(UTF8)：
http://sms.webchinese.cn/web_api/SMS/?Action=SMS_Num&Uid=本站用户名&Key=接口安全密
获取短信数量接口地址(GBK)：
http://sms.webchinese.cn/web_api/SMS/GBK/?Action=SMS_Num&Uid=本站用户名&Key=接口安全密码
提示:HTTP调用URL接口时, 参数值必须URL编码后再调用
| 参数变量 | 说明 |
|---|---|
| Gbk编码Url | http://gbk.sms.webchinese.cn/ |
| Utf-8编码Url | http://utf8.sms.webchinese.cn/ |
| Uid | 本站用户名（如您无本站用户名请先注册） |
| Key | 注册时填写的接口安全密码（可到用户平台修改安全密码） |
| smsMob | 目的手机号码（多个手机号请用半角逗号隔开） |
| smsText | 短信内容，最多支持300个字，普通短信70个字/条，长短信64个字/条计费 |
多个手机号请用半角,隔开，如：13888888886,13888888887,1388888888 一次最多对50个手机发送
短信内容支持长短信，最多300个字，普通短信70个字/条，长短信64个字/条计费
| 短信发送后返回值 | 说 明 |
|---|---|
| -1 | 没有该用户账户 |
| -2 | 密钥不正确（不是用户密码） |
| -3 | 短信数量不足 |
| -11 | 该用户被禁用 |
| -14 | 短信内容出现非法字符 |
| -4 | 手机号格式不正确 |
| -41 | 手机号码为空 |
| -42 | 短信内容为空 |
| 大于0 | 短信发送数量 |
下面是不同的语言调用SMS接口的简单demo：
1. ASP 调用例子
<%
'常用函数
'输入url目标网页地址，返回值getHTTPPage是目标网页的html代码
function getHTTPPage(url)
dim Http
set Http=server.createobject("MSXML2.XMLHTTP")
Http.open "GET",url,false
Http.send()
if Http.readystate<>4 then
exit function
end if
getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
set http=nothing
if err.number<>0 then err.Clear
end function
Function BytesToBstr(body,Cset)
dim objstream
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
'自已组合一下提交的URL加入自己的账号和密码
sms_url="http://sms.webchinese.cn/web_api/?Uid=账号&Key=接口密钥&smsMob=手机号码&smsText=短信内容"
response.write getHTTPPage(sms_url)
%>
2.C# 调用
//需要用到的命名空间
using System.Net;
using System.IO;
using System.Text;
//调用时只需要把拼成的URL传给该函数即可。判断返回值即可
public string GetHtmlFromUrl(string url)
{
string strRet = null;
if(url==null || url.Trim().ToString()=="")
{
return strRet;
}
string targeturl = url.Trim().ToString();
try
{
HttpWebRequest hr = (HttpWebRequest)WebRequest.Create(targeturl);
hr.UserAgent = "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)";
hr.Method = "GET";
hr.Timeout = 30 * 60 * 1000;
WebResponse hs = hr.GetResponse();
Stream sr = hs.GetResponseStream();
StreamReader ser = new StreamReader(sr, Encoding.Default);
strRet = ser.ReadToEnd();
}
catch (Exception ex)
{
strRet = null;
}
return strRet;
}
3.JAVA调用
import java.io.UnsupportedEncodingException;
import org.apache.commons.httpclient.Header;
import org.apache.commons.httpclient.HttpClient;
import org.apache.commons.httpclient.NameValuePair;
import org.apache.commons.httpclient.methods.PostMethod;
public class SendMsg_webchinese {
public static void main(String[] args)throws Exception
{
HttpClient client = new HttpClient();
PostMethod post = new PostMethod("http://gbk.sms.webchinese.cn");
post.addRequestHeader("Content-Type","application/x-www-form-urlencoded;charset=gbk");//在头文件中设置转码
NameValuePair[] data ={ new NameValuePair("Uid", "本站用户名"),new NameValuePair("Key", "接口安全密码"),new NameValuePair("smsMob","手机号码"),new NameValuePair("smsText","短信内容")};
post.setRequestBody(data);
client.executeMethod(post);
Header[] headers = post.getResponseHeaders();
int statusCode = post.getStatusCode();
System.out.println("statusCode:"+statusCode);
for(Header h : headers)
{
System.out.println(h.toString());
}
String result = new String(post.getResponseBodyAsString().getBytes("gbk"));
System.out.println(result);
post.releaseConnection();
}
}
jar包下载
commons-logging-1.1.1.jar
commons-httpclient-3.1.jar
commons-codec-1.4.jar
4.PHP
$url='http://sms.webchinese.cn/web_api/?Uid=账号&Key=接口密钥&smsMob=手机号码&smsText=短信内容';
echo Get($url);
function Get($url)
{
if(function_exists('file_get_contents'))
{
$file_contents = file_get_contents($url);
}
else
{
$ch = curl_init();
$timeout = 5;
curl_setopt ($ch, CURLOPT_URL, $url);
curl_setopt ($ch, CURLOPT_RETURNTRANSFER, 1);
curl_setopt ($ch, CURLOPT_CONNECTTIMEOUT, $timeout);
$file_contents = curl_exec($ch);
curl_close($ch);
}
return $file_contents;
}
5.VB.NET
'调用发送短信,NoList接收号码.多个之间用,分开,Memo内容70字
Public Function SendSMS(ByVal NoList As String, ByVal Memo As String) As String
Dim Url As String = "http://sms.webchinese.cn/web_api/?Uid=账号&Key=接口密钥&smsMob=手机号码&smsText=短信内容"
Dim webClient As New Net.WebClient()
Try
'Dim responseData As Byte() =
Dim srcString As String = webClient.DownloadString(Url)
Return srcString
Catch
Return "-444"
End Try
End Function
经过测试上面java源码是能够发送成功的，其它语言的没有测试。如果大家有更好的发送短信的方法请告之，谢谢！
转载请说明出自 http://blog.csdn.net/dengsilinming/article/details/7991865
