各种开发语言示例调用HTTP接口(示例中默认HTTP接口编码为gb2312)
asp示例：
function getHTTPPage(strurl,data)
on error resume next
set http = Server.CreateObject("Msxml2.XMLHTTP")
http.Open "POST",strurl, false
http.setRequestHeader "Content-type:", "text/xml;charset=GB2312"
Http.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
http.Send(data)
getHTTPPage=http.ResponseText
set http=nothing
end function
C#示例：
public static string PostData(string purl,string str)
{
try
{
byte[] data = System.Text.Encoding.GetEncoding("GB2312").GetBytes(str);
// 准备请求
HttpWebRequest req = (HttpWebRequest)WebRequest.Create(purl);
//设置超时
req.Timeout = 30000;
req.Method = "Post";
req.ContentType = "application/x-www-form-urlencoded";
req.ContentLength = data.Length;
Stream stream = req.GetRequestStream();
// 发送数据
stream.Write(data, 0, data.Length);
stream.Close();
HttpWebResponse rep = (HttpWebResponse)req.GetResponse();
Stream receiveStream = rep.GetResponseStream();
Encoding encode = System.Text.Encoding.GetEncoding("GB2312");
// Pipes the stream to a higher level stream reader with the required encoding format.
StreamReader readStream = new StreamReader(receiveStream, encode);
Char[] read = new Char[256];
int count = readStream.Read(read, 0, 256);
StringBuilder sb = new StringBuilder("");
while (count > 0)
{
String readstr = new String(read, 0, count);
sb.Append(readstr);
count = readStream.Read(read, 0, 256);
}
rep.Close();
readStream.Close();
return sb.ToString();
}
catch (Exception ex)
{
return "posterror";
}
}
Delphi示例：
function HTTPwebservice(url:string):string;
var
responseText: WideString;
xmlHttp: OLEVariant;
begin
try
xmlHttp:=CreateOleObject('Msxml2.XMLHTTP');
xmlHttp.open('GET',url,false);
xmlHttp.send();
responseText:=xmlHttp.responseText;
if xmlHttp.status='200' then
begin
HTTPwebservice:=responseText;
end;
xmlHttp := Unassigned;
except
exit;
end;
end;
JAVA示例：
import java.io.BufferedReader;
import java.io.IOException;
import java.io.InputStreamReader;
import java.io.UnsupportedEncodingException;
import java.net.HttpURLConnection;
import java.net.MalformedURLException;
import java.net.URL;
import java.net.URLEncoder;
/**
* 发送短信基础类
* @author administration
*
*/
public class SmsBase {
private String x_id="test";
private String x_pwd="123456";
public String SendSms(String mobile,String content) throws UnsupportedEncodingException{
Integer x_ac=10;//发送信息
HttpURLConnection httpconn = null;
String result="-20";
String memo = content.length()<70?content.trim():content.trim().substring(0, 70);
StringBuilder sb = new StringBuilder();
sb.append("URL?");
sb.append("id=").append(x_id);
sb.append("&pwd=").append(x_pwd);
sb.append("&to=").append(mobile);
sb.append("&content=").append(URLEncoder.encode(content, "gb2312"));
try {
URL url = new URL(sb.toString());
httpconn = (HttpURLConnection) url.openConnection();
BufferedReader rd = new BufferedReader(new InputStreamReader(httpconn.getInputStream()));
result = rd.readLine();
rd.close();
} catch (MalformedURLException e) {
// TODO Auto-generated catch block
e.printStackTrace();
} catch (IOException e) {
// TODO Auto-generated catch block
e.printStackTrace();
} finally{
if(httpconn!=null){
httpconn.disconnect();
httpconn=null;
}
}
return result;
}
}
PHP示例：
<?php
Function SendSMS($url,$postStr)
{
$ch = curl_init();
$header = "Content-type: text/xml; charset=gb2312";
curl_setopt($ch, CURLOPT_URL,$url);
curl_setopt($ch, CURLOPT_POSTFIELDS, $postStr);
curl_setopt($ch, CURLOPT_RETURNTRANSFER, 1);
curl_setopt($ch, CURLOPT_POST, 1);
curl_setopt($ch, CURLOPT_RETURNTRANSFER, true);
curl_setopt($ch, CURLOPT_HEADER, $header);
$result = curl_exec($ch);
curl_close($ch);
$str = mb_convert_encoding($result, "gb2312", "utf-8");
Return $str;
}
function sms_send($phone, $content) {
$phoneList = $phone;
$content = iconv("UTF-8","GB2312",$content); //如果乱码换成这一句，两者取其一即可urlencode($content);
$userName = urlencode('帐号');
$userPwd = '密码';
$url = "URL?";
$postStr = "id=".$userName."&pwd=".$userPwd."&to=".$phoneList."&content=".$content."&time=";
$res = SendSMS($url,$postStr);
return substr($res,0,3) == 000 ? true : strval($content);
}
echo sms_send('13129544822','短信内容');
?>
或者
<?php
$content= urlencode("你好啊短信内容");//内容
$uc=urlencode('帐号');
$pwd='密码';
$msgid="12";
$callee="13129544822";//手机号
$sendurl="URL?";
$sdata="uc=".$uc."&pwd=".$pwd."&callee=".$callee."&cont=".$content."&msgid=".$msgid."&otime=";
$xhr=new COM("MSXML2.XMLHTTP");
$xhr->open("POST",$sendurl,false);
$xhr->setRequestHeader ("Content-type:", "text/xml;charset=utf-8");
$xhr->setRequestHeader ("Content-Type", "application/x-www-form-urlencoded");
$xhr->send($sdata);
echo $xhr->responseText;
?>
上面两个是Windows—POST示例，下面这个是Linux-POST示例
<?php
function SendSMS($strMobile,$content){
$url="URL?id=%s&pwd=%s&to=%s&content=%s&time=";
$id = urlencode("账号");
$pwd = urlencode("密码");
$to = urlencode($strMobile);
$content = iconv("UTF-8","GB2312",$content); //将utf-8转为gb2312再发
$rurl = sprintf($url, $id, $pwd, $to, $content);
//初始化curl
$ch = curl_init() or die (curl_error());
//设置URL参数
curl_setopt($ch,CURLOPT_URL,$rurl);
curl_setopt($ch, CURLOPT_POST, 1);
curl_setopt($ch, CURLOPT_HEADER, 0);
//执行请求
$result = curl_exec($ch) ;
//取得返回的结果，并显示
echo $result;
echo curl_error($ch);
//关闭CURL
curl_close($ch);
}
SendSMS($strMobile,$content);
?>
VB.NET示例：
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'/注意引入com microsoft.xml.3.0
Dim Send_URL, Http, getHTTPPage
Send_URL = "URL?id=" + Trim(uid.Text) + "&pwd=" + Trim(pwd.Text) + "&to=" + mob.Text + "&content=" + msg.Text + "&time="
Http = CreateObject("MSXML2.XMLHTTP")
Http.Open("get", Send_URL, False)
Http.send()
getHTTPPage = Http.responseText
backinfo.Text = getHTTPPage
End Sub
Python示例：
import sys
import http
import urllib.request
import urllib.parse
import re
import time
class SendMessage:
def main():
url = 'URL?'
uid = '帐号'
pwd = '密码'
phone = input("Input the target telphone number:")
content = input("Message:")
url_address = url + 'id=' + urllib.parse.quote(uid.encode('gb2312')) + "&pwd=" + pwd + "&to=" + phone + "&content=" + urllib.parse.quote(content.encode("gb2312")) + "&time="
answer = urllib.request.urlopen(url_address)
data = answer.read()
print(data)
if __name__ == "__main__":
main()
VB示例：
Private Sub Command1_Click()
Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")
objXMLHTTP.open "POST", "URL?", False
objXMLHTTP.setRequestHeader "Content-Type", "text/xml;charset=GB2312"
objXMLHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
sdata = "id=" & uid & "&pwd=" & pwd & "&to=" & mobiles & "&content=" & message & "&time=" sdata = URLEncoding(sdata)
objXMLHTTP.send (sdata)
返回值 = objXMLHTTP.ResponseText
Set objXMLHTTP = Nothing
End Sub
易语言示例：
.程序集 窗口程序集1
.子程序 _发送_被单击
.局部变量 obj, 文本型
.局部变量 http, 对象
' 如果群发，手机号码格式以","隔开，结果返回000表示发送成功
obj ＝ “URL?id=” ＋ 账户编辑.内容 ＋ “&pwd=” ＋ 密码编辑.内容 ＋ “&to=” ＋ 手机号码编辑.内容 ＋ “&content=” ＋ 内容编辑.内容 ＋ “&time=”
.如果真 (http.创建 (“Microsoft.XMLHTTP”, ))
http.方法 (“open”, “GET”, obj, 假)
http.写属性 (“Content-type”, “text/xml; charset=gb2312”)
http.方法 (“send”, )
编辑框1.内容 ＝ 到文本 (http.读文本属性 (“responseText”, ))
