[求助]企业微信消息回调 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

企业微信信息回调应用API的URL设置，必须用备案过的域名么，不能用阿里云的固定IP么？

照着帮助用IP设置，总是设置失败，帮助还是企业号的，有些不太一样。

也听说用固定IP做回调URL只能发文字，不能发图片和位置，可是文字也暂时够用了。

企业微信设置好了：可以给企业微信用户发消息，可以自动回复用户消息。

OpenQQ也设置好了：可以给foxtable用户发消息。

两个设置在一个服务端文件中，放在服务器上，SQL也放在服务器上。

看了帮助，转发消息是微信的，企业微信不会用，请问：

1.OpenQQ的消息，怎么转发给企业微信？

2.客户端触发条件后，怎么直接给企业微信用户发消息？

3.现在的理解，客户端是没有公网IP的，需要把数据传到SQL表中，然后再处理？

4.需要的效果是，客户端操作触发OpenQQ消息，服务端截取，筛选指定条件的消息通过Http回调，转发给企业微信用户。

[此贴子已经被作者于2019/1/24 15:23:55编辑过]

1.客户端到微信

OpenQQ客户端→OpenQQ服务端→直接发送到微信

2.微信到客户端

微信用户发消息到微信应用→回调消息API保存消息至SQL消息表→OpenQQ定时检查SQL消息表→发现新消息转发给OpenQQ客户端用户

以上两种方法都需要OpenQQ服务器作中转，

区别是微信消息到OpenQQ客户端，必须先存储到SQL再调用发送。

但是如果客户端的消息只需要发送给微信，就不需要在SQL建立消息表，

是不是可以这么理解？

1.企业微信回调正常，可以写入消息到SQL表。

2.增加微信好友

QQClient.AddWeChatUser("LiJianguo","李建国")

OpenQQ聊天窗口中可以发消息。

下面这个帮助看不懂，修改了也没起作用。

Foxtable服务端QQServer的WeChatMessageReceived事件，输入代码：

Dim userid = e.WeChatID

If e.ContentType = 0 Then '本例子只处理文本消息

Dim drUser As DataRow = DataTables("微信用户").Find(CExp("[_Identify]={0} ",userid))

If drUser IsNot Nothing Then

Dim text = WeChat.SendMessageHelper.GetSendMessage(WeChat.ApiType.MP, "text")

text.touser = drUser("OpenID")

text.AddContent(e.Content)

Dim weRet = WeChat.WeChatServer.Server("wx506f113977c3a8a3").SendMsgController.SendMessage(text.ToJson(True)) '发送消息到微信

If not weRet.Success Then

Functions.Execute("logText",weRet.ErrorMessage & "|" & text.ToJson(True))

End If

WeChatessageReceived

用途是

服务端收到客户端发给微信用户的信息后发。

现在OpenQQ收到了客户端发给“微信用户李建国”的消息

怎么转发给李建国？

核心代码像是下面这一句

WeChat.WeChatServer.Server("wx506f113977c3a8a3").SendMsgController.SendMessage(text.ToJson(True))

不会修改，需求是把用OpenQQ给指定的企业微信用户发消息。

这个发消息只能在服务端发，可客户端触发的消息，只能用OpenQQ转发啊，想不明白怎么在客户端，直接发消息给企业微信。

嗯，已经解决了，在SQL做了个表，觉得还是保存记录好一些。

还有个窗体变灰的问题，关联表窗口，普通窗体，本地和远程服务器的程序窗体，在修改“项目属性”或几分钟没有鼠标操作，窗体就会变成灰色不可用。

但是切换一下窗口大小，或者最小化，最大化一下，就会恢复正常的显示，找不到原因。
图片点击可在新窗口打开查看

此主题相关图片如下：窗口变成灰不能用.jpg

主题：[求助]企业微信消息回调