需求：我想自动回复的文字内容待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
加好友 
发短信
Post By：2023/10/13 11:22:00 [显示全部帖子]
