介绍
狐表帮助文件里的用httpClient启用阿里云插口的实例（
http://www.foxtable.com/mobilehelp/index.htm?page=0246.htm ），是阿里云的第三方平台销售市场购入的。益处便是挑选多，配备简易，可是要是您是想发送淘宝店铺推广营销推广短信，您是没法根据短信报备的。基本上都说您是营销推广短信，不允许报备。
因此我只有用阿里云官方的短信插口。社区论坛里也是有很多那样的源代码实例，可是也不全，要自身思索改动，我这里梳理详细能用的。
1加上dll引入
dll下载连接：
https://pan.baidu.com/s/1dbUc7T-XbJGHyNZF2b9gYQ
提取码：rbhn
引入阿里云短信给予的net2.0版本号的dll插口文档
2阿里巴巴申请注册好 签字 信息模版
去阿里云的官方网站，注册帐号，开启短信控制模块，获得短信签字和短信模版名字。这一自主探索，我并不教你，这一很容易的。假如连这一你都探索不容易，你不要科学研究短信插口了。
3发送编码如下所示
Dim product As String = \"Dysmsapi\" \'不用变更,官方名字
Dim domain As String = \"dysmsapi.aliyuncs.com\" \'不用变更,官方名字
Dim accessId As String = \"xxx\" \'拆换为您的AccessKey
Dim accessSecret As String = \"xxx\" \'更换为您的AccessSecret
Dim regionIdForPop As String = \"cn-hangzhou\" \'不用变更,官方名字
Dim profile As Aliyun.Acs.Core.Profile.IClientProfile = Aliyun.Acs.Core.Profile.DefaultProfile.GetProfile(regionIdForPop, accessId, accessSecret)
Aliyun.Acs.Core.Profile.DefaultProfile.AddEndpoint(regionIdForPop, regionIdForPop, product, domain)
Dim acsClient As Aliyun.Acs.Core.IAcsClient = New Aliyun.Acs.Core.DefaultAcsClient(profile)
Dim request As Aliyun.Acs.Dysmsapi.Model.V20170525.SendSmsRequest = New Aliyun.Acs.Dysmsapi.Model.V20170525.SendSmsRequest()
Dim response As Aliyun.Acs.Dysmsapi.Model.V20170525.SendSmsResponse = Nothing
Try
request.PhoneNumbers = \"13827126079\"
request.SignName = \"迈宝伦高新科技\" \'拆换为您报备的短信签字
request.TemplateCode = \"SNS_1234343245\" \'拆换您报备的短信模版
request.TemplateParam = \"{\"\"customer\"\":\"\"123\"\"}\" \'假如您有可更换的标识,可以设定设置json,还可以注解掉
\'request.OutId = \"YourID\" \'这东西临时没有用
response = acsClient.GetAcsResponse(request)
MessageBox.show(response.Message) \'这儿輸出发送結果.\"OK\"便是行了.
Catch ex As Exception
MessageBox.show(\"短信编码有什么问题,请联络技术人员\")
End TryCOPY4第三方短信
假如你确实仅仅发短信验证码类短信，并不是发布广告短信，那么你用下边的方式
https://market.aliyun.com/products/56928004/cmapi027240.html?spm=5176.730005.productlist.d_cmapi027240.xy5oIm#sku=yuncode2124000000
参照帮助文件：
http://www.foxtable.com/mobilehelp/index.htm?page=0246.htm
只必须买了之后，改正AppCode就完成了，超级简单啊
Dim hc As New HttpClient(\"http://feginesms.market.alicloudapi.com/codeNotice?param=123456&phone=17703940712&sign=1&skin=1\")
hc.Headers.Add(\"Authorization\",\"APPCODE \" & \"xxx请改自身xxx\")
Dim jo As JObject = Jobject.Parse(hc.GetData)
Output.Show(jo.ToString)版权声明：本文内容由互联网用户自发贡献，该文观点仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容， 请发送邮件至 举报，一经查实，本站将立刻删除。
