Dim dr As DataRow = DataTables("信息").AddNewdr("发送者") = iif(e.UserName > "",e.UserName,"服务器")dr("时间") = Date.Now()dr("信息") = e.Message
里面的“服务器”·是是OPENQQ的服务器名字·还是自己服务器的IP
随便什么字符都可以。这段代码的意思,如果e.username为空,就是服务器发过来的信息。