上传图文消息内的图片

腾讯对公众号永久素材的数量做了限制，图文消息素材、图片素材的上限为5000，视频和语音素材的上限为1000。

本接口所上传的图片不受5000个图片素材上限的限制，图片仅支持jpg/png格式，大小必须在1MB以下，返回的只有URL。

参考代码：

Dim URL As String = "https://api.weixin.qq.com/cgi-bin/media/uploadimg?access_token={0}"
Dim hc As new HttpClient(CExp(URL, Functions.Execute("GetAccessToken")))
hc.Files.Add("media","c:\data\sample.jpg")
Dim jo As JObject = JObject.Parse( hc.getdata)
If jo("errcode") Is Nothing Then
    Dim dr As DataRow = DataTables("Materials").AddNew()
    dr("URL") = jo("url")
    dr("UpdateTime") = Date.Now
    dr("FileName") = "sample.jpg"
    dr.Save()
Else
    MessageBox.Show(jo.ToString)
End If