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


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

主题：这个从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
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106209 积分：540168 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：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 
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 4 次数据查询