启动是窗口做的，txt是IP，txt2是weui路径，txt3是登陆上限个数
Dim txt As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim txt2 As WinForm.TextBox = e.Form.Controls("TextBox2")
Dim txt3 As WinForm.TextBox = e.Form.Controls("TextBox3")
HttpServer.Prefixes.Add("http://127.0.0.1/")
HttpServer.Prefixes.Add("http://" & txt.Value & "/")
HttpServer.WebPath = txt2.Value '指定静态文件存储位置
HttpServer.Start()
usgs = txt3.Value
zxrs = usgs
e.Form.Close
服务端UserLogging事件代码：
If e.User Is Nothing Then
Return
Else If QQServer.Users.Count >= zxrs Then
e.Success = False
e.Message = "已经达到最大允许的在线用户数!"
Else
e.Success = True
End If
我还做了手机端，手机端登陆的时候各个用户都能登
电脑端用户我在外部表里直接复制粘贴加上一批，这批登陆就有问题，我又从系统里添加用户那加了一个，也登不上，手机都能登
[此贴子已经被作者于2019/8/15 7:44:08编辑过]
加好友 
发短信
Post By：2019/8/13 19:18:00 [显示全部帖子]
