以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  foxtable调用这个接口代码需要怎么写  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=191116)
--  作者：yuweijie
--  发布时间：2024/3/28 12:42:00
--  foxtable调用这个接口代码需要怎么写
POST /v1/oauth/accessToken HTTP/1.1
Host:10.1.1.110
Content-Type:application/json

{
	"appKey" : "String",
	"appSecret" : "String"
}
--  作者：myjht
--  发布时间：2024/3/28 13:34:00
--  
Sub CallAPI()
    Dim url As String
    Dim req As Object
    Dim jsonStr As String
    
    \'定义URL和JSON字符串
    url = "http://10.1.1.110/v1/oauth/accessToken"
    js"appKey"": ""YourAppKey"", ""appSecret"": ""YourAppSecret""}"
    
    \'创建WinHttpRequest对象
    Set req = CreateObject("WinHttp.WinHttpRequest.5.1")
    
    \'打开连接
    req.Open "POST", url, False
    
    \'设置请求头
    req.SetRequestHeader "Content-Type", "application/json"
    
    \'发送POST数据
    req.Send (jsonStr)
    
    \'获取返回内容
    If req.Status = 200 Then
        MsgBox req.ResponseText
    Else
        MsgBox "请求失败：" & req.Status & " " & req.StatusText
    End If
    
    \'释放对象
    Set req = Nothing
End Sub
--  作者：有点蓝
--  发布时间：2024/3/28 13:50:00
--  
Dim hc As New HttpClient("http://10.1.1.110/v1/oauth/accessToken")
hc.ContentType = "application/json"
Dim jo As New JObject
jo("appKey") = "appKey"
jo("appSecret") = "appSecret"
hc.Content = jo.ToString
Dim ret As String = hc.GetData()
MessageBox.Show(ret)
--  作者：yuweijie
--  发布时间：2024/3/28 17:10:00
--  
hc.ContentType = "application/json"提示出错。Unable to cast object of type \'System.String
改成hc.Headers.Add("Content-Type", "application/json")
获取不到值。The remote server returned an error: (401) Unauthorized.
--  作者：有点蓝
--  发布时间：2024/3/28 17:30:00
--  
这句代码没有问题，应该是给json对象赋值出错了
--  作者：yuweijie
--  发布时间：2024/3/28 18:11:00
--  
hc.ContentType = "application/json"
和
hc.Headers.Add("Content-Type", "application/json")
两句有区别吗？
--  作者：有点蓝
--  发布时间：2024/3/28 20:14:00
--  
有的。如果接口文档不指定在头部添加，建议使用第一种用法
--  作者：yuweijie
--  发布时间：2024/3/29 17:20:00
--  
System.Net.WebException: The remote server returned an error: (401) Unauthorized.
   at System.Net.HttpWebRequest.GetResponse()
   at Foxtable.HttpClient.GetData(Boolean SkipError2)


提示出错，是什么问题
--  作者：有点蓝
--  发布时间：2024/3/29 17:35:00
--  
没有权限使用，提交的appKey和appSecret有问题，或者使用的accessToken有问题
--  作者：yuweijie
--  发布时间：2024/3/29 20:31:00
--  
你这个要import啥吧