Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助] 公众号微信收不到信息


  共有2336人关注过本帖树形打印复制链接

主题：[求助] 公众号微信收不到信息
帅哥哟，离线，有人找我吗？
machle
 小大  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：355 积分：3925 威望：0 精华：0 注册：2014/7/29 23:42:00 		[求助] 公众号微信收不到信息  发帖心情 Post By：2020/10/9 17:01:00 [只看该作者]

已经接入http服务，更换了appid和secret，能够get到access token，直接用的接收消息的代码，但是手机微信给公众号发消息，收不到。请问问题可能出在哪里？

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106680 积分：542589 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/10/9 17:10:00 [只看该作者]

怎么收的？写了什么代码？

 回到顶部
帅哥哟，离线，有人找我吗？
machle
 小大  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：355 积分：3925 威望：0 精华：0 注册：2014/7/29 23:42:00 		回复：（有点蓝）怎么收的？写了什么代码？  发帖心情 Post By：2020/10/9 17:19:00 [只看该作者]

帮助文件里的代码
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"
            Dim xo As Foxtable.XObject = Foxtable.XObject.Parse(e.PlainText)
            Dim st As New Date(1970,1,1,8,0,0)
            Select Case xo("MsgType")
                Case "text","image","voice","video","shortvideo" '为了简单,这里只保存文本?图片?语音和视频消息.
                    If DataTables("Message").Find("MsgID = '" & xo("MsgId").ToString() & "'") IsNot  Nothing Then '如果有相同MsgID的信息直接返回
                        Return
                    End If               
              
 回到顶部
帅哥哟，离线，有人找我吗？
machle
 小大  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：355 积分：3925 威望：0 精华：0 注册：2014/7/29 23:42:00 		回复：（machle）回复：（有点蓝）怎么收的？写了什么...  发帖心情 Post By：2020/10/9 17:19:00 [只看该作者]

  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("Format") = xo("Format")
                    dr("MediaId") = xo("MediaId")
                    dr("PicUrl") = xo("PicUrl")
                    dr("ThumbMediaId") = xo("ThumbMediaId")
                    dr("Content") = xo("Content")
                    dr("AgentID") = xo("AgentID")
                    dr("Recognition") = xo("Recognition")
                    dr.Save()
                    
            End Select
        End If
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106680 积分：542589 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/10/9 17:24:00 [只看该作者]

调试技巧：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()
 回到顶部
帅哥哟，离线，有人找我吗？
machle
 小大  6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：355 积分：3925 威望：0 精华：0 注册：2014/7/29 23:42:00 		回复：（有点蓝）调试技巧：http://www.foxtable.com/...  发帖心情 Post By：2020/10/9 17:30:00 [只看该作者]

请问： 我用的阿里云的服务器，在自己电脑上没法调试吧？这个要调试的话，是不是每次都得发布项目，然后FTP远程升级，再测试？有没有简便方法？

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106680 积分：542589 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/10/9 17:34:00 [只看该作者]

没有，只能发布后上传到阿里云测试

 回到顶部
帅哥哟，离线，有人找我吗？
machle
 小大  8楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：355 积分：3925 威望：0 精华：0 注册：2014/7/29 23:42:00 		回复：（有点蓝）没有，只能发布后上传到阿里云测试  发帖心情 Post By：2020/10/9 17:44:00 [只看该作者]

您好，httprequest好像不起作用。我把您的代码粘到里面去，手机发信息，不起作用呢？messagebox也不弹出，怎么回事？

 回到顶部
帅哥哟，离线，有人找我吗？
machle
 小大  9楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：355 积分：3925 威望：0 精华：0 注册：2014/7/29 23:42:00 		回复：（有点蓝）没有，只能发布后上传到阿里云测试  发帖心情 Post By：2020/10/9 23:52:00 [只看该作者]

messagebox.show(xo("MsgType").ToString())   报错 未将对象引用设置到对象的实例

若是messagebox.show(xo("MsgType")），给出的xo("MsgType")值是空值，这样无法把消息记录在表格里。
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106680 积分：542589 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/10/10 8:59:00 [只看该作者]

msgbox(e.PlainText)弹出什么内容？

 回到顶部
总数 13 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06250 秒, 4 次数据查询