客户消息转发给企业微信成员无法接收！ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

调试一个简单的客户系统实例

企业会话：sc.Secret = Vars("企业会话") '企业会话的开发者密钥,这行语句没有设置，其它都设置好见BuildWeChatServer

没有设置原因：服务中心里没有找到企业会话服务，其它设置好。

调试：微信企业成员发送消息，能发送到企业号客服人员中，Functions.Execute("Msg_SendToQyKf",msg)能正常运行。

但客户消息回复消息时,无法触发HttpRequest，同样也无法执行以下语句

Dim msg = Args(0)

If msg.MsgType = "QYKF" Then '本例子只处理客服消息,其它类型消息不要在这里测试,请参考完整案例

Functions.Execute("Msg_QyReplyToUser",msg)

end if

难道我接口回调服务有问题？求助

你要设置的是企业客服，而不是企业会话：http://wechat.foxtable.com:9009/WebHelp/scr/we0110.htm

1、企业客服：已设置好：如附件1

此主题相关图片如下：企业客服设置.jpg

2、启动企业客服的接口：如下

pinfo = New WeChat.WeChatPublicNoInfo()

pinfo.DeveloperID = Vars("qycorpid") '自己企业号的开发者ID

pinfo.DeveloperSecret = Vars("qysecret") '自己企业号的开发者密钥

pinfo.Token = Vars("_qytoken") '消息令牌

pinfo.EncodingAESKey = Vars("_qyencodingAESKey") '消息加密密钥

pinfo.PublicNoType = 2 '企业号

'企业客服

Dim se As New WeChat.WeChatPublicNoSecret

se.SecretName = "企业客服" '名称必须为企业客服

se.SecretType = WeChat.SecretType.KF '类型为WeChat.SecretType.KF =2

se.SecretID = "wx5aa6847dfc131f80"

se.Secret = "uBXgBN-rVR7LaF-LYmBzqpfyggsGWpl8fgwFgzqj_pF_GlI1pef4V8CKOn7LvqHX" '企业客服的开发者密钥

pinfo.QySecrets.Add(se)

'企业客服的回调设置

Dim callInfo As new WeChat.WeChatPublicNoCallbackInfo

callInfo = new WeChat.WeChatPublicNoCallbackInfo

callInfo.CallbackKey = "internal" '内部客服

callInfo.Token = "foxtable"

callInfo.EncodingAESKey = "CHIMyAkax7ojzoDzg71TB4PuDmlh1CnZM5HSqCRRiTP"

callInfo.CallbackType = "2" '内部客服类型

pinfo.Tokens.Add(callInfo.CallbackKey,callInfo)

callInfo = new WeChat.WeChatPublicNoCallbackInfo

callInfo.CallbackKey = "external" '外部客服

callInfo.Token = "foxtable"

callInfo.EncodingAESKey = "vnuTiiRprYnyisBc3gdoNWiMokJUQMjDTd74jecHguv"

callInfo.CallbackType = "2" '客服类型

pinfo.Tokens.Add(callInfo.CallbackKey,callInfo)

WeChat.WeChatServer.Add(pinfo) '添加企业号到服务

3、能收到用户消息转发给客服，但回复无响应？如下图

此主题相关图片如下：111.jpg

4、在浏览器中输入企业客服回调接口，都能触发HttpRequest, 如下图：

此主题相关图片如下：222.jpg

注意ProcessMessage的用法，CallbackKey内容必须作为第三个参数传入

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

此主题相关图片如下：设置了第三个参数.jpg

客服消息：回复的时候还无法触发HttpRequest

3楼图片中的客服回调服务url地址是怎样设置的？

HttpRequest的第一行代码放上msgbox(1)能不能弹出来？

客服回复Url:设置如下

此主题相关图片如下：客服回复.jpg

回复时：无法触发msgbox(1)

Dim callInfo As new WeChat.WeChatPublicNoCallbackInfo

callInfo = new WeChat.WeChatPublicNoCallbackInfo

callInfo.CallbackKey = "qefoxkf1" '内部客服

callInfo.Token = "foxtable"

callInfo.EncodingAESKey = "CHIMyAkax7ojzoDzg71TB4PuDmlh1CnZM5HSqCRRiTP"

callInfo.CallbackType = "2" '内部客服类型

pinfo.Tokens.Add(callInfo.CallbackKey,callInfo)

[此贴子已经被作者于2017/5/16 9:03:07编辑过]

主题：客户消息转发给企业微信成员无法接收！