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

[此贴子已经被作者于2020/3/19 23:10:45编辑过]

全局代码

public Function generateSign(ByVal dict As Dictionary(Of String, String)) As String

Dim str As String = ""

For Each key As String In dict.Keys

str = str & key & dict(key)

Dim md5psw As String = MD5Encrypt2(appSecret, 16).ToLower()

str = md5psw & str & md5psw

Return MD5Encrypt2(str, 32).ToUpper()

End Function

public Function MD5Encrypt2(ByVal password As String, ByVal bit As Integer) As String

Dim md5Hasher As New System.Security.Cryptography.MD5CryptoServiceProvider()

Dim hashedDataBytes As Byte()

hashedDataBytes = md5Hasher.ComputeHash(Encoding.UTF8.GetBytes(password))

Dim tmp As StringBuilder = New StringBuilder()

For Each i As Byte In hashedDataBytes

tmp.Append(i.ToString("x2"))

If bit = 16 Then

Return tmp.ToString().Substring(8, 16)

ElseIf bit = 32 Then

Return tmp.ToString()

Else

Return String.Empty

End If

End Function

调用

Dim postedJObject As JObject = New JObject()

postedJObject.Add("Platform", "拼多多申通")

postedJObject.Add("SendContact", "sir张")

postedJObject.Add("SendOfficePhone", "18225405356")

postedJObject.Add("UserId", "8989")

postedJObject.Add("SendCellPhone", "18225405356")

postedJObject.Add("SendState", "浙江省")

postedJObject.Add("SendCity", "金华市")

postedJObject.Add("SendDistrict", "义乌市")

postedJObject.Add("SendAddress", "柳青(五区)66栋")

postedJObject.Add("ProductTitle", "衣服")

postedJObject.Add("Weight", "2")

Dim jArray As JArray = New JArray()

Dim rOrder As JObject = New JObject()

rOrder.Add("OrderNo", "3112e2e2e111e")

rOrder.Add("Contact", "唐淑莲")

rOrder.Add("OfficePhone", "15672618101")

rOrder.Add("CellPhone", "15672618101")

rOrder.Add("State", "湖北省")

rOrder.Add("City", "黄冈市")

rOrder.Add("District", "英山县")

rOrder.Add("Address", "温泉镇西汤河民政局斜对面一修家电服务中心")

jArray.Add(rOrder)

Dim rOrder1 As JObject = New JObject()

rOrder1.Add("OrderNo", "3112e2e2e111e22")

rOrder1.Add("Contact", "唐淑莲")

rOrder1.Add("OfficePhone", "15672618101")

rOrder1.Add("CellPhone", "15672618101")

rOrder1.Add("State", "湖北省")

rOrder1.Add("City", "黄冈市")

rOrder1.Add("District", "英山县")

rOrder1.Add("Address", "温泉镇西汤河民政局斜对面一修家电服务中心")

jArray.Add(rOrder1)

postedJObject.Add("Raddress", jArray)

Dim 订单详情 As String = CompressJson(postedJObject)

Dim hc As new HttpClient("http://kongbao100.cn/OrderSubmit/index.asp")

hc.C

hc.FormData.Add("appKey","zto001")

hc.FormData.Add("logiType","buykongbao")

hc.FormData.Add("orders",订单详情 )

hc.FormData.Add("timestamp",Date.Now.ToString("yyyy-MM-dd HH:mm:ss"))

Dim dict As new Dictionary(of String, String)

dict.Add("appKey", "zto001")

dict.Add("logiType", "buykongbao")

dict.Add("orders", 订单详情)

dict.Add("timestamp", DateTime.Now.ToString("yyyy-MM-dd HH:mm:ss"))

Dim 签名 As String = generateSign(dict)

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

dim ret = hc.GetData

msgbox(ret)

下载信息 [文件大小：下载次数： ]
点击浏览该文件:c# demo.zip

你这样写是不是有点复杂，我的好像比较简单点

Dim 时间 As Date = Date.Now

Dim 订单详情 As String="{""Platform"":""电子百世"",""SendContact"":""发件人"",""SendOfficePhone"":""15888888888"",""SendCellPhone"":""15888888888"",""SendState"":""广东省"",""SendCity"":""广州市"",""SendDistrict"":""番禺区"",""SendAddress"":""岭南大道321号"",""ProductTitle"":""物品类别如化妆品"",""Weight"":""2"",""Raddress"":[{""OrderNo"":""T100001111"",""Contact"":""收货人1"",""OfficePhone"":""15888888888"",""CellPhone"":""15888888888"",""State"":""广东省"",""City"":""广州市"",""District"":""番禺区"",""Address"":""岭南大道321号""}]}"

Dim 签名0 As String="13f4a636545c424eappKeyzto001logiTypebuykongbaoorders" & 订单详情 & "timestamp" & 时间 & "13f4a636545c424e"

Dim 被加密= 签名0

Dim 签名 = System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(被加密 , "MD5")

Dim hc As new HttpClient("http://kongbao100.cn/OrderSubmit/index.asp")

hc.FormData.Add("appKey","zto001")

hc.FormData.Add("logiType","buykongbao")

hc.FormData.Add("orders",订单详情 )

hc.FormData.Add("timestamp", 时间 )

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

'Output.Show(hc.GetData)

'{"code":"0","msg":"下单成功","Data":[{"OrderNo":"T100001111","WaybillSn":"","Trackingno":"73120393412531"},{"OrderNo":"T100002","WaybillSn":"","Trackingno":"73120393412529"}]}

'{"code":"1010","msg":"对不起,该商品暂停出售","Data":""}

Dim jo As JObject = JObject.Parse(hc.GetData)

If jo("msg")="下单成功" Then

For Each jt As JToken In jo("Data")

Output.Show("快递单号:" & jt("Trackingno").ToString )

Else

output.Show("错误提醒:"jo("age"))

End If

MD5 16位小写这样获取（里面不是动态的就直接写出MD5小写16的值了）

Dim str As String = "1233312"

Dim md5 As new System.Security.Cryptography.MD5CryptoServiceProvider()

Dim byData() As Byte = Encoding.Default.GetBytes(str)

Dim result() As Byte = md5.ComputeHash(byData)

Dim md5Str As String = BitConverter.ToString(result, 4, 8)

md5Str = md5Str.Replace("-", "").ToLower

Output.Show(md5Str)

我是直接从官方示例转换过来的。有能力的自己优化当然就更好

哦，懂了，MD5你是做在全局代码里面，然后写JObject 然后在放进去

主题：[求助]这个api怎么写？空包api