Foxtable(狐表) → 用户栏目 → 专家坐堂 → 微信案例，客户端设置关注消息后，关注订阅号后没有反应。


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

主题：微信案例，客户端设置关注消息后，关注订阅号后没有反应。
帅哥哟，离线，有人找我吗？
ycwk
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1228 积分：8561 威望：0 精华：0 注册：2016/2/2 21:52:00 		微信案例，客户端设置关注消息后，关注订阅号后没有反应。  发帖心情 Post By：2017/3/3 7:33:00 [显示全部帖子]

客户端的应用及规则如下设置：

图片点击可在新窗口打开查看此主题相关图片如下：1.jpg
图片点击可在新窗口打开查看

操作如下设置：

图片点击可在新窗口打开查看此主题相关图片如下：2.jpg
图片点击可在新窗口打开查看


说明： 订阅号为个人未认证，  但查看接口得知，其可以对关注进行自动回复。
1. 服务端是以管理员方式运行的，并且扫码关注订阅号时，ngrok也有反应。
2. 客户端的自动回复消息设置是按照帮助文件里面设置的。
3. 没有修改过数据库及代码，目前仅在测试案例摸索阶段。 



服务端Mmsglog正常

2017-03-02 22:14:58.5954
path=FoxTest
HttpMethod=POST
signature=178e147885c435a3f3d4dea131beaa83a79bcbd6
timestamp=1488464093
nonce=858393293
openid=oiam7v2GeQy4abVApvlbYLdYj40c



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


加好友 发短信
等级：六尾狐 帖子：1228 积分：8561 威望：0 精华：0 注册：2016/2/2 21:52:00 		  发帖心情 Post By：2017/3/3 7:49:00 [显示全部帖子]

而且发现一个奇怪的现象， 监视里面明明添加了   ycyysf.viphk.ngrok.org 网址，但是直接在浏览器里访问    比如： http://ycyysf.viphk.ngrok.org/FoxTest?echostr=123456789  ngrok管理器没有接通的反应，报404 not found，非要在命令执行窗口里面运行一下： 
 
HttpServer.Prefixes.Add("http://ycyysf.viphk.ngrok.org/")
HttpServer.Start()
命令再访问浏览器，ngrok管理器才会报正常 才行，我发誓，监视窗口是用管理员身份运行的foxtable2017,然后再打开项目的。

 
图片点击可在新窗口打开查看此主题相关图片如下：1.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2017/3/3 7:50:54编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
ycwk
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1228 积分：8561 威望：0 精华：0 注册：2016/2/2 21:52:00 		  发帖心情 Post By：2017/3/3 8:03:00 [显示全部帖子]

服务端或者客户端应该在运行，因为用户向公众号发消息，没有收到"该公众号暂时无法提供服务，请稍后再试"的提醒，但这块不知道是什么问题，出现关注后没有回复的情况。

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


加好友 发短信
等级：六尾狐 帖子：1228 积分：8561 威望：0 精华：0 注册：2016/2/2 21:52:00 		  发帖心情 Post By：2017/3/3 8:30:00 [显示全部帖子]

追踪到服务端的  Webchat_Processmessage 自定义函数，在其中插入 messagebox.show("1") ，往公众号发送消息，没有弹出提示


图片点击可在新窗口打开查看此主题相关图片如下：1.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
ycwk
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1228 积分：8561 威望：0 精华：0 注册：2016/2/2 21:52:00 		  发帖心情 Post By：2017/3/3 9:53:00 [显示全部帖子]

新起一个项目
1.测试按该方式可以在数据库表中接收到消息
2.数据库截图如下：

此主题相关图片如下：1.png
按此在新窗口浏览图片

3. 监听窗口仍然不起作用，非要在命令行里面运行，   
HttpServer.Prefixes.Add("http://ycyysf.viphk.ngrok.org/")
HttpServer.Start()

监听项目是以管理员身份运行foxtable2017,然后打开项目的。
    
 回到顶部
帅哥哟，离线，有人找我吗？
ycwk
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1228 积分：8561 威望：0 精华：0 注册：2016/2/2 21:52:00 		  发帖心情 Post By：2017/3/3 10:15:00 [显示全部帖子]

监听的问题解决了，可是运行案例的服务端还是无法往数据库里存消息。
[此贴子已经被作者于2017/3/3 10:15:36编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
ycwk
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1228 积分：8561 威望：0 精华：0 注册：2016/2/2 21:52:00 		  发帖心情 Post By：2017/3/3 10:58:00 [显示全部帖子]

自定义函数：  WebChat_GetServerbyUrl

'根据公众号数据库内部ID,获取微信服务'
Dim url As String = Args(0)
MessageBox.show("byurl" & url)   ‘可以弹出
Dim dr As DataRow = DataTables("WeChatPubNos").Find("SeverUrl = '" & url & "'")
If dr IsNot Nothing Then
    MessageBox.show("我在这里查地址有没有")    '不可以弹出
    Return Functions.Execute("WeChat_GetServer",dr)
End If

数据库中WebChatPubNos 表如下：


图片点击可在新窗口打开查看此主题相关图片如下：1.png
图片点击可在新窗口打开查看

明明有这条记录，偏偏找不到，这是怎么回事？ 要疯了
 回到顶部
帅哥哟，离线，有人找我吗？
ycwk
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1228 积分：8561 威望：0 精华：0 注册：2016/2/2 21:52:00 		  发帖心情 Post By：2017/3/3 11:01:00 [显示全部帖子]

强行把代码改成了   

Dim dr As DataRow = DataTables("WeChatPubNos").Find("SeverUrl = 'http://ycyysf.viphk.ngrok.org/FoxTest'")

成了，存数据库里了


网址 我是在数据库里面复制过来的，不是自己敲的
[此贴子已经被作者于2017/3/3 11:02:35编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
ycwk
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1228 积分：8561 威望：0 精华：0 注册：2016/2/2 21:52:00 		  发帖心情 Post By：2017/3/3 11:55:00 [显示全部帖子]

Webchat_GerServer函数

WeChatPubNoCallbackSettings  这个表是做什么用的啊？ 是空的啊!  从Webchat_GetserverByurl   转上面的函数， '设置企业应用的回调服务,加入有的话,这个会影响到消息的回调和加解密"  我是订阅号啊，转进去有什么用啊？ 

    drs = DataTables("WeChatPubNoCallbackSettings").Sele ct("PublicNoID = '" & dr("PublicNoID") & "'")
    If drs.Count > 0 Then
        Dim callInfo As WeChat.WeChatPublicNoCallbackInfo
        For Each dr1 As DataRow In drs
            callInfo = new WeChat.WeChatPublicNoCallbackInfo
            WeChat.ConvertHelper.FromDataRow(dr1.BaseRow,callInfo)
            Info.Tokens.Add(callInfo.CallbackKey,callInfo)
        Next
    End If
    Dim pub = WeChat.WeChatServer.Add(Info)
    pub.CanLog = Vars("IsDebug")
    Return pub

这段代码是什么意思啊？
 回到顶部
帅哥哟，离线，有人找我吗？
ycwk
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1228 积分：8561 威望：0 精华：0 注册：2016/2/2 21:52:00 		  发帖心情 Post By：2017/3/3 12:31:00 [显示全部帖子]

能在客户端收到消息了，但是关注后还是不能自动回复，请问该在哪里找问题？   


图片点击可在新窗口打开查看此主题相关图片如下：1.png
图片点击可在新窗口打开查看
 回到顶部
总数 31 1 2 3 4 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 5 次数据查询