Foxtable(狐表)用户栏目专家坐堂 → [求助]阿里短信sdk引用【已解决】


  共有3733人关注过本帖树形打印复制链接

主题:[求助]阿里短信sdk引用【已解决】

帅哥哟,离线,有人找我吗?
浙江仔
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1316 积分:9484 威望:0 精华:1 注册:2010/7/21 14:20:00
[求助]阿里短信sdk引用【已解决】  发帖心情 Post By:2018/3/15 16:18:00 [只看该作者]


阿里短信服务
怎么改狐表代码?能指点指点么?
主要是引用和红色这块

using System;
using System.Collections.Generic;
using System.Text;
using Aliyun.Acs.Core;
using Aliyun.Acs.Core.Exceptions;
using Aliyun.Acs.Core.Profile;

using Aliyun.Acs.Dysmsapi.Model.V20170525;


namespace ConsoleApplication1
{
    class Program
    {
        static String product = "Dysmsapi";//短信API产品名称
        static String domain = "dysmsapi.aliyuncs.com";//短信API产品域名
        static String accessId = "";
        static String accessSecret = "";
        static String regi;


        static void Main(string[] args)
        {


            IClientProfile profile = DefaultProfile.GetProfile(regionIdForPop, accessId, accessSecret);
            DefaultProfile.AddEndpoint(regionIdForPop, regionIdForPop, product, domain);
            IAcsClient acsClient = new DefaultAcsClient(profile);
            SendSmsRequest request = new SendSmsRequest();
            try
            {
                //request.SignName = "上云预发测试";//"管理控制台中配置的短信签名(状态必须是验证通过)"
                //request.TemplateCode = "SMS_71130001";//管理控制台中配置的审核通过的短信模板的模板CODE(状态必须是验证通过)"
                //request.RecNum = "13567939485";//"接收号码,多个号码可以逗号分隔"
                //request.ParamString = "{\"name\":\"123\"}";//短信模板中的变量;数字需要转换为字符串;个人用户每个变量长度必须小于15个字符。"
                //SingleSendSmsResponse httpResponse = client.GetAcsResponse(request);
                request.Ph;
                request.SignName = "xxxxxx";
                request.TemplateCode = "SMS_xxxxxxx";
                request.TemplateParam = "{\"code\":\"123\"}";
                request.OutId = "xxxxxxxx";
                //请求失败这里会抛ClientException异常
                SendSmsResponse sendSmsResponse = acsClient.GetAcsResponse(request);
                System.Console.WriteLine(sendSmsResponse.Message);

            }
            catch (ServerException e)
            {
                System.Console.WriteLine("ServerException");
            }
            catch (ClientException e)
            {
                System.Console.WriteLine("ClientException");
            }
        }
    }
}

DLL
引用的话,都要引用么?

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20180315161550.png
图片点击可在新窗口打开查看

