以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  [求助]OpenQQ给分组发送信息  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=91059)

--  作者：qwz405 --  发布时间：2016/9/28 14:01:00 --  [求助]OpenQQ给分组发送信息 使用OpenQQ内置身份验证登录，用户名显示：分组.姓名 求助：如何给某个分组的所有人发送通知/信息？ 另外，服务器发送通知，用下面的代码，我测试只有一个帐户能一直收到信息(不管是否在线)，别的几个人没有反应。 For Each bd As QQBuddy In QQClient.Buddies     QQServer.SendNotice(bd.name,"{!}国庆节")   \'发送通知 Next [此贴子已经被作者于2016/9/28 14:07:52编辑过]

--  作者：有点蓝 --  发布时间：2016/9/28 15:01:00 --   你在服务端用QQClient.Buddies当然是没有东西的 For Each u As UserInfo In Users     Dim name As String     If u.Group > ""  Then         name = u.Group & "." & u.Name     Else         name = u.Name     End If     QQServer.SendNotice(name,"{!}国庆节") Next 如果要指定分组 For Each u As UserInfo In Users     If u.Group = "某某分组"  Then         QQServer.SendNotice(u.Group & "." & u.Name,"{!}国庆节")     End If Next

--  作者：qwz405 --  发布时间：2016/9/28 16:44:00 --   好像不能给指定角色发信息 For Each u As UserInfo In Users     If u.IsRole = "某某角色"  Then         QQServer.SendNotice(u.Group & "." & u.Name,"{!}国庆节")     End If Next 此主题相关图片如下：111.jpg [此贴子已经被作者于2016/9/28 16:43:42编辑过]

--  作者：有点蓝 --  发布时间：2016/9/28 17:06:00 --   If u.IsRole("某某角色")  Then  提示已经很明显了