DimurlAsString = "https://qyapi.weixin.qq.com/cgi-bin/material/add_material?type=image&access_token={0}" Dim hc As
new HttpClient(CExp(url, Functions.Execute("GetQYAccessToken"))) hc.Files.Add("media","c:\data\sample.jpg") '指定要上传的图片文件 Dim jo As JObject = JObject.Parse(
hc.getdata) If jo("errcode") = "0"Then Dim dr AsDataRow =
DataTables("Materials").AddNew() dr("Type") =
"image" dr("MediaID") =
jo("media_id") dr("FileName") = "sample.jpg" dr("UpdateTime")
= Date.Now dr.Save() Else MessageBox.Show(jo.ToString) EndIf