控制在线用户数

有了OpenQQ,可以很方便地控制系统的在线用户数。

服务端的UserLogging事件代码设置为：

If QQServer.Users.Count >= 10 Then
    e.Success = False
    e.Message = "已经达到最大允许的在线用户数!"
Else
    '验证用户名和密码的代码
End If

客户端的AfterOpenProject事件:

QQClient.ServerIP = "192.168.100.8" '指定服务器IP地址
QQClient.ServerPort = 52177  '指定服务器端口
QQClient.UserName = "生产部.李桂兰"
QQClient.Password = "888"
If QQClient.Start() = False '如果登录失败
    MessageBox.show("登录失败,原因:" & vbcrlf & QQClient.ServerMessage,"提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Syscmd.Project.Exit()
    Return
End If