[求助]这个接口怎么写？详情见下【暂时没问题】快递鸟api - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

这是c#的代码请转换为vb使用

我在论坛找了这样的写法，写成这样对吗？

Dim 被加密= "{ ""OrderCode"": ""012657018199"", ""ShipperCode"": ""SF"", ""PayType"": 1, ""MonthCode"": ""1234567890"", ""ExpType"": 1, ""Cost"": 1.0, ""OtherCost"": 1.0, ""Sender"": { ""Company"": ""LV"", ""Name"": ""Taylor"", ""Mobile"": ""15018442396"", ""ProvinceName"": ""上海"", ""CityName"": ""上海市"", ""ExpAreaName"": ""青浦区"", ""Address"": ""明珠路"" }, ""Receiver"": { ""Company"": ""GCCUI"", ""Name"": ""Yann"", ""Mobile"": ""15018442396"", ""ProvinceName"": ""北京"", ""CityName"": ""北京市"", ""ExpAreaName"": ""朝阳区"", ""Address"": ""三里屯街道"" }, ""Commodity"": [ { ""GoodsName"": ""鞋子"", ""GoodsQuantity"": 1, ""GoodsWeight"": 1.0 }, { ""GoodsName"": ""衣服"", ""GoodsQuantity"": 1, ""GoodsWeight"": 1.0 }, ], ""AddService"": [ { ""Name"": "" INSURE "", ""Value"": ""1000"" }, { ""Name"": ""COD"", ""Value"": ""1020"" "" CustomerID "": ""1234567890"" } ], ""Weight"": 1.0, ""Quantity"": 1, ""Volume"": 0.0, ""Remark"": ""小心轻放"" }"

Dim MD5结果 = System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile("120988f8-5144-4dee-8e8c-776af5b05262" & 被加密 & "120988f8-5144-4dee-8e8c-776af5b05262", "MD5")

Dim s As String = MD5结果

Dim b As Byte() = System.Text.Encoding.UTF8.GetBytes(S)

'Dim b As Byte() = System.Text.Encoding.default.GetBytes(S) '不同编码

Dim base64 = Convert.ToBase64String(b)

自己测试能不能使用。

加密有N多种方法，建议使用接口方提供的方法。

Dim jos As String="{ ""MemberId"": """", ""EnterpriseId"": ""bb253828-0182-4638-988a-639d27cf7f54"", ""Name"": ""张三"", ""Mobile"": 18658275958, ""OrderCode"": ""KDN123456"", ""LogisticCode"": ""95030000"", ""EvaluateType"": 2, ""Target"": { ""MerchantType"": 4, ""MerchantName"": ""张三快递员"", ""MerchantPhone"": ""13500000000"", ""MerchantLink"": """", ""MerchantAddress"": """", ""MerchantPicture"": """" }, ""ComplaintType"": 11, ""ComplaintContent"": ""货物代签丢失,未收到货"" }"

Dim MD5 = System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile( jos & "120988f8-5144-4dee-8e8c-776af5b05*6*" , "MD5")

Dim b As Byte() = System.Text.Encoding.UTF8.GetBytes( MD5 )

'Dim b As Byte() = System.Text.Encoding.default.GetBytes(S) '不同编码

Dim base64 = Convert.ToBase64String(b)

Dim hc As new HttpClient("http://api.kdniao.com/api/dist")

hc.ContentType = "application/x-www-form-urlencoded;charset=utf-8"

hc.FormData.Add("RequestData",jos ) '请求内容,JSON,须和DataType一致.

hc.FormData.Add("EBusinessID","158**46") '用户ID

hc.FormData.Add("RequestType",1013 )

hc.FormData.Add("DataSign", base64 ) '数据签名

hc.FormData.Add("DataType", "2-json" )

Output.Show(hc.GetData)

用不了，接口的方法怎么用？

都说了把那3个函数转换为vb放到全局代码。http://converter.telerik.com/

之前做其它接口都是通用的用法啊。

错误

此主题相关图片如下：qq截图20191121143236.png

请从原来的示例里复制代码，不要复制多余的字符

这个呢？

此主题相关图片如下：qq截图20191121144234.png

Private Function encrypt(ByVal content As String, ByVal keyValue As String, ByVal charset As String) As String

If keyValue IsNot Nothing Then

Return base64(MD5(content + keyValue, charset), charset)

End If

Return base64(MD5(content, charset), charset)

End Function
图片点击可在新窗口打开查看

此主题相关图片如下：qq截图20191121144356.png

代码重复了。说明全局代码已经有了同名的函数，改为其他名称使用

主题：[求助]这个接口怎么写？详情见下【暂时没问题】快递鸟api