请问这段代码如何实现? - 调用第三方平台API - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请问这段代码如何实现? - 调用第三方平台API

共有3265人关注过本帖树形打印复制链接主题：请问这段代码如何实现? - 调用第三方平台API

有点蓝

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

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

Post By：2019/11/14 15:50:00 [显示全部帖子]

把文档的sign函数转换为vb代码：http://converter.telerik.com/

放到全局代码，注意补全.net类型的命名空间

Dim hc As new HttpClient("接口url")

hc.ContentType = “application/x-www-form-urlencoded”

hc.FormData.Add("user", "此处输入名称")

hc.FormData.Add("pwd", "此处输入密码")

hc.FormData.Add("cid", "此处输入clientId")

Dim dict As new Dictionary(of String, String)

dict.Add("user", "此处输入名称")

dict.Add("pwd", "此处输入密码")

dict.Add("cid", "此处输入clientId")

Dim 签名 As String = sign(map, "此处输入私钥")

hc.FormData.Add("sign",签名 )

dim ret = hc.GetData

msgbox(ret)

有点蓝

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

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

Post By：2019/11/14 16:00:00 [显示全部帖子]

注意补全.net类型的命名空间，如果不知道，就百度：HMACSHA1

有点蓝

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

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

Post By：2019/11/15 10:11:00 [显示全部帖子]

不需要：https://docs.microsoft.com/en-us/dotnet/api/system.security.cryptography.hmacsha1?redirectedfrom=MSDN&view=netframework-4.8

主题：请问这段代码如何实现? - 调用第三方平台API