'定义一个可排序的字典
Dim lst As new SortedDictionary(of String,String)(StringComparer.Ordinal)
lst.Add("AccessKeyId","123456789") 'AccessKey
lst.Add("Format","JSON") '返回的结果格式
lst.Add("SignatureMethod","HMAC-SHA1") '加密模式
lst.Add("SignatureNonce",System.Guid.NewGuid().ToString()) '随机数
lst.Add("SignatureVersion","1.0") '签名版本
lst.Add("Timestamp",PercentEncode(format(DateTime.UtcNow,"yyyy-MM-ddTHH:mm:ssZ"))) 'Utc时间
lst.Add("Version","2020-06-29") '界面版本
lst.Add("Action","GetWsCustomizedChGeneral") '调用的接口lst.Add("Text", PercentEncode("阿道夫莎夫人撒旦法是否玩儿申达股份双方各"))
lst.Add("ServiceCode", "GENERAL_CHN")
Dim su As new StringBuilder
For Each key As String In lst.keys
su.AppendFormat("&{0}={1}",key,lst(key))
Next
Dim s As String =su.ToString().trimstart("&")
Dim AccessKeySecret As String = "87654321"
Dim sign As String = SignString(AccessKeySecret,s)
Dim url As String = "https://alinlp.cn-hangzhou.aliyuncs.com/?Signature=" & PercentEncode(sign) & "&" & s
Dim hc As New HttpClient(url)