主题：[求助]OpenQQ怎么给自己发消息

老师好，要用OpenQQ给包括自己在内的好友发消息，该怎么实现？单独给自己发消息呢？用QQClient.Send(“自己部门” & "." & “自己姓名”, “XXX”)测试收不到，请指教。

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

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

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

 

或者用第二种方式单独给自己发消息该怎么实现。

用示例的文件也测试了，QQClient.Buddies确实不包括登录者本人。该怎么给本人发消息呢（不是窗口消息）？

 

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