[求助] 发送阿里云短信 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

各位老师，按照论坛里分享的阿里云发送短信的实例，我的账户上有可发送条数，发送时为什么显示余额不足。谢谢了！

Dim product As String = "Dysmsapi" '无需更改,官方名称

Dim domain As String = "dysmsapi.aliyuncs.com" '无需更改,官方名称

Dim accessId As String = "LTAIO111111111" '更换为您的AccessKey

Dim accessSecret As String = "bFSboBefggutudgggg" '更换为您的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.Ph

request.SignName = "中国湖南" '更换为您备案的短信签名

request.TemplateCode = "SMS_1234566789" '更换您备案的短信模板

request.TemplateParam = "{""name"":""张三"",""content"":""三""}" '如果您有可替换的标签,可以设置设置json,也可以注释掉

'request.OutId = "YourID" '这玩意暂时没用

response = acsClient.GetAcsResponse(request)

MessageBox.show(response.Message) '这里输出发送结果."OK"就是行了.

Catch ex As Exception

MessageBox.show("短信代码有问题,请联系技术员")

End Try

[此贴子已经被作者于2018/12/17 11:44:25编辑过]

1、你购买的是第三方的短信接口吧？如果是，看看

如果你真的只是发验证码类短信，不是发广告短信，那你用下面的方法

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)

2、如果是阿里云自己的短信接口，看看

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=119481&skin=0

老师，在阿里云发验证码没问题。就是发送通知短信时提示余额不足。

就是用的那个例子做的。

[此贴子已经被作者于2018/12/17 12:28:28编辑过]

你用2楼的第一个方法还是第二个方法做的？两个是分别独立的东西的，不能串用的。

你看的【余额】在哪里看的？你用1楼的代码成功发送过短信或者验证码吗？

老师，用2楼的代码发送验证码没问题，但是用1楼的代码发送通知短信就弹出提示账户余额不足，明明有5000条可用。

[此贴子已经被作者于2018/12/18 8:21:51编辑过]

认认真真看

你用2楼的第一个方法还是第二个方法做的？两个是分别独立的东西的，不能串用的。

你购买的应该是第三方的短信接口，和阿里云内置的服务是不同的。不能一起用的。

老师，发送通知短信，按照例子我把签名、模板、模板参数都设置好了，不设置好会有提示。但最后就是弹出账号余额不足。是不是用下面的代码发送通知短信要另外缴费?

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 Try

发送验证码（成功）

要说多少次？

你用2楼的第一个方法还是第二个方法做的？两个是分别独立的东西的，不能串用的。

你购买的应该是第三方的短信接口，和阿里云内置的服务是不同的。不能一起用的。

也就是说，你要另外充值购买啊。

老师，现在是能发送了，但每发送一条就会弹出一个 OK 提示框，如何取消，自动发送完毕。谢谢！

以下是引用zcgmxf在2018/12/18 23:36:00的发言：
老师，现在是能发送了，但每发送一条就会弹出一个 OK 提示框，如何取消，自动发送完毕。谢谢！

把MessageBox.show的代码删除。

主题：[求助] 发送阿里云 短信

主题：[求助] 发送阿里云短信