Foxtable(狐表)用户栏目专家坐堂 → 腾讯云短信


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

主题:腾讯云短信

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


加好友 发短信
等级:三尾狐 帖子:655 积分:7725 威望:0 精华:0 注册:2013/12/11 17:49:00
腾讯云短信  发帖心情 Post By:2021/5/7 9:07:00 [只看该作者]

请问老师 下面代码 在foxtable 要怎么写?

Imports System
Imports System.Threading.Tasks
Imports TencentCloud.Common
Imports TencentCloud.Common.Profile
Imports TencentCloud.Sms.V20190711
Imports TencentCloud.Sms.V20190711.Models

Namespace TencentCloudExamples
    Class SendSms
        Private Shared Sub Main1(ByVal args As String())
            Try
                Dim cred As Credential = New Credential With {
                    .SecretId = "xxx",
                    .SecretKey = "xxx"
                }
                Dim clientProfile As ClientProfile = New ClientProfile()
                clientProfile.SignMethod = ClientProfile.SIGN_TC3SHA256
                Dim httpProfile As HttpProfile = New HttpProfile()
                httpProfile.ReqMethod = "GET"
                httpProfile.Timeout = 10
                httpProfile.Endpoint = "sms.tencentcloudapi.com"
                httpProfile.WebProxy = Environment.GetEnvironmentVariable("HTTPS_PROXY")
                clientProfile.HttpProfile = httpProfile
                Dim client As SmsClient = New SmsClient(cred, "ap-guangzhou", clientProfile)
                Dim req As SendSmsRequest = New SendSmsRequest()
                req.SmsSdkAppid = "1400787878"
                req.Sign = "xxx"
                req.ExtendCode = "x"
                req.SenderId = ""
                req.SessionContext = ""
                req.PhoneNumberSet = New String() {"+8613711112222"}
                req.TemplateID = "449739"
                req.TemplateParamSet = New String() {"666"}
                Dim resp As SendSmsResponse = client.SendSmsSync(req)
                Console.WriteLine(AbstractModel.ToJsonString(resp))
            Catch e As Exception
                Console.WriteLine(e.ToString())
            End Try

            Console.Read()
        End Sub
    End Class
End Namespace

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


加好友 发短信
等级:超级版主 帖子:107730 积分:547983 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/5/7 9:29:00 [只看该作者]

把dll复制到foxtable安装目录,然后添加引用

全局代码,注意补齐命名空间(比如红色部分),我只举例添加了2个,至于是不是这个命名空间,我也不清楚,您咨询一下客服或者看看源码,剩下的自己补齐

public Sub Main1()
            Try
                Dim cred As TencentCloud.Common.Credential = New TencentCloud.Common.Credential With {
                    .SecretId = "xxx",
                    .SecretKey = "xxx"
                }
                Dim clientProfile As TencentCloud.Common.Profile.ClientProfile = New TencentCloud.Common.Profile.ClientProfile()
                clientProfile.SignMethod = ClientProfile.SIGN_TC3SHA256
                Dim httpProfile As HttpProfile = New HttpProfile()
                httpProfile.ReqMethod = "GET"
                httpProfile.Timeout = 10
                httpProfile.Endpoint = "sms.tencentcloudapi.com"
                httpProfile.WebProxy = Environment.GetEnvironmentVariable("HTTPS_PROXY")
                clientProfile.HttpProfile = httpProfile
                Dim client As SmsClient = New SmsClient(cred, "ap-guangzhou", clientProfile)
                Dim req As SendSmsRequest = New SendSmsRequest()
                req.SmsSdkAppid = "1400787878"
                req.Sign = "xxx"
                req.ExtendCode = "x"
                req.SenderId = ""
                req.SessionContext = ""
                req.PhoneNumberSet = New String() {"+8613711112222"}
                req.TemplateID = "449739"
                req.TemplateParamSet = New String() {"666"}
                Dim resp As SendSmsResponse = client.SendSmsSync(req)
                msgbox(AbstractModel.ToJsonString(resp))
            Catch e As Exception
                msgbox(e.ToString())
            End Try
        End Sub

调用的时候直接调用Main1()函数即可

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


加好友 发短信
等级:三尾狐 帖子:655 积分:7725 威望:0 精华:0 注册:2013/12/11 17:49:00
  发帖心情 Post By:2021/5/7 9:47:00 [只看该作者]

谢谢老师  我dll文件也引入了  但是上述代码放到全局代码 报错

图片点击可在新窗口打开查看此主题相关图片如下:企业微信截图_16203518304716.png
图片点击可在新窗口打开查看


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


