微信案例，客户端设置关注消息后，关注订阅号后没有反应。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有4856人关注过本帖树形打印复制链接主题：微信案例，客户端设置关注消息后，关注订阅号后没有反应。

ycwk

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1218 积分：8451 威望：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

明明有这条记录，偏偏找不到，这是怎么回事？要疯了

有点色

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/3/3 10:58:00 [只看该作者]

回复10楼

http://wechat.foxtable.com:9009/WebHelp/scr/we0130.htm

ycwk

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1218 积分：8451 威望：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

小大 14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1218 积分：8451 威望：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)

End If

Dim pub = WeChat.WeChatServer.Add(Info)

pub.CanLog = Vars("IsDebug")

Return pub

这段代码是什么意思啊？

有点色

小大 15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/3/3 12:15:00 [只看该作者]

呃.....例子是兼容所有号的。如果你想区别那就加判断。

ycwk

小大 16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1218 积分：8451 威望：0 精华：0 注册：2016/2/2 21:52:00

Post By：2017/3/3 12:31:00 [只看该作者]

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

此主题相关图片如下：1.png

ycwk

小大 17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1218 积分：8451 威望：0 精华：0 注册：2016/2/2 21:52:00

Post By：2017/3/3 13:10:00 [只看该作者]

vGetMsgReplyTextOperation 表里面只有两条数据，可能是这个表里面没有匹配的规则吧，请问这个表和哪个界面关联？我按照帮助里面完善了规则和应用，但是这个表里面的数据好像没有发生变化。

s elect * from vGetMsgReplyTextOperation --Wechat_processMessage 函数中规则匹配来源的数据视图

s elect * from WeChatMsgTemplate where 1=2 消息模板表的展示数据来源

s elect * from vWeChatRuleApplication --对应"新增应用功能" ReplayOperationID(回复操作)

s elect * from WeChatRuleAppOperation --对应 "管理操作" 功能

s elect * from WeChatRuleAppTextDefine --对应什么？

[此贴子已经被作者于2017/3/3 14:15:49编辑过]

ycwk

小大 18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1218 积分：8451 威望：0 精华：0 注册：2016/2/2 21:52:00

Post By：2017/3/3 14:58:00 [只看该作者]

追踪到自定义函数 rule_processTextRule 里面的下面代码

Dim drs As List(Of DataRow) = DataTables(vName).Select(filter)

msgbox(vname)

msgbox(filter)

msgbox(drs.count) '结果是0 ，把弹出的filter粘到数据库视图(vGetMsgReplyTextOperation )查询，明明有一条数据，可是弹出的结果就是0，这是怎么回事？

If drs.Count > 0 Then

'msgbox("判断后") '弹不出

Return drs(0)

End If

有点蓝

小大 19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：106168 积分：539957 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2017/3/3 15:30:00 [只看该作者]

客户端增加编辑规则后。服务器端重启一下，或者点击菜单的刷新按钮刷新一下数据

ycwk

小大 20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1218 积分：8451 威望：0 精华：0 注册：2016/2/2 21:52:00

Post By：2017/3/3 18:40:00 [只看该作者]

找到自定义函数 Msg_SendToUserByServ 中往Msg_SendMessages 表中写数据，才发消息，但是有以下提示。

{"touser":"oiam7v-6e3Q7_OcVfnVrvJaEpxKs","msgtype":"text","text":{"content":"尊敬的用户，您的订单已经收到，请留意后续的通知。如需查询订单，请回复“订单查询”。"}}

由于我用的是个人订阅号，所以不可以对客户发消息，但是可以自动回复，请教一下，自动回复post是调用的哪个函数？

下一主题 >> << 上一主题

总数 52 上一页 1 2 3 4 5 6 下一页

主题：微信案例，客户端设置关注消息后，关注订阅号后没有反应。