主题：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

 

 

系统通知只能通过代码发送，并且是qqserver（服务端）才可以发送。http://www.foxtable.com/webhelp/topics/3061.htm

第2段代码所有人都能收到消息啊，弹窗也能弹出来

此主题相关图片如下：qq截图20200107154901.png

这个是给用户发送，肯定可以收到呀！但是和【系统通知】没有任何关系

老师，我有个待办事项表，如果不是新增行，信息发出了，也能收到，但是提示弹窗没弹出来什么问题？

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

我使用帮助的例子测试没有问题。做个例子测试看看