专家坐堂-[求助]企业微信自动回复问题Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

需求：我想自动回复的文字内容待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