以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求助：利用阿里云短信服务 发送自定义短信内容  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=130915)
--  作者：李孝春
--  发布时间：2019/2/11 17:36:00
--  求助：利用阿里云短信服务 发送自定义短信内容


求助：利用阿里云短信服务  发送自定义短信内容

论坛代码如下：

【怎么自定义短信内容呢？】

比如：从表A中，组合“第一列”+“第二列”+“第五列”  是在下面蓝色部分进行修改么？怎么改呢？


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
--  作者：有点甜
--  发布时间：2019/2/11 19:08:00
--  
你在阿里云那里设置好短信模板，才能发送的。
--  作者：李孝春
--  发布时间：2019/2/12 9:05:00
--  回复：（有点甜）你在阿里云那里设置好短信模板，才能...
有点甜老师 有没有办法  直接不用去设置模板  而直接发送自己组合定义的短信内容呢？
--  作者：有点甜
--  发布时间：2019/2/12 9:24:00
--  
以下是引用李孝春在2019/2/12 9:05:00的发言：
有点甜老师 有没有办法  直接不用去设置模板  而直接发送自己组合定义的短信内容呢？

 

设置一个通用模板，然后把里面的内容，替换成自己的内容即可。

 

request.TemplateParam = "{""customer"":""123""}"

 

如，你有一个模板，里面有一个标签 custormer，这句代码，就是把你的标签替换成 123。
--  作者：blackzhu
--  发布时间：2019/2/12 9:49:00
--  
有第三方的短信服务,一句代码就可以发送短信了.

https://market.aliyun.com/products/56928004/cmapi027240.html?spm=5176.730005.productlist.d_cmapi027240.xy5oIm#sku=yuncode2124000000

这家服务商,超级简单.
--  作者：李孝春
--  发布时间：2019/2/12 11:58:00
--  回复：（blackzhu）有第三方的短信服务,一句代码就可以...
朱老师  有没有对应的狐表代码例子呢？
--  作者：有点甜
--  发布时间：2019/2/12 12:06:00
--  
 

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)


 
--  作者：yangdi
--  发布时间：2020/12/24 15:59:00
--  

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



把这段转为VFP代码
--  作者：yangdi
--  发布时间：2020/12/24 16:00:00
--  
把这段转为VFP代码
--  作者：有点蓝
--  发布时间：2020/12/24 16:05:00
--  
要转换代码？VFP没用过，不懂。