Vb.net发送腾讯云短信

1腾讯云短信接口sdk3.0网址如下：

https://cloud.tencent.com/document/sdk/.NET

2安装包

打开vs2017，打开菜单：工具—>nuget包管理器—>管理解决方案的nuget程序包;

安装如下程序包最新版：

Microsoft.AspNet.WebApi.Client
Newtonsoft.Json
Pathoschild.Http.FluentClient
System.Text.Encodings.Web
TencentCloudSDK

注意：全部跑起来需要netframework4.7.2，否则发短信会报错。

3 发短信代码如下：

Private sub sendmstest()

Dim aaa() As String=New String() {"+8613711112222", "+8613711112222"}

SendMessageAsync(“短信发送测试！”, aaa)

End sub

Async Sub SendMessageAsync(ByVal sContent As String, ByVal sPhone As String())

Try

' 必要步骤：

' 实例化一个认证对象，入参需要传入腾讯云账户密钥对 secretId 和 secretKey

' 本示例采用从环境变量读取的方式，需要预先在环境变量中设置这两个值

' 也可以直接在代码中写入密钥对，但需谨防泄露，不要将密钥复制、上传或者分享他人

'* CAM 密匙查询：https : //console.cloud.tencent.com/cam/capi*/

'获取安全凭证。安全凭证包含 SecretId 及 SecretKey 两部分。SecretId 用于'标识

'API 调用者的身份，SecretKey 用于加密签名字符串和服务器端验证签名字'符串的密钥。

'前往 API 密钥管理页面进行获取。

Dim cred As Credential = New Credential()

cred.SecretId = "AKID…" '密钥对

cred.SecretKey = "axB…" '密钥对

'/* 非必要步骤

' * 实例化一个客户端配置对象，可以指定超时时间等配置 */

Dim ClientProfile As New ClientProfile()

'/* SDK 默认用 TC3-HMAC-SHA256 进行签名

'* 非必要请不要修改该字段 */

ClientProfile.SignMethod = ClientProfile.SIGN_TC3SHA256

'非必要步骤

'实例化一个客户端配置对象，可以指定超时时间等配置 */

Dim HttpProfile As New HttpProfile()

HttpProfile.ReqMethod = "POST"

'SDK 有默认的超时时间，非必要请不要进行调整

'如有需要请在代码中查阅以获取最新的默认值 */

HttpProfile.Timeout = 10 '// 请求连接超时时间，单位为秒(默认60秒)

'/* SDK 会自动指定域名，通常无需指定域名，但访问金融区的服务时必须手动指定域名

'* 例如 SMS 的上海金融区域名为 sms.ap-shanghai-fsi.tencentcloudapi.com */

HttpProfile.Endpoint = "sms.tencentcloudapi.com"

'// 代理服务器，当您的环境下有代理服务器时设定

HttpProfile.WebProxy = Environment.GetEnvironmentVariable("HTTPS_PROXY")

ClientProfile.HttpProfile = HttpProfile

'实例化 SMS 的 client 对象

'第二个参数是地域信息，可以直接填写字符串 ap-guangzhou，或者引用预设的常量 */

Dim client As SmsClient = New SmsClient(cred, "ap-guangzhou", ClientProfile)

'实例化一个请求对象，根据调用的接口和实际情况，可以进一步设置请求参数

'您可以直接查询 SDK 源码确定 SendSmsRequest 有哪些属性可以设置

'属性可能是基本类型，也可能引用了另一个数据结构

'推荐使用 IDE 进行开发，可以方便地跳转查阅各个接口和数据结构的文档说明

Dim req As New SendSmsRequest()

'基本类型的设置

'SDK 采用的是指针风格指定参数，即使对于基本类型也需要用指针来对参数赋值

'SDK 提供对基本类型的指针引用封装函数

'帮助链接：

'短信控制台https //console.cloud.tencent.com/sms/smslist

'sms helper：https : //cloud.tencent.com/document/product/382/3773

req.Sign = "环球科技"

req.SmsSdkAppid = "…" 'req.SmsSdkAppid = "1257310899"

' 短信签名内容: 使用 UTF - 8 编码，必须填写已审核通过的签名，

'可登录 [短信控制台] 查看签名信息

' req.Sign = "xxx"

'短信码号扩展号: 默认未开通，如需开通请联系 [sms helper] */

'req.ExtendCode = "x"

'国际/港澳台短信 senderid: 国内短信填空，默认未开通，如需开通请联系

'req.SenderId = ""

'用户的 session内容: 可以携带用户侧ID等上下文信息， server 会原样返回

'req.SessionContext = sContent

'下发手机号码，采用 e.164 标准，+[国家或地区码][手机号]

'例如+8613711112222，其中前面有一个+号，86为国家码，13711112222为手机号

' ‘最多不要超过200个手机号’

'req.PhoneNumberSet = New String() {"+8613711112222", "+8613711112222"}

req.PhoneNumberSet = sPhone

'短信模板id，短信模板要先进行申请，不再介绍。

req.TemplateID = "644040" ' 模板参数: 若无模板参数，则设置为空

req.TemplateParamSet = New String() {sContent}

'通过client对象调用SendSms方法发起请求，注意请求方法名与请求对象是对应的

'返回的 resp 是一个 SendSmsResponse 类的实例，与请求对象对应

Dim resp As SendSmsResponse = Await client.SendSms(req)

'// 输出 JSON 格式的字符串回包

Dim sA As String = AbstractModel.ToJsonString(resp)

If InStr(sA, "send success", CompareMethod.Text) > 0 Then

MessageBox.Show("短信发送成功。")

Else

MessageBox.Show("短信发送失败。错误信息：" & sA)

End If

Catch e As Exception

MessageBox.Show("短信发送失败！")

End Try

Console.Read()

End Sub

说明：以上代码为生产代码，已投入运行使用。密钥对等客户数据被修改。