上传素材时,总是报错:此主题相关图片如下: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
服务器正常开启,内部函数正常,请问什么地方没有考虑到?