Module Module1
    Sub Main()
        Dim encode As String = "UTF-8"  '页面编码和短信内容编码为GBK。重要说明：如提交短信后收到乱码，请将GBK改为UTF-8测试。如本程序页面为编码格式为：ASCII/GB2312/GBK则该处为GBK。如本页面编码为UTF-8或需要支持繁体，阿拉伯文等Unicode，请将此处写为：UTF-8
        Dim username As String = ""  '用户名
        Dim password As String = ""  '密码
        Dim mobile As String = ""  '手机号,只发一个号码：13800000001。发多个号码：13800000001,13800000002,...N 。使用半角逗号分隔。
        Dim apikey As String = ""  'apikey秘钥（请登录 http://m.5c.com.cn 短信平台-->账号管理-->我的信息 中复制apikey）
        Dim content As String = "美联软通VB示例【美联】"  '要发送的短信内容，特别注意：签名必须设置，网页验证码应用需要加添加【图形识别码】。
        Dim content1 As String = URLEncode(content)
        'POST 方式
        Dim sbTemp As System.Text.StringBuilder = New System.Text.StringBuilder()
        '发送链接（用户名，密码，手机号，apikey，短信内容，编码格式）
        sbTemp.Append("username=" + username + "&password=" + password + "&mobile=" + mobile + "&apikey=" + apikey + "&content=" + content1 + "&encode=" + encode)
        '对短信内容做Urlencode编码操作。
        Dim bTemp() As Byte = System.Text.Encoding.GetEncoding("UTF-8").GetBytes(sbTemp.ToString())
        '发送返回的结果存入result中
        Dim result As String = PostRequest("http://m.5c.com.cn/api/send/?", bTemp)
        '输出result内容，查看返回值，成功为success，错误为error，详见该文档起始注释
        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
            '获取上面的URL链接
            hwRequest = System.Net.HttpWebRequest.Create(url)
            '设置超时时间
            hwRequest.Timeout = 5000
            '发送请求为POST
            hwRequest.Method = "POST"
            hwRequest.ContentType = "application/x-www-form-urlencoded"
            'bData的长度（也就是获取用户名，密码，手机号，apikey，短信内容，编码格式总长度）
            hwRequest.ContentLength = bData.Length
            '发送
            Dim smWrite As System.IO.Stream = hwRequest.GetRequestStream()
            smWrite.Write(bData, 0, bData.Length)
            smWrite.Close()
            '使用hwResponse来获取数据
            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

    Public Function URLEncode(ByVal strParameter As String) As String

        Dim s As String
        Dim I As Integer
        Dim intValue As Integer

        Dim TmpData() As Byte

        s = ""
        TmpData = StrConv(strParameter, vbFromUnicode)
        For I = 0 To UBound(TmpData)
            intValue = TmpData(I)
            If (intValue >= 48 And intValue <= 57) Or _
              (intValue >= 65 And intValue <= 90) Or _
              (intValue >= 97 And intValue <= 122) Then
                s = s & Chr(intValue)
            ElseIf intValue = 32 Then
                s = s & "+"
            Else
                s = s & "%" & Hex(intValue)
            End If
        Next I
        URLEncode = s

    End Function
End Module