| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 发送图片问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=152718) |
| -- 作者：13968559581 -- 发布时间：2020/7/20 9:14:00 -- 发送图片问题 你好，我直接照抄的代码，我把这行 ao("picurl") = "https://ss1.baidu.com/6ONXsjip0QIZ8tyhnq/it/u=1632653074,1222564348&fm=80&w=179&h=119&img.JPEG" \'图片 改成本地的图片，为什么发送不了 ao("picurl") ="c:\\lzj\\111.jpeg" Dim ja As New JArray jo("touser") = "ofjtFwBSZ5cNqTKLSKx2TNEAxfBI" jo("msgtype") = "news" For i As Integer = 1 To 1 \'可以一次发送最多8个图文消息,这里只发送了1个 Dim ao As New JObject() ao("title") = "特朗普提名保守派大法官" \'标题 ao("description") = "特朗普在白宫提名尼尔·戈萨奇为美国最高法院大法官" \'描述 ao("url") = "http://news.ifeng.com/a/20170201/50640529_0.shtml" \'连接 ao("picurl") = "https://ss1.baidu.com/6ONXsjip0QIZ8tyhnq/it/u=1632653074,1222564348&fm=80&w=179&h=119&img.JPEG" \'图片 ja.Add(ao) |
| -- 作者：有点蓝 -- 发布时间：2020/7/20 9:16:00 -- 因为人家接口规定只能使用网络图片 |
| -- 作者：13968559581 -- 发布时间：2020/7/20 9:57:00 -- 那我现在想用本地图片，有没有什么办法 |
| -- 作者：有点蓝 -- 发布时间：2020/7/20 10:13:00 -- 上传到网上，或者看看：https://developers.weixin.qq.com/doc/offiaccount/Asset_Management/Adding_Permanent_Assets.html，看里面的上传图文消息内的图片获取URL |
| -- 作者：13968559581 -- 发布时间：2020/7/21 9:06:00 -- 你好，我用以下这个方法能把图片上传到网络吗，但我代码有点看不明白，这个Materials表，是在企业微信服务器端吗，还是在我本地，如果是有服务端，我又怎么建呢 上传图片素材的代码，可以在命令窗口测试： Dim url As String = "https://api.weixin.qq.com/cgi-bin/material/add_material?access_token={0}&type=image" 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("Type") = "image" dr("mediaID") = jo("media_id") dr("URL") = jo("url") dr("UpdateTime") = Date.Now dr("FileName") = "sample.jpg" dr.Save() Else MessageBox.Show(jo.ToString) End If |
| -- 作者：有点蓝 -- 发布时间：2020/7/21 9:40:00 -- 这个是自己建的一个表，用来保存自己上传的图片的各种信息。 |