主题：实在是看不到如何使用达达的api接口，有大大能写一个简单的案例吗？

我现在想下一个简单的通过达达平台下单的功能，这个是达达开放平台的接口文档

https://newopen.imdada.cn/#/development/file/mustread?_k=hkqkna

我已经注册好了一个开发者号码

app_key：dadac4300b3da8c2910

app_secret：0ed05802d9537f91dc0548ae3382efca

然后我想模拟发送一个订单请求

https://newopen.imdada.cn/#/development/file/add?_k=qrwm7l

但是看了很久都不懂，狐表的帮助文档我也看了《阿里云全国物流查询接口》，但是这个是通过get的方法获取，这个达达好像要我通过post的方法，实在是不知道怎么搞。还说要

请设置Header的Content-Type为application/json，也不知道是哪里可以设置，一头雾水

他那些接口思路，没办法套用到vb.net上吗？是不是有几个参数是php或者java专有的？

你这些，是不是哪里机翻的？还是人打的？总感觉，看起来，像是javaDemo机翻过来的vb.net

我尽力，能够发送给官方，并且官方告诉我错误的地方，签名错误，然而我认为我没有错误，不知道怎么修改了，已经是尽力了，贴出所有代码，给后来的人，如果你有恒心，继续搞搞吧

1.全局代码里先添加MD5 32位加密的方法（狐表里默认的是24位的，不合适用）

2.在命令窗口里

Dim appKey As String = "dadac4300b3da8c2910"
Dim appSecret As String = "0ed05802d9537f91dc0548ae3382efca"
' 测试环境发单url
Dim ADD_ORDER_URL As String = "http://newopen.qa.imdada.cn/api/order/addOrder"

'根据业务需求按照文档构造请求参数
Dim jo As New JObject
jo("origin_id") = format(Date.now, "yyyyMMddHHmmss")
jo("city_name") = "上海"
jo("city_code") = "021"
jo("pay_for_supplier_fee") = 0.0
jo("fetch_from_receiver_fee") = 0.0
jo("deliver_fee") = 0.0
jo("tips") = 0
jo("info") = "测试订单"
jo("cargo_price") = 10
jo("is_prepay") = 0
Dim st As New Date(1970,1,1,8,0,0)
Dim timestamp As Integer = CInt((Date.Now.AddHours(2) - st).TotalSeconds()) '时间戳
jo("expected_fetch_time") = timestamp
timestamp = CInt((Date.Now.AddHours(3)- st).TotalSeconds()) '时间戳
jo("expected_finish_time") = timestamp
jo("invoice_title") = "测试"
jo("receiver_name") = "测试"
jo("receiver_address") = "上海市崇明岛"
jo("receiver_phone") = "18588888888"
jo("receiver_tel") = "18599999999"
jo("receiver_lat") = 31.2
jo("receiver_lng") = 121.5
jo("callback") = "http://localhost:8081/receive/"
jo("shop_no") = 11047059

Dim jo1 As New JObject
jo1("body") = CompressJson(jo)
' jo.ToString ' 注意body是json字符串
jo1("format") = "json"
Dim st2 As New Date(1970,1,1,8,0,0)
Dim timestamp2 As Integer = CInt((Date.Now - st2).TotalSeconds()) '时间戳
jo1("timestamp") = timestamp2
jo1("app_key") = appKey
jo1("v") = "1.0"
jo1("source_id") = 73753

Dim keyList As new List (of String )
keyList.Add("body")
keyList.Add("format")
keyList.Add("timestamp")
keyList.Add("app_key")
keyList.Add("v")
keyList.Add("source_id")

Dim keyAry() As String = KeyList.ToArray()
Array.Sort(KeyAry)

Dim sign As String

For i As Integer = 0 To KeyAry.Length -1
    sign = sign & KeyAry(i)  & jo1(KeyAry(i)).ToString
Next
sign = appSecret & sign & appSecret
sign = MD5(sign,32)
sign = sign.ToUpper
jo1("signature") = sign

output.show(jo1.ToString())
Dim hc As New HttpClient(ADD_ORDER_URL)
hc.Timeout = 5 '设置超时为5秒
hc.C
hc.Content = CompressJson(jo1)
Dim ret As String = hc.GetData()
Dim Rejo As JObject = JObject.Parse(ret)
output .Show(rejo.ToString)

3点执行，效果如下： 

{
  "body": "{\"origin_id\":\"20170828153247\",\"city_name\":\"上海\",\"city_code\":\"021\",\"pay_for_supplier_fee\":0.0,\"fetch_from_receiver_fee\":0.0,\"deliver_fee\":0.0,\"tips\":0,\"info\":\"测试订单\",\"cargo_price\":10,\"is_prepay\":0,\"expected_fetch_time\":1503912768,\"expected_finish_time\":1503916368,\"invoice_title\":\"测试\",\"receiver_name\":\"测试\",\"receiver_address\":\"上海市崇明岛\",\"receiver_phone\":\"18588888888\",\"receiver_tel\":\"18599999999\",\"receiver_lat\":31.2,\"receiver_lng\":121.5,\"callback\":\"http://localhost:8081/receive/\",\"shop_no\":11047059}",
  "format": "json",
  "timestamp": 1503905568,
  "app_key": "dadac4300b3da8c2910",
  "v": "1.0",
  "source_id": 73753,
  "signature": "715B3EAA8E701A05D20BC9CB653A87A1"
}

{
  "status": "fail",
  "errorCode": 2003,
  "code": 2003,
  "msg": "签名错误"
}

我曹，我终于发现我的问题所在，原来是用了非正规的MD5加密！我一行行代码去对比结果，然后我发现只需要改动MD5加密的地方，就返回成功了！

sign = MD5(sign,32)
改为

sign =System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(sign, "MD5"))

事情起源于我发现狐表的md5加密好像跟正规的不一样，于是我去搜论坛，发现这个帖子

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=60429&skin=0

里面介绍了MD5的32位加密的2个方法，

第一种MD5加密方法

把下面的代码写到全局代码，然后调用 msgbox(MD5("12345678", 32))