使用代码接收信息
对方通过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, 注意不要搞混。