簡介

狐表幫助文檔里的用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 TryCOPY

4第三方短訊

如果你真的只是發驗證碼類短訊，不是發廣告短訊，那你用下面的方法

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)