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


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

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

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


加好友 发短信
等级:童狐 帖子:257 积分:1649 威望: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

 回到顶部