需求:我想自动回复的文字内容待URL链接的(点击文字即可跳转至 指定的URL)
问题:如下代码中,自动回复的内容不是显示“您好!请点这里百度搜索” ,而是显示 为 "您好!<a href='https://www.baidu.com/baidu?wd=刘德华是谁'>请点这里百度搜索</a>"
代码如下:
Dim wbiz As New WXBizCrypt(vars("ccccc"),vars("ttttt"),vars("eeeee"))
Dim xo As Foxtable.XObject = Foxtable.XObject.Parse(msg)
Dim d As Date = Date.Today
Dim so As New Foxtable.XObject()
so("ToUserName") = ***
so("FromUserName") = ***
so("CreateTime") = (Date.Now - st).TotalSeconds()
so("MsgType")= "text"
so("Content") = "您好!<a href='https://www.baidu.com/baidu?wd=刘德华是谁'>请点这里百度搜索</a>"
msg = wbiz .EncryptMsg(e,so.ToXML )
If IsNumeric(msg) Then
Dim err As String = wbiz.GetErorDesc(CInt(msg))
Else
e.WriteString(msg)
End If
这个微信自己的问题,文本模式本身就不支持链接。考虑改为图文消息
但是我是想实现多行内容,点击不同的行,跳转不同的链接
自动回复内容如下:
(1)刘德华是谁
(2)张学友在哪里开演唱会
(3)黎明现在很少出现
……
[此贴子已经被作者于2023/10/13 11:38:34编辑过]
别人不支持,想再多都没有用。企业微信只有主动发送的文本消息支持链接,被动回复是不支持的