以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  这个从C#转成VB了，该怎么用？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=172792)
--  作者：machle
--  发布时间：2021/11/1 1:23:00
--  这个从C#转成VB了，该怎么用？
这个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
--  作者：有点蓝
--  发布时间：2021/11/1 9:07:00
--  
参考下面红字的方式把上面import的命名空间放到代码里 ，至于是哪个命名空间请自行去看sdk源码，我也不知道。下面只是随便复制几个做例子，不一定正确

       public function Main(ByVal args As String()) as object
            Dim provider As  New Aliyun.Acs.Core.AccessKeyCredentialProvider("<your-access-key-id>", "<your-access-key-secret>")
            Dim profile As Aliyun.Acs.Core.Profile.IClientProfile = Aliyun.Acs.Core.Profile.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)
                return (response.Data)
            Catch e As Exception
                msbox(e.message)
return e.message
            End Try
        End function