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