调试技巧：http://www.foxtable.com/webhelp/scr/1485.htm
msgbox(e.path)
Select Case e.path
Case "wefox"
If e.Request.HttpMethod = "GET"
If Functions.Execute("VerifySignature",e) Then
e.WriteString(e.GetValues("echostr"))
End If
ElseIf e.Request.HttpMethod = "Post"
msgbox(e.PlainText)
Dim xo As Foxtable.XObject = Foxtable.XObject.Parse(e.PlainText)
Dim st As New Date(1970,1,1,8,0,0)
msgbox(xo("MsgType").ToString())
Select Case xo("MsgType")
Case "text","image","voice","video","shortvideo" '为了简单,这里只保存文本?图片?语音和视频消息.
msgbox(xo("MsgId").ToString())
If DataTables("Message").Find("MsgID = '" & xo("MsgId").ToString() & "'") IsNot Nothing Then '如果有相同MsgID的信息直接返回
Return
End If
msgbox(1)
Dim dr As DataRow = DataTables("Message").AddNew()
加好友 
发短信
Post By：2020/10/9 17:10:00 [显示全部帖子]
