我已经用代码发过来了,如果在线,是可以收到信息的,同时"信息"表也会马上增加一行新的记录,但是现在的有问题:如果原来不在线,上线后信息也是可以接收到的,但"信息"表没有添加任何记录,不知道什么原因?触发接收事件我用的是下面的代码
Dim dr As DataRow = DataTables("信息").AddNew
dr("发送者") = iif(e.UserName > "",e.UserName,"服务器")
dr("接收者") = _UserName
dr("发送时间") =iif(e.UserName > "",Date.Now(),"服务器")
dr("接收时间") = Date.now()
dr("内容") = e.Message
popMessage(e.Message,"提示",PopiconEnum.Infomation)
DataTables("信息").Save() '保存