如何合成GET网址，并获取API返回值 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何合成GET网址，并获取API返回值

共有1964人关注过本帖树形打印复制链接主题：如何合成GET网址，并获取API返回值

cxzhl

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：34 积分：431 威望：0 精华：0 注册：2020/3/23 23:20:00

如何合成GET网址，并获取API返回值 发帖心情

Post By：2020/9/28 10:23:00 [只看该作者]

蓝老师你好！有个问题请教。我按如下代码合成提交服务器API接口，在命令窗中报错，获取不了服务器的返回值。如果用浏览器直接输入http://www.99cgt.cn:8099/DoCMD.php?CMD_VIN=LV8898&CMD_String=CX是正常的。返回值是{"code":200,"msg":"XC","value":"Succeed"}

Dim CMD_VIN As String= "LV8898" 'ID

Dim CMD_String As String = "CX" '命令

Dim url As String = "https://www.99cgt.cn:8099/DoCMD.php?CMD_VIN={0}&CMD_String={1}"

Dim hc As New HttpClient(CExp(url,CMD_VIN,CMD_String))

Dim dt As JObject = hc.GetData()

'MessageBox.Show(dt)

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：105958 积分：538865 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/9/28 10:26:00 [只看该作者]

Dim dt As string = hc.GetData()

下一主题 >> << 上一主题

主题：如何合成GET网址，并获取API返回值