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/mt/?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("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/mt/", 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
