主题：OPENQQ登陆控制问题

For Each User As QQUser In QQserver.Users
    If user.name = e.UserName Then
        e.Message  = "用户已登陆,ip地址:" & user.LanIPAddress '返回给登录者的提示信息
        Return
    End If
Next