Dim dr As DataRow = DataTables("信息").AddNewdr("发送者") = iif(e.UserName > "",e.UserName,"服务器")dr("时间") = Date.Now()dr("信息") = e.Message
里面的“服务器”·是是OPENQQ的服务器名字·还是自己服务器的IP
加好友 
发短信
Post By：2018/10/5 15:02:00 [只看该作者]
