试试
Dim hc As New HttpClient("http://bsp-oisp.sf-express.com/bsp-oisp/sfexpressService")
Dim xml As String = "<Request service = ""OrderService"" lang = ""zh-CN"" > <Head>CS_IcziI</Head><Body> <Order orderid=""SFKD-20160219000019"" j_company=""深圳宝龙达信息技术股份有限公司"" ...... is_unified_waybill_no=""1""></Order></Body></Request>"
‘xml 的内容自己根据开发文档拼完整
Dim checkWord As String = "xxxxx校验码"
Dim md5 As new System.Security.Cryptography.MD5CryptoServiceProvider()
Dim bs() As Byte = md5.ComputeHash(system.Text.Encoding.UTF8.GetBytes(xml & checkWord))
Dim verifyCode As String = Convert.ToBase64String(bs)
Output.Show(verifyCode )
hc.FormData.Add("xml",xml)
hc.FormData.Add("verifyCode",verifyCode )
Dim ret As String = hc.getData()
Output.Show(ret)
[此贴子已经被作者于2019/5/18 17:07:11编辑过]
加好友 
发短信
Post By：2019/5/18 14:03:00 [显示全部帖子]
