Select Case e.path
Case "wefox"
Dim wbiz As New WXBizCrypt("ww0a6c789f5d232acb","foxtable","34ByrQ8gOftL1JgUy9gfNlwg6IHWs1WoYDAXMsQy7xf")
If e.Request.HttpMethod = "GET"
Dim ret As Integer = wbiz.CheckQYSignature(e)
If ret <> 0 Then '如果接入验证失败
Dim err As String = wbiz.GetErorDesc(ret) '获取错误描述
End If
ElseIf e.Request.HttpMethod = "Post" '
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)
Select Case xo("MsgType")
Case "text","image","voice","video","shortvideo"
Dim fucan As String=Functions.Execute("xm365find","Users","name","userid='" & xo("Fro mUserName").Tostring & "'")
QQServer.ForwardChatMessage(xo("Fro mUserName"),fucan,xo("Content"))
End Select
End If
End Select
加好友 
发短信
Post By：2021/5/31 11:46:00 [显示全部帖子]
