QQServer.ServerIp = e.Form.Controls("txtIP").Value '指定IP地址
QQServer.ServerPort = e.Form.Controls("txtPort").Value '指定端口
QQServer.HeartbeatInterval = e.Form.Controls("txtInterval").Value '指定心跳时间
QQServer.HeartbeatTimeout = e.Form.Controls("txtTimeOut").Value '指定心跳超时时间
QQServer.PortRange = "52000/53000" '指定随机端口范围
Dim r As DataRow
r = DataTables("QQServer配置").DataRows(0)
r("IP") = e.Form.Controls("txtIP").Value
r("端口") = e.Form.Controls("txtPort").Value
r("心跳间隔") = e.Form.Controls("txtInterval").Value
r("心跳超时") = e.Form.Controls("txtTimeOut").Value
DataTables("QQServer配置").save
QQServer.Start() '启动QQServer
e.Sender.Enabled = False
e.Form.Controls("Button2").Enabled = True
客户端登录时，触发了以下代码：
If QQClient.Start() = True '如果登录成功
Dim msg As String = "欢迎:" & _UserName & vbcrlf & "恭喜,ERP登录成功!"
If QQClient.ServerMessage > "" Then '如果服务器返回了欢迎信息
msg = msg & QQClient.ServerMessage
End If
popMessage(msg,"提示",PopiconEnum.Infomation,5)
Else '如果登录失败,显示服务器返回错误信息
PopMessage("ERP登录失败,原因:" & vbcrlf & QQClient.ServerMessage,"提示",PopiconEnum.Error,5) --》（会提示未在规定的时间内得到服务器的响应）
End If
----补充----
刚让阿里云客服帮我设置服务器与控制台，现在开始报以下错误了，这个错误不在我的代码中：
.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2022.7.3.1
错误所在事件：窗口,用户登录,Button_确认,Click
详细错误信息：
在其上下文中，该请求的地址无效。
加好友 
发短信
Post By：2025/3/26 16:39:00 [只看该作者]
