主题：腾讯云短信

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