加好友 发短信
等级:超级版主 帖子:107730 积分:547983 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/5/7 9:55:00 [只看该作者]

可能命名空间的问题,自己尝试是哪一个,或者看官方文档、源码

Imports TencentCloud.Common
Imports TencentCloud.Common.Profile
Imports TencentCloud.Sms.V20190711
Imports TencentCloud.Sms.V20190711.Models


换一个用法

Dim cred As TencentCloud.Common.Credential = New TencentCloud.Common.Credential
cred .SecretId = "xxx"
cred .SecretKey = "xxx"

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


加好友 发短信
等级:三尾狐 帖子:655 积分:7725 威望:0 精华:0 注册:2013/12/11 17:49:00
  发帖心情 Post By:2021/5/7 10:44:00 [只看该作者]

老师 我再调用的时候 出现错误,麻烦帮我看一下


图片点击可在新窗口打开查看此主题相关图片如下:2.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2021/5/7 10:44:31编辑过]

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


加好友 发短信
等级:超级版主 帖子:107730 积分:547983 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/5/7 10:48:00 [只看该作者]

dll没有添加到foxtable安装目录,或者没有添加引用。

把系统.net framework更新到最新4.8版。

另外注意引用net framework版本的dll,不是net core的版本dll
[此贴子已经被作者于2021/5/7 10:48:46编辑过]

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


加好友 发短信
等级:三尾狐 帖子:632 积分:7223 威望:0 精华:1 注册:2013/11/26 7:49:00
  发帖心情 Post By:2021/5/19 9:26:00 [只看该作者]

老师.net安装了4.6 ,麻烦帮我看下,dll也引用了,命名空间也照C#里写了,命令窗口运行还是报这个错
可以运行的C#代码附件我也上传了

全局代码如下:
Public Sub Main1()
Try
    
    Dim cred As TencentCloud.Common.Credential = New TencentCloud.Common.Credential
    cred .SecretId = "AKIDOYUtON8qV69cZQ2PO8l9UfsrcyKI"
    cred .SecretKey = "3g5wXtcnhJekcDXbYswUmnXwmPdaG"

    Dim clientProfile As TencentCloud.Common.Profile.ClientProfile = New TencentCloud.Common.Profile.ClientProfile()
    Dim httpProfile As TencentCloud.Common.Profile.HttpProfile = New TencentCloud.Common.Profile.HttpProfile()
    httpProfile.Endpoint = ("sms.tencentcloudapi.com")
    clientProfile.HttpProfile = httpProfile
    Dim client As TencentCloud.Sms.V20210111.SmsClient = New TencentCloud.Sms.V20210111.SmsClient(cred, "ap-guangzhou", clientProfile)
    Dim req As TencentCloud.Sms.V20210111.Models.SendSmsRequest = New TencentCloud.Sms.V20210111.Models.SendSmsRequest()
    req.PhoneNumberSet = New String() {"+8615968015166"}
    req.SmsSdkAppId = "1400517359"
    req.SignName = "测试"
    req.TemplateId = "947545"
    req.TemplateParamSet = New String() {"123321"}
    Dim resp As TencentCloud.Sms.V20210111.Models.SendSmsResponse = client.SendSmsSync(req)
   msgbox(TencentCloud.Common.AbstractModel.ToJsonString(resp))
    '
Catch e As Exception
    msgbox(e.ToString())
End Try

Console.Read()
End Sub

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:net.part01.rar

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:net.part02.rar




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

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




[此贴子已经被作者于2021/5/19 15:04:28编辑过]

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


加好友 发短信
等级:超级版主 帖子:107730 积分:547983 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/5/19 10:16:00 [只看该作者]

把System.Text.Encodings.Web.dll也复制到安装目录

参考这里:http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=149415&authorid=0&page=0&star=3,21楼23楼添加一下配置

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


加好友 发短信
等级:三尾狐 帖子:632 积分:7223 威望:0 精华:1 注册:2013/11/26 7:49:00
  发帖心情 Post By:2021/5/19 10:52:00 [只看该作者]

老师好,这个DLL文件我也复制引用的,老师,我加了那个红色代码,狐表都启动不了了


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

[此贴子已经被作者于2021/5/19 11:19:00编辑过]

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


加好友 发短信
等级:超级版主 帖子:107730 积分:547983 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/5/19 12:16:00 [只看该作者]

仔细看8楼的链接,不是乱加的,原来的配置不能删除,要加到<runtime><assemblyBinding节点里面

 回到顶部
总数 15 1 2 下一页