Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
Dim bw As String = FileSys.ReadAllText(dlg.FileName,Encoding.UTF8)
Dim ts As String = clng((Date.Now - new Date(1970, 1, 1)).TotalSeconds)
Dim hc As New HttpClient("https://sfapi-sbox.sf-express.com/std/service")
hc.ContentType = "application/x-www-form-urlencoded;charset=UTF-8"
Dim xml As String = CompressJson(JObject.Parse(bw))
Dim checkword = "自己的checkword "
Dim builder As new StringBuilder()
For Each c As Char In xml & ts & checkword
If System.Web.HttpUtility.UrlEncode(c.ToString()).Length > 1 Then
builder.Append(System.Web.HttpUtility.UrlEncode(c.ToString()).ToUpper())
Else
builder.Append(c)
End If
Next
Dim encode As String = Convert.ToBase64String(New System.Security.Cryptography.MD5CryptoServiceProvider().ComputeHash(Encoding.UTF8.GetBytes(builder.ToString())))
hc.FormData.Add("partnerID","自己的partnerID")
hc.FormData.Add("requestID",Guid.NewGuid().ToString())
hc.FormData.Add("serviceCode","EXP_RECE_CREATE_ORDER" )
hc.FormData.Add("timestamp",ts)
hc.FormData.Add("msgDigest",encode )
hc.FormData.Add("msgData",xml)
Dim ret As String = hc.GetData()
msgbox(ret)
End If
加好友 
发短信
Post By：2022/3/9 10:23:00 [显示全部帖子]
此主题相关图片如下：1.png