博客

本程序是通过使用中国网建提供的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编码后再调用

多个手机号请用半角,隔开，如：13888888886,13888888887,1388888888 一次最多对50个手机发送


短信内容支持长短信，最多300个字，普通短信70个字/条，长短信64个字/条计费

下面是不同的语言调用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