[此贴子已经被作者于2018/3/16 15:52:22编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/3/15 16:22:00 [只看该作者]

引用 Aliyun.Acs.Core.dll 即可

 

技巧这样处理:vs工具打开demo,找到对应的代码,把上面的using删除,如

 

using Aliyun.Acs.Core;
using Aliyun.Acs.Core.Exceptions;
using Aliyun.Acs.Core.Profile;

 

这个时候代码会报错,然后你一个地方一个地方的把要引用的名称补全(vs有智能提示的),即可,大概知道你需要引用哪一些。


 回到顶部
帅哥哟,离线,有人找我吗?
浙江仔
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1316 积分:9484 威望:0 精华:1 注册:2010/7/21 14:20:00
  发帖心情 Post By:2018/3/15 16:41:00 [只看该作者]

谢谢
再帮忙指点一下,红色部分

Dim product As String= "Dysmsapi"
Dim domain As String= "dysmsapi.aliyuncs.com"
Dim accessId As String = ""
Dim accessSecret As String= ""
Dim regionIdForPop As String= "cn-hangzhou"

IClientProfile profile = DefaultProfile.GetProfile(regionIdForPop, accessId, accessSecret)
DefaultProfile.AddEndpoint(regionIdForPop, regionIdForPop, product, domain)
IAcsClient acsClient = new DefaultAcsClient(profile)
SendSmsRequest request = new SendSmsRequest()
request.SignName = "上云预发测试" '//"管理控制台中配置的短信签名(状态必须是验证通过)"
request.TemplateCode = "SMS_71130001"    '//管理控制台中配置的审核通过的短信模板的模板CODE(状态必须是验证通过)"
request.RecNum = "13567939485"    ';//"接收号码,多个号码可以逗号分隔"
request.ParamString = "{\"name\":\"123\"}"    ';//短信模板中的变量;数字需要转换为字符串;个人用户每个变量长度必须小于15个字符."
SingleSendSmsResponse httpResponse = client.GetAcsResponse(request);
request.Ph
request.SignName = "xxxxxx"
request.TemplateCode = "SMS_xxxxxxx"
request.TemplateParam = "{\"code\":\"123\"}"
request.OutId = "xxxxxxxx"
SendSmsResponse sendSmsResponse = acsClient.GetAcsResponse(request)
[此贴子已经被作者于2018/3/15 16:42:11编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/3/15 16:57:00 [只看该作者]

vs工具打开demo,找到对应的代码,把上面的using删除,如

 

using Aliyun.Acs.Core;
using Aliyun.Acs.Core.Exceptions;
using Aliyun.Acs.Core.Profile;

 

这个时候代码会报错,然后你一个地方一个地方的把要引用的名称补全(vs有智能提示的),即可,大概知道你需要引用哪一些。

 

之后得到的代码如这样

 

Aliyun.Acs.Core.Profile.IClientProfile profile = Aliyun.Acs.Core.Profile.DefaultProfile.GetProfile(regionIdForPop, accessId, accessSecret)

 

再转为vb.net 代码即可 http://converter.telerik.com/

 

 


 回到顶部
帅哥哟,离线,有人找我吗?
浙江仔
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1316 积分:9484 威望:0 精华:1 注册:2010/7/21 14:20:00
  发帖心情 Post By:2018/3/15 17:56:00 [只看该作者]

谢谢,太感谢了,终于明白了

 回到顶部
帅哥哟,离线,有人找我吗?
浙江仔
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1316 积分:9484 威望:0 精华:1 注册:2010/7/21 14:20:00
  发帖心情 Post By:2018/3/15 22:55:00 [只看该作者]

引用成功了,但是有一句不行,红色的,应该怎么改?
dll包:
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:net2.0.rar


全局代码:
Public Dim product As String = "Dysmsapi"
Public Dim domain As String = "dysmsapi.aliyuncs.com"
Public Dim accessId As String = ""
Public Dim accessSecret As String = ""
Public Dim regionIdForPop As String = "cn-hangzhou"

Public 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) ‘注释掉此句,能保存,但调用失败
Public Dim acsClient As Aliyun.Acs.Core.IAcsClient = New Aliyun.Acs.Core.DefaultAcsClient(profile)
Public Dim request As Aliyun.Acs.Dysmsapi.Model.V20170525.SendSmsRequest = New Aliyun.Acs.Dysmsapi.Model.V20170525.SendSmsRequest()


图片点击可在新窗口打开查看此主题相关图片如下:捕获.png
图片点击可在新窗口打开查看

c#范例:

            IClientProfile profile = DefaultProfile.GetProfile(regionIdForPop, accessId, accessSecret);
            DefaultProfile.AddEndpoint(regionIdForPop, regionIdForPop, product, domain);
            IAcsClient acsClient = new DefaultAcsClient(profile);

转为VB:
    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)

运行错误:
Aliyun.Acs.Core.Exceptions.ClientException: SDK.InvalidRegionId : Can not find endpoint to access.


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/3/15 23:18:00 [只看该作者]

1、为什么要写到全局代码去?

 

2、测试下面代码没问题

 

Dim product As String = "Dysmsapi"
Dim domain As String = "dysmsapi.aliyuncs.com"
Dim accessId As String = ""
Dim accessSecret As String = ""
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()


 回到顶部
帅哥哟,离线,有人找我吗?
浙江仔
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1316 积分:9484 威望:0 精华:1 注册:2010/7/21 14:20:00
  发帖心情 Post By:2018/3/16 15:52:00 [只看该作者]

测试成功,谢谢甜甜

 回到顶部
帅哥哟,离线,有人找我吗?
chen37280600
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1265 积分:7838 威望:0 精华:4 注册:2017/12/31 14:53:00
  发帖心情 Post By:2018/5/25 14:20:00 [只看该作者]

我回复一个最后能用的狐表代码

引用dll文件后, 

 

Dim product As String = "Dysmsapi"
Dim domain As String = "dysmsapi.aliyuncs.com"
Dim accessId As String = "xxx"'替换成你的
Dim accessSecret As String = "xxx"'替换成你的
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_135796093"
    request.TemplateParam = "{""customer"":""123""}"
    request.OutId = "123"
    response = acsClient.GetAcsResponse(request)
    output.show(response.Message)
Catch ex As Exception
    output.show("error")
End Try

[此贴子已经被作者于2018/5/25 14:21:11编辑过]

 回到顶部
帅哥,在线噢!
lihe60
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:6842 积分:43288 威望:0 精华:0 注册:2009/3/2 14:07:00
  发帖心情 Post By:2018/5/25 15:00:00 [只看该作者]

建议一些好的.dll文件,自动添增。

 回到顶部