Dim url As String = "https://link.cainiao.com/gateway/link.do"

Dim hc As New HttpClient(url)

Dim jo As New JObject

jo("userId") = CStr(Vars("userId"))

jo("sharedCode") = CInt(Vars("sharedCode"))

jo("printerId") = CStr(Vars("printerId"))

jo("printData") = New JObject

jo("printData")("templateUrl") = CStr(Vars("templateUrl"))

jo("printData")("encrypted") = False

jo("printData")("data") = New JObject

jo("printData")("data")("cut_time") = Date.Now

jo("printData")("data")("typeno") = CStr(60253156425)

jo("printData")("data")("color") = CStr("红色")

jo("printData")("data")("bed_size") = CStr("M")

jo("printData")("data")("sign") = CStr(6)

jo("printData")("data")("num") = CStr(25)

jo("printData")("data")("sign_num") = CStr(50)

jo("printData")("data")("size_num") = CStr(1250)

jo("printData")("data")("position") = CStr("前片") 

jo("printData")("data")("company_name") = CStr("1")

jo("printData")("data")("fa_name") = CStr("1")

jo("printData")("data")("printdes") = CStr("1")

jo("printData")("data")("code_url") = CStr("https://www.baidu.com")

Dim data As String = (jo.ToString)

hc.FormData.Add("msg_type", "CLOUDPRINT_PRINTER_PRINT")

hc.FormData.Add("to_code", "")

hc.FormData.Add("logistic_provider_id", Vars("token"))

hc.FormData.Add("logistics_interface", data)

Dim s As String = Functions.Execute("MD5", data & Vars("appsecret"), 2)

hc.FormData.Add("data_digest", s)

Dim ret As String = hc.GetData()