使用代码接收信息

对方通过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, 注意不要搞混。


本页地址:http://www.foxtable.com/webhelp/topics/2977.htm