- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- OpenQQ发送系统通知 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=145068)
-- 发布时间：2020/1/7 13:03:00
-- OpenQQ发送系统通知
老师，OPenQQ发送系统通知点发送键没反应怎么回事呢？用代码发送没问题。
执行以下代码，System的在线状态是：[System](离线)
For Each bd As QQBuddy In QQClient.Buddies \'显示好友名和在线状态
Output.Show(bd.Name & "(" & IIF(bd.Online,"在线","离线") & ")")
Next
用代码这样发送没问题：
For Each bd As QQBuddy In QQClient.Buddies
QQClient.SendChatMessage(bd.name,"{!} 测试消息!")
Next
[此贴子已经被作者于2020/1/7 13:13:34编辑过]
-- 发布时间：2020/1/7 14:32:00
--
系统通知只能通过代码发送，并且是qqserver（服务端）才可以发送。http://www.foxtable.com/webhelp/topics/3061.htm
聊天窗口只能接收和显示系统通知。上面第2段代码虽然可以给[System]发送，但是没有任何用处，没有任何用户可以接收[System]这个消息
-- 发布时间：2020/1/7 15:52:00
--
第2段代码所有人都能收到消息啊，弹窗也能弹出来
此主题相关图片如下：qq截图20200107154901.png
-- 发布时间：2020/1/7 16:02:00
--
这个是给用户发送，肯定可以收到呀！但是和【系统通知】没有任何关系
-- 发布时间：2020/1/19 12:47:00
--
老师，我有个待办事项表，如果不是新增行，信息发出了，也能收到，但是提示弹窗没弹出来什么问题？
If e.DataCol.Name = "待审批人" Then
If e.NewValue <> e.OldValue Then
Dim ds As DataRow
ds = DataTables("用户管理").sqlFind("[职务] = \'" & e.DataRow("待审批人") & "\'")
If ds IsNot Nothing Then
\'msgbox(dr("机构名称") & "." & dr("姓名"))
QQClient.SendChatMessage(ds("机构名称") & "." & ds("姓名"),"{!}你有新的审批消息,请及时审批!")
End If
End If
End If
[此贴子已经被作者于2020/1/19 12:47:15编辑过]
-- 发布时间：2020/1/19 14:00:00
--
我使用帮助的例子测试没有问题。做个例子测试看看