使用代码接收信息

对方通过Send代码发来的消息，接收方只能通过代码接收。

QQserver和QQClient都有个名为ReceivedMessage事件，当接收到对方通过Send发来的信息时，会触发此事件。

该事件的e参数有：

UserName：字符型，返回用户(好友)名称，如果是服务端(QQServer)发来的信息，则返回空。
Message:  字符型，返回信息内容

示例

例如需要在一个表中记录所有收到的信息，可以在ReceivedMessage事件设置代码：

Dim dr As DataRow = DataTables("信息").AddNew
dr("发送者") = iif(e.UserName > "",e.UserName,"服务器")
dr("时间") = Date.Now()
dr("信息") = e.Message

提醒：

在编写代码的时候，你会发现有两个ReceivedMessage事件，一个在OpenQQ服务端分组，一个在OpenQQ客户端分组，前者对应的是QQServer，后者对应的是QQClient， 注意不要搞混。