1. 首頁 > 生活 > >

比狐表更好的軟件

小知識

簡介
狐表幫助文檔里的用httpClient調用阿里云接口的案例（http://www.foxtable.com/mobilehelp/index.htm?page=0246.htm ），是阿里云的第三方平臺市場購買的 。好處就是選擇多，配置簡單，但是如果您是想發送淘寶營銷推廣短信，您是沒辦法通過短信備案的 ?；径颊f您是營銷短信，不允許備案 。
所以我就只能用阿里云官方的短信接口 。論壇里也有好幾個這樣的代碼案例，但是都不全，要自己思考修改，我這里整理完整能用的 。
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" '更換為您的AccessKeyDim accessSecret As String = "xxx" '更換為您的AccessSecretDim 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 = NothingTryrequest.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 ExceptionMessageBox.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)