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短信接口示例