java实现短信群发功能首先去 http www smschinese cn 上下载 jar 包以及注册用户 然后调用 api 接口 取得秘钥 1 ASP 调用例子 lt 常用函数 输入 url 目标网页地址 返回值 getHTTPPage 是目标网页的 html 代码 functiongetH url dimHttpsetHt server c
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
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