感谢蓝版的帮助以及论坛内cbt大大关于
【腾讯云签名】内的代码，总算完成符合腾讯云API关于密钥对鉴权的格式
以下内容为程序代码:
1 Dim d As String = Date.now.ToUniversalTime().ToString("r")
2 Dim hc As New HttpClient("https://service-a8f1ua5m-1256923570.gz.apigw.tencentcs.com/release/sms/sendLong?mobile=*&smsSignId=2e65b1bb3d054466b82f0c9d125465e2&templateId=f5e68c3ad6b6474faa8cd178b21d3377")
3 Dim str As String = "x-date: " & d
4 Dim key = "*"
5 Dim ByteData = Encoding.UTF8.GetBytes(str)
6 Dim ByteKey = Encoding.UTF8.GetBytes(key)
7 Dim hmacsha = New System.Security.Cryptography.HMACSHA1(ByteKey)
8 Dim result = hmacsha.ComputeHash(ByteData)
9 Dim signature = Convert.ToBase64String(result)
10 Dim s1 As String = "hmac id=""*"""
11 Dim s2 As String = "algorithm=""hmac-sha1"""
12 Dim s3 As String = "headers=""x-date"""
13 Dim s4 As String = "signature=""" & signature
14 Dim auth As String = s1 & "," & s2 & "," & s3 & "," & s4 & """"
15 hc.Headers.Add("X-Date",d)
16 hc.Headers.Add("Source","HRM")
17 hc.Headers.Add("Authorization",auth)
18 Dim ret As String = hc.GetData()
大家可以参考下这个腾讯云API的要求，我不太会写代码。。也请各位老师能教我有更好的完成方法。谢谢了。
[此贴子已经被作者于2020/12/9 0:54:50编辑过]
加好友 
发短信
Post By：2020/12/7 19:43:00 [只看该作者]
