公众号临时预览链接转永久链接怎么操作

微信公众平台更新后,预览链接无法永久保存。本文提供四种方法解决此问题,包括将文章放入菜单栏、设置关键词自动回复、通过特定步骤获取永久链接及使用第三方工具转换。

  微信公众平台在六月份进行了一次更新升级,预览链接无法永久存在,只能作为临时预览使用,而且预览的链接将会在短期内失效+预览人数超过500人自动失效。那么利用素材库内文章传播,就受到了限制。那么如何解决这个问题呢?

  方法一:最复杂

  放入菜单栏。 选择素材库文章,然后点菜单栏,获得图文,点开,这时你会发现临时链接的提示没有了!然后右上角复制链接。就OK了。


  方法二:略复杂

  关键词自动回复 1、建立关键词规则,然后选择图文素材回复。 2、公众号内回复关键词,获取图文。 3、点开,右上角【复制链接】

  方法三:最简单(目前)

  1、先给公众号发任何消息比如“0”

  2、进入后台【消息管理】——点击你的头像,进入对话回复——选择【图文消息】——【从素材库选择】——发送——从手机端点开图文(一点要手机端手机端手机端!电脑端查看还是临时链接)——右上角【复制链接】

  3、目前还是有效的,而且最简单的做法。不知道多久以后会被干掉,随缘咯,不行就方法一和方法二

 

  方法四:利用第三方工具

  打开http://www.duigouketang.com/convert,在图文链接框中输入临时链接,提交一下就可以得到永久链接了

### 使用 Visual Basic 调用微信公众号 API 创建短链接 为了实现通过 Visual Basic (VB.NET) 来调用微信公众号 API 并创建短链接,需要遵循特定的工作流程。这涉及到获取 `access_token` 和发送 HTTP 请求来处理 URL 缩短。 #### 获取 access_token 在调用任何微信公众平台接口之前,必须先获得有效的 `access_token`。这是用于验证身份并授权访问微信公众平台资源的关键令牌[^2]。 ```vb.net Imports System.Net.Http Imports Newtonsoft.Json.Linq ' 需要安装Newtonsoft.Json库支持JSON解析 Module WeChatApiHelper Private Async Function GetAccessToken(appId As String, appSecret As String) As Task(Of String) Dim client = New HttpClient() Dim response = Await client.GetAsync($"https://api.weixin.qq.com/cgi-bin/token?grant_type=client_credential&appid={appId}&secret={appSecret}") If response.IsSuccessStatusCode Then Dim jsonResponse = JObject.Parse(Await response.Content.ReadAsStringAsync()) Return jsonResponse("access_token").ToString() Else Throw New Exception("Failed to retrieve access token.") End If End Function End Module ``` #### 发送请求以创建短链接 一旦获得了 `access_token`,就可以利用此令牌向微信公众平台发出 POST 请求,从而换长URL为短URL。 ```vb.net Private Async Function CreateShortUrl(longUrl As String, accessToken As String) As Task(Of String) Using client = New HttpClient() Dim jsonContent = $"{{""action"": ""long2short"", ""long_url"": ""{longUrl}""}}" Dim content = New StringContent(jsonContent, Encoding.UTF8, "application/json") Dim response = Await client.PostAsync($"https://api.weixin.qq.com/cgi-bin/shorturl?access_token={accessToken}", content) If response.IsSuccessStatusCode Then Dim jsonResponse = JObject.Parse(Await response.Content.ReadAsStringAsync()) Return jsonResponse("short_url").ToString() Else Throw New Exception("Failed to create short url.") End If End Using End Function ``` 上述代码展示了如何使用 VB.NET 实现与微信服务器交互的过程,包括获取必要的认证凭证以及执行实际的 URL 缩短操作。需要注意的是,在真实环境中应当妥善管理应用ID (`appId`) 及密钥(`appSecret`) 的安全性,并考虑异常情况下的错误处理机制。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值