Vb.net发送腾讯云短信

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

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

2安装包

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

安装如下程序包最新版：

1. Microsoft.AspNet.WebApi.Client
2. Newtonsoft.Json
3. Pathoschild.Http.FluentClient
4. System.Text.Encodings.Web
5. 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…"  '密钥对