上传素材时，总是报错：
此主题相关图片如下：360截图20190616111726053.jpg
代码如下：
'定义网址
Dim url As String = "https://api.weixin.qq.com/cgi-bin/media/upload?access_token={0}&type=image"
Dim hc As new HttpClient(CExp(url,Functions.Execute("GetAccessToken")))
'上传文件
hc.Files.Add("media","C:\Users\Administrator\Documents\图标库\f46e5501e0a1e44b1ce373cc32b3ded2")
'从服务器获取图片素材,并存在表格内
Dim str As String = hc.GetData
'解析内容
Dim jo As JObject = JObject.parse(str)
'判断是否成功,成功写入素材库
If jo("errcode") Is Nothing Then
Dim dr As DataRow = DataTables("Materials").AddNew()
dr("Type") = "image"
dr("Media") = jo("Media")
dr("URL") = url
dr("UpdateTime") = Date.now
dr("FileName") = "f46e5501e0a1e44b1ce373cc32b3ded2.jpg"
Else
MessageBox.Show(jo.ToString())
End If
服务器正常开启，内部函数正常，请问什么地方没有考虑到？
加好友 
发短信
Post By：2019/6/16 11:19:00 [显示全部帖子]
