Dim st As New Date(1970,1,1,8,0,0)
Dim timeSign As Long = CLng((Date.Now - st).TotalMilliseconds())
Dim clientId As String = "aeeragerwqerwertwer"
Dim jiekou As String = "sale/company/posthouse"
Dim tokenSign As String = CExp(clientId & timeSign & Functions.Execute("tokenSign"))
tokenSign =Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(tokenSign, "MD5").ToLower()
Dim url As String = "http://hu.com/gateway/" & jiekou & "?clientId={0}&timeSign={1}&tokenSign={2}"
Dim requrl As String = CExp(url,clientId,timeSign,tokenSign)
Dim jo As New JObject
jo("bianhao") = CStr("11111")
jo("xiaoquId") = CStr("22222")
jo("shi") = CStr("3")
jo("ting") = CStr("2")
jo("wei") = CStr("1")
.....
这里的传输字段有30个左右~
Dim bodystr As String = jo.ToString
Output.Show(requrl)
Output.Show(bodystr)
Dim hc As New HttpClient(requrl)
hc.Content = jo.ToString
jo = JObject.Parse(hc.GetData)
Output.Show(jo.ToString)
请问老师,这个要怎样才能将红色部分转换成下面的方式post数据
http://hu.com/gateway/sale/company/posthouse?clientId=aeeragerwqerwertwer&timeSign=1656156489173&tokenSign=b105ba7f6dbe7d200af3437fa387288d&bianhao=11111&xiaoquId=22222&shi=3&ting=2&wei=1....
[此贴子已经被作者于2022/6/26 10:26:35编辑过]
加好友 
发短信
Post By：2022/6/25 19:33:00 [只看该作者]
