vb.net短信接口开发示例下载示例

    Module SendEsms

    Sub Main()
    Dim strContent As String = "测试"
    Dim uid As String = "test"
    Dim pwd As String = "fa246d0262c3925617b0c72bb20eeb1d"
    Dim mobile As String = "15900001111,13900001111"
    'GET 方式
    Dim getReturn As String = doGetRequest("http://api.sms.cn/sms/?ac=send&uid="+uid+"&pwd="+pwd+"&mobile="+mobile+"&content=" + strContent)
    Console.WriteLine("Get response is: " & getReturn)
    
    'POST 方式
    Dim sbTemp As System.Text.StringBuilder = New System.Text.StringBuilder()
    sbTemp.Append("ac=send&uid="+uid+"&pwd="+pwd+"&mobile="+mobile+"&content=" + strContent)
    Dim bTemp() As Byte = System.Text.Encoding.GetEncoding("GBK").GetBytes(sbTemp.ToString())
    Dim postReturn As String = doPostRequest("http://api.sms.cn/sms/", bTemp)
    Console.WriteLine("Post response is: " + postReturn)
    
    
    End Sub
    
    '发送HTTP GET请求得结果
    Private Function doGetRequest(ByVal url As String) As String
    Dim strReturn As String = ""
    Dim hwRequest As System.Net.HttpWebRequest
    Dim hwResponse As System.Net.HttpWebResponse
    Try
    hwRequest = System.Net.HttpWebRequest.Create(url)
    hwRequest.Timeout = 5000
    hwRequest.Method = "GET"
    hwRequest.ContentType = "application/x-www-form-urlencoded"
    
    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
    
    '发送HTTP POST请求得结果
    Private Function doPostRequest(ByVal url As String, ByVal bData() As Byte) As String
    Dim strReturn As String = ""
    Dim hwRequest As System.Net.HttpWebRequest
    Dim hwResponse As System.Net.HttpWebResponse
    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
 

vb.net短信接口开发示例下载示例