主题：请教短信推送代码组织方法

向单佧手机号发送短信、定义一个可排序的字典

Dim lst As new SortedDictionary(of String,String)(StringComparer.Ordinal)

lst.Add("AccessKeyId","123456789") 'AccessKey凭证id

lst.Add("Format","JSON") '返回的结果格式

lst.Add("Action","SendSms") '调用的接口

lst.Add("RegionId","cn-hangzhou") '

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","2017-05-25") '界面版本

lst.Add("PhoneNumbers", PercentEncode("15500000000")) '的话号码,

'如果是多个号码参考:lst.Add("PhoneNumbers", PercentEncode("15500000000,13000000000"))

lst.Add("SignName", PercentEncode("Foxtable")) '签名

lst.Add("TemplateParam", PercentEncode("{""sfno"":""9999999""}")) '模板参数sfno为模板变量，9999999为变量值

lst.Add("TemplateCode", "SMS_000000000") '模板.

'按顺序拼接参数

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 = "987654321" '凭证密钥

Dim sign As String = SignString(AccessKeySecret,s) '加密参数字符串

'拼接接口url

Dim url As String = "http://dysmsapi.aliyuncs.com/?Signature=" & PercentEncode(sign) & "&" & s

'Dim urls As String = "https://dysmsapi.aliyuncs.com/?Signature=" & PercentEncode(sign) & "&" & s

Dim hc As New HttpClient(url)

Dim ret As String = hc.GetData()

MessageBox.Show(ret)