VB.NET短信平台API文档:sendSMS.VB_DEMO.vb下载
时间:2013-09-05 10:17 来源:原创 作者:admin
点击下载API文档
源码如下:
'------------------------------------------------
'功能: 美联软通HTTP接口VB.NET调用说明
'日期: 2013-05-08
'说明: http://域名/api/sms.php?username=用户名&password=密码&mobile=手机号&content=内容
'状态:
' 发送成功 success:contentid
' 发送失败 error:contentid
' 含屏蔽字 error:contentid<br />含有屏蔽字:枪支
' 密码错误 error:短信发送通道未设置, 请联系管理员!
' 余额不足 error:password error or low balance.
' IP限制错误 error:IP受限
'------------------------------------------------
Module sendSMS
Sub Main()
Dim content As String = "美联软通VB示例"
'POST 方式
Dim sbTemp As System.Text.StringBuilder = New System.Text.StringBuilder()
sbTemp.Append("username=test&password=123456&mobile=13811299934,15210954925&content=" + content)
Dim bTemp() As Byte = System.Text.Encoding.GetEncoding("gb2312").GetBytes(sbTemp.ToString())
Dim result As String = PostRequest("http://域名/api/sms.php", bTemp)
Console.WriteLine(result)
End Sub
'发送HTTP POST请求得结果
Private Function PostRequest(ByVal url As String, ByVal bData() As Byte) As String
Dim strReturn As String = ""
Dim hwRequest As System.Net.WebRequest
Dim hwResponse As System.Net.WebResponse
Try
hwRequest = System.Net.HttpWebRequest.Create(url)
hwRequest.Timeout = 5000
hwRequest.Method = "POST"
hwRequest.ContentType = "application/x-www-form-urlencoded"
hwRequest.ContentLength = bData.Length
Dim smWrite As System.IO.Stream = hwRequest.GetRequestStream()
smWrite.Write(bData, 0, bData.Length)
smWrite.Close()
hwResponse = hwRequest.GetResponse()
Dim srReader As System.IO.StreamReader = New System.IO.StreamReader(hwResponse.GetResponseStream(), System.Text.Encoding.ASCII)
strReturn = srReader.ReadToEnd()
srReader.Close()
hwResponse.Close()
Catch
End Try
Return strReturn
End Function
End Module