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+"&cmargin: 0px; padding: 0px; color: rgb(102, 102, 102); font-family: 宋体; font-size: 12px; line-height: 30px;">        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+"&cmargin: 0px; padding: 0px; color: rgb(102, 102, 102); font-family: 宋体; font-size: 12px; line-height: 30px;">        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.C

 

            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.C

            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