Foxtable(狐表)用户栏目专家坐堂 → 这个从C#转成VB了,该怎么用?


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

主题:这个从C#转成VB了,该怎么用?

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


加好友 发短信
等级:小狐 帖子:355 积分:3925 威望:0 精华:0 注册:2014/7/29 23:42:00
这个从C#转成VB了,该怎么用?  发帖心情 Post By:2021/11/1 1:23:00 [显示全部帖子]

这个imports,提示有错误。

阿里云的代码,下一步我该怎么用呢?谢谢!

Imports System
Imports System.Collections.Generic
Imports Aliyun.Acs.Core
Imports Aliyun.Acs.Core.Profile
Imports Aliyun.Acs.Core.Exceptions
Imports Aliyun.Acs.Core.Http
Imports Aliyun.Acs.Core.Auth

Namespace CommonRequestDemo
    Class Program
        Private Shared Sub Main(ByVal args As String())
            Dim provider As AlibabaCloudCredentialsProvider = New AccessKeyCredentialProvider("<your-access-key-id>", "<your-access-key-secret>")
            Dim profile As IClientProfile = DefaultProfile.GetProfile("cn-hangzhou")
            Dim client As DefaultAcsClient = New DefaultAcsClient(profile, provider)
            Dim request As CommonRequest = New CommonRequest()
            request.Method = MethodType.POST
            request.Domain = "nlp.cn-hangzhou.aliyuncs.com"
            request.Version = "2018-04-08"
            request.UriPattern = "/nlp/api/kwe/{Domain}"
            request.AddHeadParameters("Content-Type", "application/json")
            Dim requestBody As String = "" & "{}"
            request.SetContent(System.Text.Encoding.[Default].GetBytes(requestBody), "utf-8", FormatType.JSON)

            Try
                Dim response As CommonResponse = client.GetCommonResponse(request)
                Console.WriteLine(response.Data)
            Catch e As ServerException
                Console.WriteLine(e)
            Catch e As ClientException
                Console.WriteLine(e)
            End Try
        End Sub
    End Class
End Namespace


 回到顶部