以文本方式查看主题

-  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=121624)
--  作者：Fox86
--  发布时间：2018/7/10 17:00:00
--  [求助]OpenQQ怎么给自己发消息
老师好，要用OpenQQ给包括自己在内的好友发消息，该怎么实现？单独给自己发消息呢？用QQClient.Send(“自己部门” & "." & “自己姓名”, “XXX”)测试收不到，请指教。
--  作者：有点甜
--  发布时间：2018/7/10 17:03:00
--  

1、如果要发窗口消息，参考

 

http://www.foxtable.com/webhelp/scr/3033.htm

 

2、如果要给所有好友发信息，参考

 

For Each bd As QQBuddy In QQClient.Buddies

    msgbox(bd.name)
    QQClient.Send(bd.name, "123456", True)
Next
--  作者：Fox86
--  发布时间：2018/7/10 17:12:00
--  第二种

有点甜老师，是第二种，测试只有本人在线不会进入For 语句，所以我认为QQClient.Buddies把本人排除了。Server端登录加好友把自己也加上了。就是不能给自己发消息。

    \'If nm <>e.UserName Then \'如果不是登录者本人
        e.Buddies.Add(nm)
    \'End If

 

[此贴子已经被作者于2018/7/10 17:13:07编辑过]
--  作者：Fox86
--  发布时间：2018/7/10 17:14:00
--  
或者用第二种方式单独给自己发消息该怎么实现。
--  作者：Fox86
--  发布时间：2018/7/10 17:45:00
--  
用示例的文件也测试了，QQClient.Buddies确实不包括登录者本人。该怎么给本人发消息呢（不是窗口消息）？
--  作者：有点甜
--  发布时间：2018/7/10 18:18:00
--  
以下是引用Fox86在2018/7/10 17:14:00的发言：
或者用第二种方式单独给自己发消息该怎么实现。

 

为什么要给自己发信息？没有这种必要的。认真思考为什么要这样做。