Foxtable(狐表)用户栏目专家坐堂 → foxtable调用这个接口代码需要怎么写


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

主题:foxtable调用这个接口代码需要怎么写

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


加好友 发短信
等级:幼狐 帖子:188 积分:1904 威望:0 精华:0 注册:2017/12/20 20:41:00
foxtable调用这个接口代码需要怎么写  发帖心情 Post By:2024/3/28 12:42:00 [只看该作者]

POST /v1/oauth/accessToken HTTP/1.1
Host:10.1.1.110
Content-Type:application/json

{
	"appKey" : "String",
	"appSecret" : "String"
}

 回到顶部
帅哥哟,离线,有人找我吗?
myjht
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:254 积分:1634 威望:0 精华:0 注册:2017/4/14 15:58:00
  发帖心情 Post By: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

 回到顶部
帅哥,在线噢!
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106000 积分:539087 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:188 积分:1904 威望:0 精华:0 注册:2017/12/20 20:41:00
  发帖心情 Post By: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.

 回到顶部
帅哥,在线噢!
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106000 积分:539087 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/3/28 17:30:00 [只看该作者]

这句代码没有问题,应该是给json对象赋值出错了

 回到顶部
帅哥哟,离线,有人找我吗?
yuweijie
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:188 积分:1904 威望:0 精华:0 注册:2017/12/20 20:41:00
  发帖心情 Post By:2024/3/28 18:11:00 [只看该作者]

hc.ContentType = "application/json"

hc.Headers.Add("Content-Type", "application/json")
两句有区别吗?


 回到顶部
帅哥,在线噢!
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106000 积分:539087 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/3/28 20:14:00 [只看该作者]

有的。如果接口文档不指定在头部添加,建议使用第一种用法

 回到顶部
帅哥哟,离线,有人找我吗?
yuweijie
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:188 积分:1904 威望:0 精华:0 注册:2017/12/20 20:41:00
  发帖心情 Post By: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)


提示出错,是什么问题

 回到顶部
帅哥,在线噢!
有点蓝
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106000 积分:539087 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/3/29 17:35:00 [只看该作者]

没有权限使用,提交的appKey和appSecret有问题,或者使用的accessToken有问题

 回到顶部
帅哥哟,离线,有人找我吗?
yuweijie
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:188 积分:1904 威望:0 精华:0 注册:2017/12/20 20:41:00
  发帖心情 Post By:2024/3/29 20:31:00 [只看该作者]

你这个要import啥吧

 回到顶部
总数 17 1 2 下一页