http://www.foxtable.com/help/topics/2979.htm
If QQServer.Users.Contains("生产部.李桂兰") Then '判断此用户是否在线
End If