[浏览完整版]
标题：openqq经常掉线，出错！
1楼
lianghanyu 发表于：2025/5/13 9:12:00白天偶尔出现， 夜晚百分百出现，每天早上第一次打开我的本地电脑，肯定会出现。因为我的本地电脑没有关机。
怀疑是服务器休眠导致 ，但是我服务器的电脑电源设置是不能休眠的了。
附件上图片的代码：
2楼
有点蓝 发表于：2025/5/13 9:45:00估计是网卡休眠了。服务器就不应该休眠。把服务器电脑的休眠功能全部关闭掉，全部设置为“从不”
3楼
lianghanyu 发表于：2025/5/14 13:51:00电脑是禁用休眠的了，但是我确实没想到是网卡也有单独的休眠设置的。我把网卡禁用休眠了，昨天晚上没有掉线了。后续再观察几天看看。
4楼
lianghanyu 发表于：2025/5/14 14:27:00刚刚回复完，又出现掉线了，错误提示如下：
.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2025.1.3.1
错误所在事件：
详细错误信息：
“Microsoft.Jet.OLEDB.4.0”失败，没有可用的错误消息，结果代码: DB_E_OBJECTOPEN(0x80040E05)。
.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2025.1.3.1
错误所在事件：
详细错误信息：
无法使用已经从其基础 RCW 中分离的 COM 对象。该 COM 对象还在另一个线程中使用时就被释放了。
5楼
lianghanyu 发表于：2025/5/14 14:28:00是出现掉线后， 我只好停掉原来的服务 ，然后重新启动时提示这样的错误。
现在主要的原因还是要搞清楚为什么会掉线？
6楼
cd_tdh 发表于：2025/5/14 16:12:00服务端又没报错？我以前遇到服务端报错也会掉线，服务端是本地电脑还是云服器？如果本地电脑可以把文件发出来大家帮你测试
7楼
有点蓝 发表于：2025/5/14 16:27:00改为SqlServer数据库吧，不建议使用access数据库了，并发太少
8楼
lianghanyu 发表于：2025/5/14 18:53:00代码在一楼。 服务器端是winserver2022系统。用的是SQL数据。
是服务器端出错，导致客户端连接不上。
9楼
有点蓝 发表于：2025/5/15 8:45:00应该用到access数据库吧，不然怎么会提示Microsoft.Jet.OLEDB.4.0错误？有用到内部表？
10楼
lianghanyu 发表于：2025/5/16 8:52:00
此主题相关图片如下：snipaste_2025-05-16_08-48-20.jpg
又出错了，就是这个：
.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2025.1.3.1
错误所在事件：
详细错误信息：
向一个无法连接的网络尝试了一个套接字操作。
我试了一下，用错误的名称登录，它会返回信息，说明服务器是启动，并且在线可以连接上的，
但是用正确的名称登录，它就说 向一个无法连接的网络尝试了一个套接字操作。
登陆代码：
Dim qq As String = e.Form.Controls("txtIP").Value & "_" & e.Form.Controls("txtPort").Value
SaveConfigValue("openqq", qq)
QQClient.ServerIP = e.Form.Controls("txtIP").Value '指定服务器IP地址
QQClient.ServerPort = e.Form.Controls("txtPort").Value '指定服务器端口
QQClient.UserName = e.Form.Controls("txtUserName").Value '指定登录用户名
If QQClient.Start() = True '如果登录成功
e.Form.Controls("btnChat").Enabled = True
Dim msg As String = "恭喜,OpenQQ登录成功!"
If QQClient.ServerMessage > "" Then '如果服务器返回了欢迎信息
msg = msg & QQClient.ServerMessage
End If
popMessage(msg, "提示", PopiconEnum.Infomation, 5)
Forms("QQClient").Close
Else '如果登录失败,显示服务器返回错误信息
e.Form.Controls("btnChat").Enabled = False
PopMessage("QQClient登录失败,原因:" & vbcrlf & QQClient.ServerMessage,"提示",PopiconEnum.Error,5)
End If
此主题相关图片如下：snipaste_2025-05-16_08-48-50.jpg