[求助]求助api的写法。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

水平实在太低，怎么测也过不去。求助老师一下：

这是个获取Tokenid的接口网址：

https://sandbox-api.100credit.cn/bankServer2/user/login.action

有三个输入参数分别是："userName"，"password"，"apiCode"

这个用来返回Tokenid。具体如下：

此主题相关图片如下：1.png

我这样写的话：

Dim hc As new HttpClient("https://sandbox-api.100credit.cn/bankServer2/user/login.action")

Dim jo As New JObject

jo("userName") = "zhengbo"

jo("password") = "zhengbo"

jo("apiCode") = "3002817"

Dim Json As String = jo.tostring()

msgbox(Json)

hc.Content = Json

Dim ret = hc.GetData

msgbox(ret)

就返回个100006，说接口拼接参数错误。

然后我这样写也不行：

Dim hc As New HttpClient("https://sandbox-api.100credit.cn/bankServer2/user/login.action") '测试

hc.C

hc.FormData.Add("userName", "zhengbo")

hc.FormData.Add("password", "zhengbo")

hc.FormData.Add("apiCode", "3002817")

Dim ret As String = hc.getData()

MessageBox.show(ret)

返回100011，说用户名不存在。

我翻了一遍论坛。也没看出哪问题来。求助老师帮看看。

[此贴子已经被作者于2019/10/9 23:10:02编辑过]

接口开发文档地址或者文件发上来看看

[此贴子已经被作者于2019/10/10 10:08:24编辑过]

是个pdf的文档，好像没法直接传，只能打包。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:风险api.rar

我主要想知道这种接口的写法，之后自己就可以对具体问题提问。现在主要还不知道怎么写。。

[此贴子已经被作者于2019/10/10 10:17:07编辑过]

就是1楼的第二种用法，返回100011，说用户名不存在。说明接口是成功调用的，那么肯定就是没有这个用户名，用户名是对方提供的吗，请咨询接口提供方

好的多谢老师，我问问先。

老师，我用上面的第二种方法成功的取到字符串了。

此主题相关图片如下：微信图片_20191011084522.png

但是我仔细看这个字符串里面都是用的双引号。。

咱们帮助里面的json都是单引号。

我想定义成一个json变量，之后再解析，发现报错。

Dim json As String = hc.getData()

Dim jo As JObject = JObject.Parse(json)

就这两行代码就会报错。。。

请问这个怎么处理？

Dim json As String = hc.getData()

msgbox(json) '这里显示什么？

就是我图片上的

那不可能出错。提示什么错误？

额，又好了不好意思。。估计可能请求太频繁报的错。

[此贴子已经被作者于2019/10/11 10:15:14编辑过]

主题：[求助]求助api的写法。