httprequest完整代码发上来看看
Select Case e.Path
Case "wefox" '接入HTTP服务(用户发到公众号(包括测试号)的信息,都是直接发给腾讯的微信服务器的,用于在Foxtable中接收并回复用户发来的信息)
msgbox(e.Request.HttpMethod)‘观察服务端这里弹出了几次’
If e.Request.HttpMethod.ToUpper = "GET"
If Functions.Execute("VerifySignature",e) Then
e.WriteString(e.GetValues("echostr"))
End If
ElseIf e.Request.HttpMethod.ToUpper = "POST"
Dim wbiz As New WXBizCrypt("wxaa*******5bdd","b**jh","5nwSIw**********llDAa4")
Dim st As New Date(1970,1,1,8,0,0)
Dim msg As String = wbiz.DecryptMsg(e) '解密收到的消息
If IsNumeric(msg) Then '如果解密失败
Dim err As String = wbiz.GetErorDesc(CInt(msg)) '获取错误描述
Return
End If
Dim xo As Foxtable.XObject = Foxtable.XObject.Parse(msg)
msgbox(xo("MsgType"))
Select Case xo("MsgType")
Case "text","image","voice","video","shortvideo" '为了简单,这里只保存文本?图片?语音和视频消息.
Dim dr As DataRow = DataTables("Message").AddNew()
dr("FromUserName") = xo("FromUserName")
dr("CreateTime") = st.AddSeconds(xo("CreateTime"))
dr("MsgType") = xo("MsgType")
dr("MsgId") = xo("MsgId")
dr("MediaId") = xo("MediaId")
dr("ThumbMediaId") = xo("ThumbMediaId")
dr("PicUrl") = xo("PicUrl")
dr("Content") = xo("Content")
dr("Format") = xo("Format")
dr("Recognition") = xo("Recognition")
dr.Save()
'下面是被动回复文本消息的代码:
Dim dr_xiaoxi As DataRow '定义,消息行
Dim faqiren As String = dr("FromUserName") '定义,发起人
Dim so As New foxtable.XObject()
so("ToUserName") = xo("FromUserName")
so("FromUserName") = xo("ToUserName")
so("CreateTime") = (Date.Now - st).TotalSeconds()
so("MsgType")= "text"
'so("Content") = "这儿是自助交友平台,特色红包与线下活动沟通功能,增加自助交友乐趣,还等什么,开始吧!使用问题,请在会员中心-基础资料,加客服微信咨询哦!"
If faqiren <> "" Then
dr_xiaoxi = DataTables("Message").SQLFind("FromUserName = '" & faqiren & "'")
If dr_xiaoxi IsNot Nothing Then
so("Content") = "这儿是本地交换信息平台!若未回复,请联系15*****05,谢谢!"
Else
so("Content") = "这儿是本地交换信息平台!若未回复,请联系15********05,谢谢!"
End If
End If
msgbox(so.ToXML))
e.WriteString(so.ToXML)
Return
End Select
msgbox("success")
e.WriteString("success")
Return
End If
[此贴子已经被作者于2020/12/28 11:25:37编辑过]
加好友 
发短信
Post By：2020/12/15 15:48:00 [显示全部帖子]
