‘https://msdn.microsoft.com/zh-cn/library/system.security.cryptography.hmacsha256(v%3DVS.95).aspx    ‘http://blog.sina.com.cn/s/blog_5eded52b0100e0mq.html    Function GetSigningKeyByHMACSHA256HEX(ByVal SecretAccessKey As String, ByVal authStringPrefix As String) As String        Dim Livehmacsha256 As HMACSHA256 = New HMACSHA256(Encoding.UTF8.GetBytes(SecretAccessKey))        Dim LiveHash As Byte() = Livehmacsha256.ComputeHash(Encoding.UTF8.GetBytes(authStringPrefix))        Dim SigningKey As String = HashEncode(LiveHash)        Return SigningKey    End Function    Function GetSignatureByHMACSHA256HEX(ByVal SigningKey As String, ByVal CanonicalRequest As String) As String        Dim Livehmacsha256 As HMACSHA256 = New HMACSHA256(Encoding.UTF8.GetBytes(SigningKey))        Dim LiveHash As Byte() = Livehmacsha256.ComputeHash(Encoding.UTF8.GetBytes(CanonicalRequest))        Dim Signature As String = HashEncode(LiveHash)        Return Signature    End Function    ‘将字符串全部变成小写。    Function HashEncode(ByVal hash As Byte()) As String        Return BitConverter.ToString(hash).Replace("-", "").ToLower()    End Function    ‘http://www.cnblogs.com/runliuv/p/5088787.html    Public Function GetSHA256hash(ByVal input As String, ByVal _input_charset As String) As String        Dim clearBytes As Byte() = Encoding.UTF8.GetBytes(input)        Dim sha256 As SHA256 = New SHA256Managed()        sha256.ComputeHash(clearBytes)        Dim hashedBytes As Byte() = sha256.Hash        sha256.Clear()        Dim output As String = BitConverter.ToString(hashedBytes).Replace("-", "").ToLower()        Return output    End Function

Imports System.Security.CryptographyImports System.GlobalizationImports System.IO.CompressionPublic Class BaiduSMSTest    Private smsinfo As SMSInfo    Public Sub New(ByVal smsinfos As SMSInfo)        Me.smsinfo = smsinfos    End Sub    Public Property GetSMSInfo() As SMSInfo        Get            Return smsinfo        End Get        Set(ByVal value As SMSInfo)            smsinfo = value        End Set    End Property    Function SendSMSWEBAPI() As String        Try            Dim receiveStream As System.IO.Stream = Nothing            Dim responseReader As IO.StreamReader = Nothing            Dim timestamp As String = Date.UtcNow.ToString("yyyy-MM-ddTHH:mm:ssZ")            Dim timestamp2 As String = Date.UtcNow.ToString("yyyy-MM-dd")            Dim SecretAccessKey As String = "Secret Access Key 申请所得"            Dim AccessKeyId As String = "Access Key ID申请所得"            ‘  Dim authStringPrefix As String = "bce-auth-v1/{accessKeyId}/{timestamp}/{expirationPeriodInSeconds}"            Dim authStringPrefix As String = String.Format("bce-auth-v1/{1}/{0}/1800", timestamp, AccessKeyId) ‘这里要改            ‘ Dim CanonicalRequest As String = "HTTP Method + "\n" + CanonicalURI + "\n" + CanonicalQueryString + "\n" + CanonicalHeaders"            Dim CanonicalRequest As String = String.Format("POST" & vbLf & "/v1/message" & vbLf & vbLf & "host:sms.bj.baidubce.com")            Dim SigningKey As String = GetSigningKeyByHMACSHA256HEX(SecretAccessKey, authStringPrefix)            Dim Signature As String = GetSignatureByHMACSHA256HEX(SigningKey, CanonicalRequest)            Dim Content As String = String.Empty            Content = "{ ""templateId"":""" + smsinfo.TemplateId + """,""receiver"":" + smsinfo.Receiver + ",""contentVar"":""" + smsinfo.ContentVar + """}"            Dim ContentByte As Byte() = Encoding.UTF8.GetBytes(Content)            Dim GetOrderURL As String = New Uri("http://sms.bj.baidubce.com/v1/message").ToString()            Dim HttpWReq As System.Net.HttpWebRequest = CType(System.Net.WebRequest.Create(GetOrderURL), System.Net.HttpWebRequest)            ‘ HttpWReq.Timeout = 600 * 1000 ‘‘一分钟查询            HttpWReq.ContentLength = ContentByte.Length            HttpWReq.ContentType = "application/json"            HttpWReq.Headers("x-bce-date") = timestamp            HttpWReq.Headers("Authorization") = String.Format("bce-auth-v1/{2}/{0}/1800/host/{1}", timestamp, Signature, AccessKeyId)            HttpWReq.Host = "sms.bj.baidubce.com"            HttpWReq.Method = "POST"            HttpWReq.KeepAlive = False            Dim StreamData As System.IO.Stream = HttpWReq.GetRequestStream()            StreamData.Write(ContentByte, 0, ContentByte.Length)            StreamData.Close()            Dim HttpWRes As System.Net.HttpWebResponse = CType(HttpWReq.GetResponse, System.Net.HttpWebResponse)            If HttpWRes.Headers.Get("Content-Encoding") = "gzip" Then                Dim zipStream As System.IO.Stream = HttpWRes.GetResponseStream()                receiveStream = New GZipStream(zipStream, CompressionMode.Decompress)            Else                receiveStream = HttpWRes.GetResponseStream()            End If            responseReader = New IO.StreamReader(receiveStream)            Dim responseString As String = responseReader.ReadToEnd()            Return responseString        Catch ex As Exception            Return ex.Message        End Try    End FunctionEnd Class

Public Class SMSInfo    ‘模版id    Private _templateId As String    Public Property TemplateId() As String        Get            Return _templateId        End Get        Set(ByVal value As String)            _templateId = value        End Set    End Property    ‘接受短信者    Private _receiver As String    Public Property Receiver() As String        Get            Return _receiver        End Get        Set(ByVal value As String)            _receiver = value        End Set    End Property    ‘内容    Private _contentVar As String    Public Property ContentVar() As String        Get            Return _contentVar        End Get        Set(ByVal value As String)            _contentVar = value        End Set    End PropertyEnd Class

 Function clearprefix(ByVal Telphonenum As String) As String        Dim result As String = ""        If Telphonenum.Length > 11 Then            Dim Prefix As String = ""            If Telphonenum.Length = 13 Then                Prefix = Telphonenum.Substring(0, 2)                If Prefix = "86" Then                    result = Telphonenum.Substring(2, 11)                End If            ElseIf (Telphonenum.Length = 14) Then                Prefix = Telphonenum.Substring(0, 3)                If Prefix = "086" Or Prefix = "+86" Then                    result = Telphonenum.Substring(3, 11)                End If            Else                result = "号码错误"            End If        ElseIf (Telphonenum.Length < 11) Then            result = "不是手机号码"        Else            result = Telphonenum        End If        Return result    End Function

 Dim SMSinfo As SMSInfo = New SMSInfo()   SMSinfo.TemplateId = "申请的短信模板"   SMSinfo.Receiver = "[""手机号码""]"   SMSinfo.ContentVar = "{\""短信内容参数一\"":\""zhangsan \"",\""短信内容参数二\"":\""888888 \"",\""短信内容参数三\"":\""我是测试内容，我是测试内容 \""}"  Protected Sub btntest_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btntest.Click     Dim bdsms As BaiduSMSTest = New BaiduSMSTest(SMSinfo)     Dim result As String = bdsms.SendSMSWEBAPI() End Sub