以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何合成GET网址,并获取API返回值  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=156389)

--  作者:cxzhl
--  发布时间:2020/9/28 10:23:00
--  如何合成GET网址,并获取API返回值
蓝老师你好!有个问题请教。我按如下代码合成提交服务器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)

--  作者:有点蓝
--  发布时间:2020/9/28 10:26:00
--  
Dim dt As string = hc.GetData()