参考下面红字的方式把上面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