参考：http://www.foxtable.com/mobilehelp/topics/0161.htm
Dim url As String = "https://api.weixin.qq.com/tcb/uploadfile?access_token={0}"
Dim txtInfo As WinForm.TextBox = e.Form.Controls("txtInfo")
Dim hc As New HttpClient(CExp(url, Functions.Execute("GetAccessToken")))
Dim jo As New JObject()
jo("env") = "rainkeji_e0jcd3239b6"
jo("path") = "云存储空间路径"
hc.Content = jo.ToString()
jo = JObject.Parse(hc.GetData)
hc = New HttpClient(jo("url").ToString())
hc.FormData.Add("key","云存储空间路径")
hc.FormData.Add("Signature",jo("authorization").ToString())
hc.FormData.Add("x-cos-security-token",jo("token").ToString())
hc.FormData.Add("x-cos-meta-fileid",jo("cos_file_id").ToString())
hc.Files.Add("file","D:/WorkStation/3232.pdf")
Dim ret As String = hc.getData()
msgbox(ret)
加好友 
发短信
Post By：2021/7/18 21:20:00 [显示全部帖子]
